r - 如何使用 mapdeck 创建意大利 map ？

Question

我发现了有关使用 Mapdeck 绘制的英国各地道路交通伤亡 map 的代码。

我想为意大利创建类似的东西，但我不明白如何修改代码来获取意大利区域。

library(mapdeck)
set_token(Sys.getenv("MAPBOX"))
crash_data = read.csv("https://git.io/geocompr-mapdeck")
crash_data = na.omit(crash_data)
ms = mapdeck_style("dark")
mapdeck(style = ms, pitch = 45, location = c(0, 52), zoom = 4) %>%
add_grid(data = crash_data, lat = "lat", lon = "lng", cell_size = 1000,
         elevation_scale = 50, layer_id = "grid_layer",
         colour_range = viridisLite::plasma(6))

谢谢!

Answer 1

我认为您提供的数据是针对意大利的。如果是这样的话那就完全没问题了。这是您问题的解决方案。只需更改位置的纬度和经度值即可。

library(mapdeck)

set_token(Sys.getenv("MAPBOX"))

crash_data = read.csv("https://git.io/geocompr-mapdeck")

crash_data = na.omit(crash_data)
ms = mapdeck_style("dark")
mapdeck(style = ms, pitch = 45, location = c(43,12), zoom = 4) %>%
  add_grid(data = crash_data, lat = "lat", lon = "lng", cell_size = 1000,
           elevation_scale = 50, layer_id = "grid_layer",
           colour_range = viridisLite::plasma(6))

如果这已经回答了您的问题，那就太好了。您还可以编辑其他细节。