# NOT RUN {
json <- jsonlite::read_json("http://www.echartsjs.com/gallery/data/asset/geo/USA.json")
USArrests %>%
dplyr::mutate(states = row.names(.)) %>%
e_charts(states) %>%
e_map_register("USA", json) %>%
e_map(Murder, map = "USA") %>%
e_visual_map(min = 0, max = 18)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab