# NOT RUN {
library(fusionchartsR)
df <- data.frame(label = c("Venezuela", "Saudi", "Canada", "Russia"), value = c(290, 260,180, 115))
fusionPlot(data = df, x = "label", y = "value", type = "column2d") %>%
fusionCaption(caption = "Caption on the left", captionAlignment = "left") %>%
fusionSubcaption(subcaption = "subcaption too") %>%
fusionTheme(theme = "fusion")
# }
Run the code above in your browser using DataLab