Я думаю, что данные, которые вы предоставили, относятся к Италии. Если это так, то это совершенно нормально. Это решение вашей проблемы. Просто измените значения широты и долготы местоположения.
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))
Если это ответило на ваш вопрос, это хорошо. Вы также можете редактировать другие мелкие детали.