ggplot geom_sf无数据图例分类不显示（已设drop=F）问题求助

问题核心：你的模拟数据x范围是5-49，对应的<5%和>50%分类本来就没有数据，即便加了drop=FALSE，ggplot的填充刻度默认只会渲染有数据的因子级别，需要手动强制指定所有要显示的图例分类。

修改步骤：

1. 提前定义所有需要展示的图例分类，确保覆盖从<5%到>50%的全区间
2. 对x分箱时，将因子的levels设置为提前定义的分类列表，同时保留drop=FALSE
3. 在填充刻度函数（如scale_fill_manual）中，用limits参数指定所有分类，强制渲染空级别

修改后的完整代码示例：

plot_sa4_map <- function(data) {
  # 定义完整的图例分类区间
  full_categories <- c("<5%", "5-10%", "10-20%", "20-30%", "30-40%", "40-50%", ">50%")
  
  # 对x变量分箱，强制保留所有预定义分类
  data$x_category <- cut(
    data$x,
    breaks = c(-Inf, 5, 10, 20, 30, 40, 50, Inf),
    labels = full_categories,
    include.lowest = TRUE,
    drop = FALSE
  )
  
  # 绘制SA4级别地图
  ggplot(data) +
    geom_sf(aes(fill = x_category)) +
    scale_fill_manual(
      # 自定义配色（可根据需求调整）
      values = c("#fee5d9", "#fcae91", "#fb6a4a", "#de2d26", "#a50f15", "#67000d", "#000000"),
      # 强制显示所有预定义分类
      limits = full_categories,
      name = "比例区间"
    ) +
    theme_minimal()
}

# 模拟SA4级别数据（x范围5-49）
set.seed(456)
sim_sa4_data <- data.frame(
  x = sample(5:49, 88, replace = TRUE),  # SA4在澳州共88个区域
  geometry = sf::st_sfc(lapply(1:88, function(i) {
    sf::st_polygon(list(rbind(c(0,0), c(1,0), c(1,1), c(0,1), c(0,0))))
  }))
)
sim_sa4_data <- sf::st_sf(sim_sa4_data)

# 生成地图
plot_sa4_map(sim_sa4_data)

关键说明：

• drop=FALSE仅作用于因子本身，防止空级别被自动删除，但ggplot的刻度不会主动渲染这些空级别
• limits参数是核心：它会强制告诉ggplot，不管有没有数据，都要展示指定的所有分类，这样<5%和>50%的图例就会正常显示

内容的提问来源于stack exchange，提问作者missanita