geom_freqpoly图例异常求助：55个州数据仅显示8个图例

我来帮你拆解下这个问题——你提到X_state列包含55个州，但绘图后只显示8个州的图例，这绝对不是R自动隐藏图例导致的，大概率是很多州在数据过滤后没有有效样本，或者样本量极低，导致频率多边形根本没被绘制出来。

核心原因分析 #

• 你在数据预处理阶段做了多重非NA校验，还把6个情绪变量都限制在1-5的范围内，这会过滤掉大量不符合条件的样本。很多州可能在过滤后没有剩余的有效数据，自然不会出现在可视化结果里
• geom_freqpoly是基于样本计数生成线条的，如果某个州的样本数为0，或者在所有bin区间里都没有数据，就不会生成对应的线条，图例也就不会显示该州

先验证你的数据分布 #

先统计过滤后每个州的有效样本量，一眼就能明白问题所在：

# 统计每个州的剩余样本数，按数量降序排列
state_sample_counts <- brfss2013_temp %>% 
  dplyr::count(X_state, sort = TRUE)
print(state_sample_counts)

你会发现大部分州的计数要么是0，要么只有个位数样本，这些州的线条不会被绘制，图例自然也不会显示。

解决方案：强制保留所有州的图例 #

如果想要让所有55个州都出现在图例里（哪怕没有数据），可以把X_state转换为因子，并指定原始数据集里的所有州水平，这样ggplot会保留所有水平的图例：

# 先获取原始数据集里的全部州水平（过滤前的完整列表）
all_state_levels <- levels(brfss2013$X_state)

# 将处理后的X_state转换为因子，强制保留所有原始州水平
brfss2013_temp$X_state <- factor(brfss2013_temp$X_state, levels = all_state_levels)

# 重新绘制图形，此时图例会显示所有55个州，无数据的州不会有线条，但图例保留
ggplot(data = brfss2013_temp, mapping = aes(x = misrep, colour = X_state)) + 
  geom_freqpoly(binwidth = 0.2) + 
  labs(x = 'frequency of feeling negative in recent month, 1(all) - 5(none)', 
       colour = 'state')

额外优化：解决图例拥挤问题 #

55个州的图例肯定会很挤，你可以调整图例的排版来优化显示：

ggplot(data = brfss2013_temp, mapping = aes(x = misrep, colour = X_state)) + 
  geom_freqpoly(binwidth = 0.2) + 
  labs(x = 'frequency of feeling negative in recent month, 1(all) - 5(none)', 
       colour = 'state') +
  theme(
    legend.position = "bottom",  # 把图例移到底部
    legend.box = "vertical",     # 垂直排列图例项
    legend.title = element_text(size = 10),
    legend.text = element_text(size = 8)  # 缩小图例文字
  )

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