如何在R的ggplot2中创建按十年分组的相邻箱线图？

1. 数据预处理：宽转长+生成十年分组 #

你的原始数据是宽格式（每列对应一个Property），而ggplot2更适配长格式数据，先完成格式转换并生成十年分组列：

# 加载依赖包
library(tidyverse) # 包含ggplot2、tidyr、dplyr

# 假设你的数据框名为df，执行宽转长+十年分组
df_long <- df %>%
  pivot_longer(cols = starts_with("Property"), # 选中所有Property开头的列
               names_to = "Property", # 存储原列名（Property 1/2/3）的新列
               values_to = "Value") %>% # 存储对应属性值的新列
  # 生成十年分组：例如1993→1990，2017→2010
  mutate(Decade = floor(Year / 10) * 10)

2. 十年分组映射到x轴的语法 #

将生成的Decade列作为x轴的映射字段，同时把Property作为分组/填充的美学参数，就能把每个十年区间与对应属性关联起来：

3. 实现箱线图相邻显示 #

之前出现重叠是因为没有对同十年区间下的不同属性箱线图设置位置偏移，用position_dodge()即可解决。完整绘图代码：

ggplot(df_long, aes(x = factor(Decade), # 转成因子，让x轴显示离散的十年区间
                    y = Value,
                    fill = Property)) + # 用填充色区分不同属性
  geom_boxplot(position = position_dodge(width = 0.8), # 控制同区间下箱线的横向间距
               width = 0.7) + # 控制单个箱线的宽度
  labs(x = "Decade", y = "Property Value", fill = "Property") + # 设置轴标签和图例名
  theme_minimal()

关键细节说明： #

• position_dodge(width = 0.8)：核心参数，让同十年区间下的不同属性箱线图横向错开，避免重叠，width值可根据视觉效果调整。
• 把Decade转为因子：原始计算出的Decade是数值（如2000、2010），转成因子后x轴会按离散区间展示，更符合十年分组的逻辑。

如果不想用填充色，也可以用颜色+分组的方式：

ggplot(df_long, aes(x = factor(Decade),
                    y = Value,
                    color = Property,
                    group = interaction(Decade, Property))) + # 明确分组为十年+属性的组合
  geom_boxplot(position = position_dodge(width = 0.8)) +
  labs(x = "Decade", y = "Property Value", color = "Property")

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