buffer - st_buffer 不同距离的多点

Question

我有一个 sfc_multipoint 对象，想要使用 st_buffer，但多点对象中每个点的距离不同。 这可能吗？

多点对象是坐标。 table = data

每个坐标点(在表中的“lon”和“lat”中)应该有一个不同大小的缓冲区。该缓冲区大小包含在表中的“dist”行中。 该表称为数据。

这是我的代码:

library(sf)
coords <- matrix(c(data$lon,data$lat), ncol = 2)
tt     <- st_multipoint(coords)
sfc    <- st_sfc(tt, crs = 4326) 
dt     <- st_sf(data.frame(geom = sfc))
web    <- st_transform(dt, crs = 3857)
geom   <- st_geometry(web)
buf    <- st_buffer(geom, dist = data$dist)

但它只使用 (0.100) 的第一个距离。 这就是结果。只是非常小的缓冲区。 small buffer

有关可视化，请参阅此图片。这只是一个例子，表明缓冲区应该变大。 example result

Answer 1

我认为这里的问题在于您如何“创建”点数据集。

使用虚拟数据复制代码，执行以下操作:

library(sf)
data   <- data.frame(lat = c(0,1,2,3), lon = c(0,1,2,3), dist = c(0.1,0.2,0.3, 0.4))
coords <- matrix(c(data$lon,data$lat), ncol = 2)
tt     <- st_multipoint(coords)

不会为您提供多个点，而是一个 MULTIPOINT 功能:

tt
#> MULTIPOINT (0 0, 1 1, 2 2, 3 3)

因此，只能将单个缓冲区距离“传递”给它，您将得到:

plot(sf::st_buffer(tt, data$dist))

为了解决这个问题，您可能需要以不同的方式构建点数据集。例如，使用:

tt <- st_as_sf(data, coords = c("lon", "lat"))

给你:

tt
#> Simple feature collection with 4 features and 1 field
#> geometry type:  POINT
#> dimension:      XY
#> bbox:           xmin: 0 ymin: 0 xmax: 3 ymax: 3
#> epsg (SRID):    NA
#> proj4string:    NA
#>  dist    geometry
#> 1  0.1 POINT (0 0)
#> 2  0.2 POINT (1 1)
#> 3  0.3 POINT (2 2)
#> 4  0.4 POINT (3 3)

您会看到 tt 现在是一个由 4 个点组成的简单特征集合，在其上具有多个距离的缓冲确实可以工作:

plot(sf::st_buffer(tt, data$dist))

呵呵!