# NOT RUN {
max <- list(
name = "Max",
type = "max"
)
min <- list(
name = "Min",
type = "min"
)
avg <- list(
type = "average",
name = "AVG"
)
mtcars %>%
e_charts(mpg) %>%
e_line(wt) %>%
e_line(drat) %>%
e_line(cyl) %>%
e_mark_point("wt", data = max) %>%
e_mark_point(c("cyl", "drat"), data = min) %>%
e_mark_line(data = avg) %>% # applies to all
e_mark_area(serie = "wt", data = list(
list(xAxis = "min", yAxis = "min"),
list(xAxis = "max", yAxis = "max"))
)
# }
Run the code above in your browser using DataLab