R语言ggplot绘制双分组折线图返回空白图的排查与修复

原代码出空白画布、折线无法正常显示的核心原因有3个：

• 代码存在基础语法错误：设置随机种子的函数应为set.seed(123)，原代码写为seed(123)不会生效，不过该问题不直接导致绘图空白。
• x轴的date字段为普通字符串类型，ggplot2会默认按字符字母顺序排列x轴分类（顺序为Apr-2010、Dec-2009、Feb-2010、Jan-2010、Mar-2010），完全打乱了真实时间顺序，破坏了折线的连续逻辑。
• geom_line()绘制折线需要明确识别每一条独立折线的分组规则，原代码仅映射了color=grp，未考虑同grp下还存在subgrp子分组，自动分组逻辑失效，无法正确连接同组观测点，最终无法生成折线。

按以下步骤调整即可实现预期效果，同时满足颜色区分grp、线型区分subgrp、双图例展示的需求：

1. 先将字符型的date字段转换为标准日期格式，保证x轴按真实时间顺序排列。
2. 在美学映射中同时指定color=grp、linetype=subgrp，并显式设置group = interaction(grp, subgrp)，明确告知ggplot每一个grp+subgrp的唯一组合对应一条独立折线，避免自动分组出错。

完整可运行代码如下：

library(dplyr)
library(ggplot2)
library(lubridate)

# 修正随机种子语法，构造示例数据
set.seed(123)
df <- data.frame(date = rep(c("Jan-2010", "Feb-2010", "Mar-2010", "Apr-2010" ,"Dec-2009"),each=5),
                 grp = c(LETTERS[1:5], LETTERS[2:6], LETTERS[1:5],LETTERS[3:7], LETTERS[1:5]),
                 subgrp = c("x","x","x","y","y","x","x","y","y","y","x","x","x","y","y",
                            "x","y","y","y","y","x","x","x","y","y"),
                 value = sample(4:10, 25, replace=TRUE)) %>%
  # 转换日期格式：给月-年字符串补上前缀日期01-，解析为标准Date类型
  mutate(date = my(paste0("01-", date)))

# 绘制折线图
df %>%
  ggplot(aes(x = date, y = value)) +
  geom_line(aes(
    color = grp,
    linetype = subgrp,
    group = interaction(grp, subgrp)
  ), linewidth = 1) +
  # 格式化x轴日期标签为 月-年 格式
  scale_x_date(date_labels = "%b-%Y") +
  theme_bw()

补充说明：示例数据中grp为F、G的观测仅在1-2个日期点存在，没有跨日期的连续观测，因此不会生成可见折线，属于正常表现。运行代码后会自动生成两个独立图例，分别对应grp的颜色映射、subgrp的线型映射，x轴按Dec-2009到Apr-2010的真实时间顺序排列，折线可正常显示。

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