# NOT RUN {
library(fusionchartsR)
df <- data.frame(label = c("Venezuela", "Saudi", "Canada", "Russia"), value = c(290, 260,180, 115))
df %>%
fusionPlot(x = "label", y = "value", type = "column3d") %>%
fusionAxis(xAxisName = "Countries", yAxisName = "Numbers", AxisNameFontSize = "20") %>%
fusionCustomAxis(xAxisPosition = "top", yAxisPosition = "right") %>%
fusionTheme(theme = "gammel")
# }
Run the code above in your browser using DataLab