ggpattern更新后图案不沿多边形边界呈现

在ggpattern 0.4.5版本中，该问题已被修复。可以使用以下代码来安装更新的ggpattern包，并运行示例代码以验证问题是否已解决：

remotes::install_github("coolbutuseless/ggpattern")
library(ggplot2)
library(ggpattern)

data("midwest")

# create a square polygon outside of midwest area
outlier <- data.frame(longitude = c(-98, -92, -92, -98),
                      latitude = c(28, 28, 36, 36)) %>%
  sf::st_as_sf(coords = c("longitude", "latitude"),
               crs = 4269) %>%
  dplyr::mutate(id = "outlier")

# combine midwest data with outlier polygon
data <- dplyr::bind_rows(midwest, outlier)

# plot using old version of ggpattern
ggplot(data) +
  geom_sf(fill = "white", color = "black") +
  ggpattern::geom_sf_pattern(aes(fill = state, pattern = "cross4")) +
  theme_void()

# plot using updated ggpattern package
ggplot(data) +
  geom_sf(fill = "white", color = "black") +
  ggpattern::geom_sf_pattern(aes(fill = state, pattern = "cross4")) +
  theme_void(pattern_density = 0.1)

如果更新ggpattern包后遇到问题，请查看包的文档和github页面上的问题列表以获取更多信息和帮助。