# 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")
)
)
# serie options
iris %>%
group_by(Species) %>%
e_charts(Sepal.Length, timeline = TRUE) %>%
e_line(Sepal.Width) %>%
e_timeline_serie(
title = list(
list(text = "setosa"),
list(text = "versicolor"),
list(text = "virginica")
)
) %>%
e_mark_area(serie = "setosa") %>%
e_mark_area(
serie = "versicolor",
data = list(
list(xAxis = 2),
list(xAxis = 4)
),
itemStyle = list(color = "lightblue")
) %>%
e_mark_area(serie = "virginica")
# }
Run the code above in your browser using DataLab