如何在县地图中使用图案而不是颜色？

你快到了！

尝试理解 的机制{ggplot2}，特别是阅读aesthetics. 我建议您将美学分为 (映射)aesthetics和 (固定) parameters。
这并不是一件小事......但它可以帮助您导航。

该扩展{ggpattern}使用相同的规则。

根据经验：

• ggplot 适用于“长”表
• 您在其中映射美学（读取数据表的列）aes()
• 您在 aes() 之外“设置”参数（认为默认/标准值）

关键点是：您通常希望映射是多个值（也称为列中的不同值），而参数是固定值/单例（例如“白色”、NA、0.5 等）。

您没有提供可重现的示例，因此我使用了一组快速的欧洲国家，并以简单的方式添加了该Both列。我们将其插入 ggplot 和 ggpattern 中：

library(tidyverse)
library(rnaturalearth) # for the map data
library(sf)
library(ggpattern) # for the pattern fill

# extract play data by selecting a set of European countries
Europe <- ne_countries(scale = 'medium', type = 'map_units', returnclass = 'sf', continent="Europe"
, country = c("Germany","France","Belgium", 
              "Luxembourg","Switzerland","Austria","Italy")
)
# add the "Both" values as arbitrary repetition
Europe <- Europe |> 
    select(sovereignt) |> 
    mutate(Both = rep(c("Both", 'Neither', 'Low_Income'),3)) #this works as Belgium comes as 3 Polygons

# plot the map
ggplot() +     # it is not required to reference the dataframe, if used in lower layers 
  geom_sf(        data = Europe, lwd = 0.5) +   # base map with borderlines, black is default color
  geom_sf_pattern(data = Europe,                # supply map sf object
                  aes(pattern = Both, pattern_fill = Both),  # map aesthetics
                  pattern_color = "NA", pattern_density = 0.5) # set parameters outside aes()

这会产生一个图，其中

• 该列的不同值Both用于确定填充的情况，然后确定实际的填充模式
• 条纹的“线条”被删除（未显示），因为我们将其设置为“固定”值，即NA（请注意，您可以将颜色设置为类似于在底图中所做的颜色）
• 图案的密度设置为您喜欢的固定值

如果您绘制了图表，您将看到 ggplot 创建了图案密度和图案填充的图例。这表明 ggplot 试图将这些价值观映射为美学。您还应该注意到，“颜色”图例显示为“白色”（您使用的文本标签），但显示为“红色”（ggplot 的第一个离散默认颜色 - 因为它将单个值映射到第一个默认颜色 [如果您尚未定义另一个调色板）。

对于虚线、实线等图案，请查看文档{ggpattern}，或者也许其他人可以在这里提供帮助。我没有使用这个扩展。但我确信有一种方法可以控制条纹的类型（实线、虚线、点划线）或定义个人图案并通过图层将它们插入scale_magicstripetypes()。

一种选择是映射pattern_angle到县名等。您可以使图案填充灰色，关闭图案颜色，并减小图案比例以使其更小：

library(tidyverse)
library(tigris)
library(ggpattern)
library(sf)

ne_counties_dataframe <- counties("Nebraska")

ggplot(ne_counties_dataframe) + 
  geom_sf(data = ne_counties_dataframe, color = 'black', lwd = 0.5) + 
  geom_sf_pattern(aes(pattern_angle = NAME), pattern = "stripe",
                  pattern_fill = "gray50", pattern_colour = NA,
                  pattern_spacing = 0.02, fill = "white") +
  theme_minimal(base_size = 16) +
  theme(legend.position = "none") +
  ggtitle("Counties of Nebraska")