# NOT RUN {
json <- jsonlite::read_json("https://echarts.apache.org/examples/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(Murder)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab