Мне нужно скопировать карту тепла , которую можно найти по ссылке: https://rpubs.com/chrisbrunsdon/gwdplyr
Я попробовал сам подход, однако не могу воспроизвести окончательную карту тепла с шестигранным цветом .
Мои основные проблемы в том, что у меня проблемы с созданием даже неокрашенной карты, использование st_buffer(), st_make_grid() по какой-то причине занимает много времени и не может быть сохранено, поскольку файл очень большой.
Я привел пример с местоположением, на котором мне нужно нанести heatmap, тогда значения будут дискретными и будут использоваться в качестве цвета в heatmap
library(sf)
library(dplyr)
library(ggplot2)
library(ggspatial)
df <-
data.frame(
x = runif(1000, min = 14.22, max = 14.71),
y = runif(1000, min = 49.94, max = 50.18),
value = sample(c(1:8))
)
hp <-
df%>%
st_as_sf(coords=c("x","y"),crs=27700)
gl_hexes <- st_buffer(hp,1) %>%
st_make_grid(cellsize=c(0.0005, 0.0005),square=FALSE) %>%
st_sf() %>% mutate(hex_ID=sprintf('Hex%04d',row_number()))
Я буду благодарен за любой совет ...