example <- data.frame(
c("This", "Is", "Just", "An", "Example"),
c(2.9, 6.9, 4.20, 13.12, 6.66)
)
bubble_blow(
data = example,
template = "bub1",
perc = "below",
title = "Example1"
)
example2 <- tibble::tibble(
c("cat 1", "cat2", "cat3", "cat4", "cat5", "cat6", "cat7", "cat8", "cat9"),
c(324, 432, 499, 291, 750, 836, 314, 133, 372)
)
bubble_blow(
data = example2,
template = "bub2",
perc = "right",
title = "Ex2"
)
Run the code above in your browser using DataLab