使用R语言ggplot2绘制两个数据集的合并可视化图表

要把df1和df2的数据展示在同一图表中，核心思路是先给两个数据集添加分组标识，合并后再用ggplot2按分组区分可视化，具体步骤如下：

步骤1：加载所需包 #

先确保安装并加载ggplot2和dplyr（用于数据处理，也可用基础R实现）：

# 首次运行需安装包
install.packages(c("ggplot2", "dplyr"))

# 加载包
library(ggplot2)
library(dplyr)

步骤2：处理数据集 #

给两个数据集添加年份分组列，合并成一个数据框，同时将Item列转为日期格式（让x轴显示更规范）：

# 给df1添加分组标识
df1 <- df1 %>% mutate(Year = "2017")
# 给df2添加分组标识
df2 <- df2 %>% mutate(Year = "2018")

# 合并两个数据集
combined_df <- bind_rows(df1, df2)

# 将Item列转换为日期格式
combined_df$Item <- as.Date(combined_df$Item, format = "%Y%m%d")

步骤3：绘制图表 #

以折线+散点的对比图为例（可根据附图调整图形类型），用color参数区分两个年份的数据：

ggplot(combined_df, aes(x = Item, y = Value, color = Year, group = Year)) +
  geom_line(linewidth = 1) +  # 绘制折线
  geom_point(size = 3) +      # 绘制数据点
  labs(
    title = "两年数据对比",
    x = "日期",
    y = "数值",
    color = "年份"
  ) +
  theme_minimal() +  # 使用简洁主题
  scale_x_date(date_labels = "%Y-%m-%d", date_breaks = "1 month")  # 调整x轴日期显示格式

如果附图是分组柱状图，只需替换图形层代码为geom_col(position = "dodge")即可。

内容的提问来源于stack exchange，提问作者Alegría