使用 ggplot2 在点周围创建阴影多边形

Question

昨天看到this beautiful map of McDonalds restaurants in USA. I wanted to replicate it for France (I found some data that can be downloaded here).

我画点没问题:

library(readxl)
library(ggplot2)
library(raster)

#open data
mac_do_FR <- read_excel("./mcdo_france.xlsx")
mac_do_FR_df <- as.data.frame(mac_do_FR)

#get a map of France
mapaFR <- getData("GADM", country="France", level=0)

#plot dots on the map
ggplot() +
    geom_polygon(data = mapaFR, aes(x = long, y = lat, group = group), 
                 fill = "transparent", size = 0.1, color="black") +
    geom_point(data = mac_do_FR_df, aes(x = lon, y = lat), 
               colour = "orange", size = 1)

我尝试了几种方法（泰森多边形、热图、缓冲区），但得到的结果很差。我无法弄清楚阴影多边形是如何绘制在美国地图上的。有什么指点吗？

Answer 1

这是我的结果，但确实需要一些手动数据整理。

步骤 1：获取地理空间数据。

library(sp)

# generate a map of France, along with a fortified dataframe version for ease of
# referencing lat / long ranges

mapaFR <- raster::getData("GADM", country="France", level=0)
map.FR <- fortify(mapaFR)

# generate a spatial point version of the same map, defining your own grid size 
# (a smaller size yields a higher resolution heatmap in the final product, but will
# take longer to calculate)
grid.size = 0.01
points.FR <- expand.grid(
  x = seq(min(map.FR$long), max(map.FR$long), by = grid.size),
  y = seq(min(map.FR$lat), max(map.FR$lat), by = grid.size)
)
points.FR <- SpatialPoints(coords = points.FR, proj4string = mapaFR@proj4string)

第二步：根据店铺位置生成voronoi图，并获取对应的多边形作为SpatialPolygonsDataFrame对象。

library(deldir)
library(dplyr)

voronoi.tiles <- deldir(mac_do_FR_df$lon, mac_do_FR_df$lat,
                        rw = c(min(map.FR$long), max(map.FR$long),
                               min(map.FR$lat), max(map.FR$lat)))
voronoi.tiles <- tile.list(voronoi.tiles)
voronoi.center <- lapply(voronoi.tiles, 
                         function(l) data.frame(x.center = l$pt[1],
                                                y.center = l$pt[2],
                                                ptNum = l$ptNum)) %>% 
                             data.table::rbindlist()
voronoi.polygons <- lapply(voronoi.tiles,
                           function(l) Polygon(coords = matrix(c(l$x, l$y), 
                                                               ncol = 2), 
                                               hole = FALSE) %>%
                             list() %>%
                             Polygons(ID = l$ptNum)) %>%
  SpatialPolygons(proj4string = mapaFR@proj4string) %>%
  SpatialPolygonsDataFrame(data = voronoi.center,
                           match.ID = "ptNum")

rm(voronoi.tiles, voronoi.center)

步骤 3。检查地图上每个点与哪个voronoi多边形重叠，并计算其到相应最近商店的距离。

which.voronoi <- over(points.FR, voronoi.polygons)    
points.FR <- cbind(as.data.frame(points.FR), which.voronoi)
rm(which.voronoi)

points.FR <- points.FR %>%
  rowwise() %>%
  mutate(dist = geosphere::distm(x = c(x, y), y = c(x.center, y.center))) %>%
  ungroup() %>%
  mutate(dist = ifelse(is.na(dist), max(dist, na.rm = TRUE), dist)) %>%
  mutate(dist = dist / 1000) # convert from m to km for easier reading

步骤 4。绘图，根据需要调整填充渐变参数。我觉得平方根变换的结果看起来很适合强调离商店很近的距离，而对数变换有点太夸张了，但你的里程可能会有所不同。

ggplot() +

  geom_raster(data = points.FR %>%
                mutate(dist = pmin(dist, 100)),
             aes(x = x, y = y, fill = dist)) +

  # optional. shows outline of France for reference
  geom_polygon(data = map.FR,
               aes(x = long, y = lat, group = group),
               fill = NA, colour = "white") +

  # define colour range, mid point, & transformation (if desired) for fill
  scale_fill_gradient2(low = "yellow", mid = "red", high = "black", 
                       midpoint = 4, trans = "sqrt") +

  labs(x = "longitude", 
       y = "latitude",
       fill = "Distance in km") +

  coord_quickmap()

使用 ggplot2 在点周围创建阴影多边形

Create shaded polygons around points with ggplot2

maps

r

knn

ggplot2