2

我发现这段代码是关于使用 mapdeck 完成的英国道路交通伤亡地图的代码。

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

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

谢谢！

4

1 回答 1

2

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

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

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

于 2020-03-06T13:23:57.120 回答