ggplot2分组条形图无法显示分组问题咨询

我帮你梳理了问题所在，大概率是分组映射设置不当、条形排列方式未指定，再加上NA值的干扰，导致分组显示异常。下面是针对你的数据集的完整解决步骤：

1. 先处理数据中的NA值 #

你的数据里Q6.1B列存在NA值，这些值会干扰分组条形的正常排列，我们可以选择过滤掉，或者将NA转为明确的类别：

选项1：过滤NA值（推荐，聚焦有效数据） #

library(tidyverse)

# 加载你的原始数据
d2 <- tibble(Group = c( 'Leadership', 'Leadership', 'Leadership', 'Leadership', 'Parent', 'Parent', 'Parent', 'Parent', 'Parent', 'Parent', 'Staff', 'Staff', 'Staff', 'Staff', 'Staff', 'Staff', 'Teacher', 'Teacher', 'Teacher', 'Teacher', 'Teacher', 'Teacher'), Q6.1B = c(2,3,4,NA,1,2,3,4,5,NA,1,2,3,4,5,NA,1,2,3,4,5,NA), Count = c(3,12,68,20,21,73,167,314,33,22,4,16,85,231,17,22,2,29,141,410,23,118))

# 过滤NA值，并将Q6.1B转为因子（确保等级按顺序显示）
d2_clean <- d2 %>% 
  filter(!is.na(Q6.1B)) %>% 
  mutate(Q6.1B = factor(Q6.1B, levels = 1:5))

选项2：将NA转为“未回答”类别（保留所有数据） #

d2_clean <- d2 %>% 
  mutate(Q6.1B = ifelse(is.na(Q6.1B), "未回答", as.character(Q6.1B))) %>% 
  mutate(Q6.1B = factor(Q6.1B, levels = c("1","2","3","4","5","未回答")))

2. 创建正确的分组条形图 #

核心是指定fill映射为Q6.1B（组内的子类别），并设置position = position_dodge()让同组内的条形并排显示：

ggplot(d2_clean, aes(x = Group, y = Count, fill = Q6.1B)) +
  # 使用stat="identity"直接用给定的Count值，position_dodge让条形并排
  geom_bar(stat = "identity", position = position_dodge(width = 0.9), width = 0.8) +
  # 添加标签让图表更清晰
  labs(
    title = "不同群体的Q6.1B等级分布",
    x = "群体类别",
    y = "计数",
    fill = "Q6.1B等级"
  ) +
  # 可选：使用简洁的主题
  theme_minimal() +
  # 可选：调整图例位置
  theme(legend.position = "bottom")

关键设置说明 #

• fill = Q6.1B：指定用Q6.1B的不同值作为分组的子类别，实现组内条形区分
• position = position_dodge(width = 0.9)：让同组内的条形并排排列，width参数控制条形之间的间距
• stat = "identity"：因为你的数据已经是汇总好的Count值，不需要ggplot自动统计数量，直接使用现有数值

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