# NOT RUN {
#preparing a data frame
data <- data.frame(
time = c("Jan", "Feb", "Mar", "Apr", "May", "Jun"),
PL = (c(51, 42, 50, 58, 78, 79) - 30),
AC = (c(62, 70, 67, 77, 63, 62) - 30)
)
#preparing the styles data frame
styles <- data.frame(
PL = c("plan", "plan", "plan", "plan", "plan", "plan"),
AC = c("actual", "actual", "actual", "forecast", "forecast", "forecast")
)
#generating svg string
line_chart_ref <- line_chart_markers_reference(
data = data,
x = data$time,
series = c("PL", "AC"),
series_labels = c("PL", "AC"),
ref_val = 42,
ref_label = "index",
styles=styles)
#show the plot
line_chart_ref
# }
Run the code above in your browser using DataLab