小编jsi*_*sno的帖子

我想创建从北到南的均匀间隔多段线，每条线之间的间距为 50 英里，长度为 10 英里。不确定这是否可以使用 sf 包。在下面的示例中，我希望线条填充整个华盛顿州的县。

library(tigris)
library(leaflet)

states <- states(cb = TRUE)

counties<-counties(cb=TRUE)

counties<- counties%>%filter(STATEFP==53)

states<- states%>%filter(NAME=="Washington")

leaflet(states) %>%
  addProviderTiles("CartoDB.Positron") %>%
  addPolygons(fillColor = "white",
              color = "black",
              weight = 0.5) %>%
  addPolygons(data=counties,color='red',fillColor = 'white')%>%
  setView(-120.5, 47.3, zoom=8)

我已更新以包含我想在下面执行的操作的图像。

我有一个图像列表，我想将其合并为每组一个图像。每个图像都有一个名称以及它是什么类型的图表。我希望有一种方法可以使用名称对图像进行分组，并为每个组返回单个 jpg 或 png 的输出。组合图像如下所示：

该文件夹包含具有以下命名结构的图像列表： 在本例中，我希望有 3 个基于 bart、lisa 和 marge 的输出组合 png。

"bart Cum Oil.jpg"
"bart GOR.jpg"
"bart Legend.jpg"
"bart Oil Rate.jpg"
"lisa Cum Oil.jpg"
"lisa GOR.jpg"
"lisa Legend.jpg"
"lisa Oil Rate.jpg"
"marge Cum Oil.jpg"
"marge GOR.jpg"
"marge Legend.jpg"
"marge Oil Rate.jpg"

下面是我要组合的四个图像的示例，因为所有图像的名称中都有“bart”。

我有一个包含对角线的多段线的数据集，我想将线旋转到垂直或正北，以便正确显示 x 轴数据。我看过 Rodrigues Formula，但它超出了我的理解范围，并且想知道它们是否是我可以使用的 R 包。请参阅下面的示例，我需要旋转该示例。

library(sf)
library(ggplot2)

ex<-structure(list(OBJECTID = c(10526, 10913), geometry = structure(list(
    structure(c(-103.47406, -103.46268, 31.47367, 31.48499), .Dim = c(2L, 
    2L), class = c("XY", "LINESTRING", "sfg")), structure(c(-103.46525, 
    -103.4788333, 31.4879722000001, 31.4748056), .Dim = c(2L, 
    2L), class = c("XY", "LINESTRING", "sfg"))), n_empty = 0L, crs = structure(list(
    epsg = 4267L, proj4string = "+proj=longlat +datum=NAD27 +no_defs"), class = "crs"), class = c("sfc_LINESTRING", 
"sfc"), precision = 0, bbox = structure(c(xmin = -103.4788333, 
ymin = 31.47367, xmax = -103.46268, ymax = 31.4879722000001), …