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))

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