# NOT RUN {
#preparing the data frame
data <- data.frame(
time = c(2015, 2016, 2017, 2018, 2019, 2020),
Gamma = c(98, 80, 16, 25, 55, 48),
Delta = c(22, 25, 67, 73, 102, 98)
)
#defining rest of arguments
names <- c("Gamma", "Gamma", "Gamma","Gamma","Delta", "Delta")
cords <- c(1, 4,5,2, 5,4)
#generating SVG string
line_chart <- line_chart(
data = data,
x = data$time,
series = c("Gamma", "Delta"),
series_labels =c("Gamma inc.", "Delta inc."),
ser_names = names,
point_cords = cords,
interval = "years")
#showing the plot
line_chart
# }
Run the code above in your browser using DataLab