# NOT RUN {
choropleth <- data.frame(
countries = c("France", "Brazil", "China", "Russia", "Canada", "India", "United States",
"Argentina", "Australia"),
values = round(runif(9, 10, 25))
)
choropleth %>%
e_charts(countries) %>%
e_map(values) %>%
e_visual_map(min = 10, max = 25)
choropleth %>%
e_charts(countries) %>%
e_map_3d(values, shading = "lambert") %>%
e_visual_map(min = 10, max = 30)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab