R语言堆叠条形图重排求助：首次与末次问卷响应对比可视化

Hey there! 作为刚学R3个月的新手，能想到这么细致的可视化需求已经超棒啦😉 我来帮你搞定这个图例排序和图表显示的问题～

核心问题分析 #

你遇到的矛盾本质是：分开绘图时没统一图例的有序性，合并后又没处理好数据变量的类型映射。咱们一步一步来解决：

第一步：正确编码问卷选项为对称数值 #

首先得把5级文字选项转换成符合你要求的正负值，同时保留有序因子来控制后续图例的顺序。假设你的问卷选项从负到正的顺序是：Completely Insufficient → Quite Insufficient → Moderate（中间项）→ Quite Sufficient → Completely Sufficient，按照你的需求设置数值映射：

# 定义数值映射：负面为负，正面为正，中间项居中
score_mapping <- c(
  "Completely Insufficient" = -2,
  "Quite Insufficient" = -1,
  "Moderate" = 0,  # 要是你说的"中间选项是Quite Insufficient"，可以改成把它设为-0.5，下一个选项设为+0.5，灵活调整
  "Quite Sufficient" = 1,
  "Completely Sufficient" = 2
)

如果你的选项里没有Moderate，直接调整映射就行——核心是让数值围绕0对称，实现居中显示。

第二步：合并数据并统一变量类型 #

分开两个数据框绘图时，图例顺序乱是因为没有统一分组的优先级；合并后图表异常大概率是因为分组变量（比如「首次/末次响应」）是普通字符型，没有指定顺序。咱们合并时直接把分组标记加上，同时转成有序因子：

# 给两个数据框添加响应类型标记
first_df$response_type <- "首次响应"
last_df$response_type <- "末次响应"

# 合并数据
combined_df <- rbind(first_df, last_df)

# 把关键变量转成有序因子，控制顺序
combined_df$response <- factor(
  combined_df$response,
  levels = names(score_mapping),  # 用映射的名字来指定选项顺序，保证数值和文字对应
  ordered = TRUE
)
combined_df$response_type <- factor(
  combined_df$response_type,
  levels = c("首次响应", "末次响应"),  # 指定图例显示顺序
  ordered = TRUE
)
combined_df$region <- factor(combined_df$region, ordered = TRUE)  # 地区也可以指定顺序

# 添加得分列
combined_df$score <- score_mapping[as.character(combined_df$response)]

第三步：绘图并确保图例与图表正常 #

用ggplot2绘图时，直接基于合并后的有序因子映射，就能同时保证图表显示和图例顺序正确：

library(ggplot2)

ggplot(combined_df, aes(x = region, y = score, fill = response_type)) +
  # 用箱线图展示分布，或者用柱状图展示均值，按需切换
  geom_boxplot(position = position_dodge(width = 0.8), alpha = 0.7) +
  # geom_bar(stat = "summary", fun = "mean", position = position_dodge(width = 0.8)) +
  scale_fill_manual(values = c("#E64B35", "#3182BD")) +  # 自定义颜色，可选
  labs(
    title = "不同地区用户首次与末次问卷响应对比",
    x = "地区",
    y = "响应得分",
    fill = "响应类型"
  ) +
  theme_minimal()

为什么之前的方法出问题？ #

• 分开绘图时：两个图表的图例没有共享统一的有序因子，所以R会默认按字符顺序排序，导致乱序
• 合并后异常：大概率是没有把response_type转成有序因子，或者数值映射时选项顺序不匹配，导致分组错位

这样调整后，既能保证图例按你想要的「首次→末次」顺序显示，图表的分组也不会错位啦～

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