如何用Excel和R构建多数据系列对比图表？

一、推荐图表类型 #

1. 分组条形图（优先选择） #

• 优势：能直观对比同一维度（P3/M1/M2/MC）下，不同动物新旧版本的数值差异，视觉横向对比清晰，完全适配你的多系列对比需求。
• 适配场景：你的数据是分类维度下的多组数值对比，和分组条形图的使用场景高度匹配。

2. 可选：簇状柱形图（竖版分组条形图） #

• 优势：如果分类维度（P3/M1/M2/MC）名称较短，竖版柱形图会更节省横向空间，同样能清晰呈现对比关系。

不推荐的类型 #

• 折线图：适合展示时序数据的趋势，你的维度是独立分类，用折线图会混淆维度间的逻辑关系。
• 堆叠条形图：更适合展示单维度内各系列的占比，而非绝对数值的对比，不符合你的需求。

二、数据呈现优化技巧 #

• 突出核心对比：把同一动物的old/new系列设置为相近色系（比如Horse old用深蓝色，Horse new用浅蓝色），不同动物用不同色系组，方便快速区分。
• 处理空值：表格中Donkey old在P3/M1/M2的空值，图表中直接留空或标注“无数据”，避免误导。
• 添加数据标签：在每个条形/柱形上标注具体数值，让观众无需看坐标轴就能获取精确数据。
• 简化坐标轴：Y轴范围设置为0-100（因为所有数据都是百分比类数值），避免不必要的刻度干扰。
• 分组归类：可以把Horse/Mule/Donkey/All的old/new分别归为一组，图例按组排列，提升可读性。

三、Excel实现步骤 #

1. 整理数据：确保数据结构如下（空值保留）：

2. 插入图表：选中整个数据区域（包括表头和行标签），点击「插入」→「图表」→「簇状条形图/柱形图」。
3. 优化格式：
   • 右键选择「数据标签」→「添加」，显示每个条形的数值。
   • 右键坐标轴→「设置坐标轴格式」，将Y轴最小值设为0，最大值设为100。
   • 在「图表设计」中调整色系，给同一动物的old/new设置渐变或同色系深浅。
   • 调整图例位置，建议放在图表右侧或底部，避免遮挡数据。

四、R实现代码（ggplot2） #

1. 数据预处理（转为长格式，适配ggplot2） #

library(ggplot2)
library(tidyr)

# 创建数据框
data <- data.frame(
  Category = c("P3", "P3", "P3", "P3", "P3", "P3", "P3", "P3",
               "M1", "M1", "M1", "M1", "M1", "M1", "M1", "M1",
               "M2", "M2", "M2", "M2", "M2", "M2", "M2", "M2",
               "MC", "MC", "MC", "MC", "MC", "MC", "MC", "MC"),
  Series = rep(c("Horse old", "Mule old", "Donkey old", "All old", 
                 "Horse new", "Mule new", "Donkey new", "All new"), 4),
  Value = c(98.6, 100, NA, 98.8, 100, 100, NA, 100,
            80, 100, NA, 80, 100, 100, NA, 100,
            95, 62.5, NA, 90.5, 100, 81.3, NA, 97.4,
            87.7, 100, 0, 88.4, 97.5, 100, 100, 97.9)
)

# 去除空值行
data_clean <- drop_na(data)

2. 绘制分组条形图 #

ggplot(data_clean, aes(x = Category, y = Value, fill = Series)) +
  geom_bar(stat = "identity", position = position_dodge(width = 0.8), width = 0.7) +
  geom_text(aes(label = Value), position = position_dodge(width = 0.8), vjust = -0.5, size = 3.5) +
  scale_fill_brewer(palette = "Paired") + # 配对色系，自动区分old/new
  ylim(0, 105) + # 预留空间放置数据标签
  labs(title = "动物新旧版本各维度结果对比",
       x = "维度", y = "数值", fill = "系列") +
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5),
        legend.position = "bottom")

代码说明 #

• position_dodge 设置分组条形的间距，确保同一分类下的条形不重叠。
• scale_fill_brewer 使用配对色系，自动让同一动物的old/new颜色相近，不同动物颜色区分明显。
• geom_text 添加数据标签，vjust = -0.5 让标签在条形上方，避免遮挡。

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