R 在给定点的多边形内创建线

给定一个空间多边形

library(sf)

df <- data.frame(
  lon = c(119.4, 119.4, 119.4, 119.5, 119.5),
  lat = c(-5.192, -5.192, -5.167, -5.167, -5.191)
)

polygon <- df %>%
  st_as_sf(coords = c("lon", "lat"), crs = 4326) %>%
  summarise(geometry = st_combine(geometry)) %>%
  st_cast("POLYGON")

库（sf）
df%
总结（几何=联合收割机（几何））%>%
st_cast（“多边形”）

里面有一些要点

df2 <- data.frame(
  lon = c(119.45, 119.49, 119.47),
  lat = c(-5.172, -5.190, -5.183)
)

points <- df2 %>%
  st_as_sf(coords = c("lon", "lat"), crs = 4326) %>%
  summarise(geometry = st_combine(geometry)) %>%
  st_cast("MULTIPOINT")

df2%
总结（几何=联合收割机（几何））%>%
st_cast（“多点”）

如何通过每个点从多边形的一端到另一端绘制一条直线？也就是说，在多边形内绘制三条直线，每条直线穿过一个点。我发现了几个连接点或使用点作为起点和终点位置的绘制线的示例，但在我的例子中，这些点只是标记水平线所需的y值

---

提前谢谢

此方法仅在点上循环，并使用

多边形的x坐标和
点的y坐标创建一个新的
LINESTRING
对象：

库（sf）
图书馆（dplyr）
df%
总结（几何=联合收割机（几何））%>%
st_cast（“多边形”）
绘图（多边形）
df2%
总结（几何=联合收割机（几何））%>%
st_cast（“多点”）
绘图（点，添加=真，col=“红色”）
#循环求解
xminmax我想看看
geosphere
包：