从r中的线创建多边形

Question

我有一个数据集，其中包含起点的坐标和轨迹的停止点。

首先，我创建了一个SF对象，如下所示，每个点的几何形状为“ line”：

crswgs84 = crs（“ +proj = longlat +datum = wgs84 +no_defs） +ellps = wgs84 +towgs84 = 0,0,0“）

df $ geom = sprintf（“ linestring（％s％s，％s％s）”，df $ start_lon，df $ start_lat，df $ stop_lon，df $ stop_lon，df $ stop_lat，df $ stop_lat ） df_sf = st_as_sf（df，wkt =“ geom”，crs = crswgs84）

然后，当我绘制几何形状时，我获得了所有线的图，这是我寻找的结果，因为我想从一开始就拥有轨迹，停止。但是，我希望能够连接线的终点以构建多边形。

有可能吗？

谢谢

Answer 1

当然，这不仅可能，而且非常简单。您需要做的就是sf :: ST_CAST（）您的行对象类型“ Polygon”。

考虑此代码，线对象是从

library(sf)

#creating data example
id <- c("844", "844", "844", "844", "844","855", "855", "855", "855", "855")

lat <- c(-30.6456, -29.5648, -28.6667, -31.5587, -30.6934, -29.3147, -28.0538, 
         -26.5877, -26.6923, -27.40865)
long <- c(-50.4879, -49.8715, -51.8716, -50.4456, -50.9842, -51.9787, -47.2343, 
          -49.2859, -48.19599, -49.64302)

df <- data.frame(id = as.factor(id), lat, long)

#converting to sf
df.sf <- df %>% 
  sf::st_as_sf(coords = c("long", "lat"), crs = 4326)

#creating linestrings
df.line <- df.sf %>% 
  dplyr::group_by(id) %>%
  dplyr::summarize() %>%
  sf::st_cast("LINESTRING") 


plot(df.line)

“>计数sf linestress在r

# cast to polygons
polygon <- df.line %>% 
  st_cast("POLYGON")

plot(polygon)