if (FALSE) {
url <- paste0(
"https://echarts.apache.org/examples/",
"data-gl/asset/data/population.json"
)
data <- jsonlite::fromJSON(url)
data <- as.data.frame(data)
names(data) <- c("lon", "lat", "value")
data |>
e_charts(lon) |>
e_globe(
displacementScale = 0.04
) |>
e_bar_3d(lat, value, "globe") |>
e_visual_map(show = FALSE)
}
Run the code above in your browser using DataLab