# NOT RUN {
library(fusionchartsR)
# Multiple charts
new.data <- data.frame(
label = rep(x = c(2012:2016), times = 2),
seriesname = c(rep("iOS App Store", 5), rep("Google Play Store", 5)),
values = c(1:10)
)
new.data %>%
fusionMultiPlot(
x = "label",
y = "values",
col = "seriesname",
type = "mscolumn2d",
) %>%
fusionTheme(theme = "fusion")
# }
Run the code above in your browser using DataLab