# NOT RUN {
max <- list(
name = "Max",
type = "max"
)
min <- list(
name = "Min",
type = "min"
)
avg <- list(
type = "average",
name = "AVG"
)
USArrests %>%
e_charts(Murder) %>%
e_line(Rape) %>%
e_line(UrbanPop) %>%
e_mark_point(data = max) %>%
e_mark_point(data = min) %>%
e_mark_line(serie = "Rape", data = avg) %>%
e_mark_area(serie = "Rape", data = list(
list(xAxis = "min", yAxis = "min"),
list(xAxis = "max", yAxis = "max"))
)
# }
Run the code above in your browser using DataLab