# NOT RUN {
#preparing data frames
data <- data.frame(
weeks = c(28, 29, 30, 31, 32, 33, 34, 35, 36, 37),
Services = c(130,150, 182, 170, 170, 140, 130, 130, 135, 140),
Software = c(100, 88, 83, 90, 92, 95, 129, 130, 130, 135),
Products = c(20, 35, 36, 40, 22, 25, 24, 19, 36, 40)
)
#defining the rest of the arguments
series <- c("Software", "Services", "Products")
labels <- c(NA, 1, NA, 1, NA, NA, 1, NA, 1, NA)
#generating the SVG string
line_chart_stacked <- line_chart_stacked(data, data$weeks, series, series, labels, "weeks")
#show the plot
line_chart_stacked
# }
Run the code above in your browser using DataLab