基于同一坐标轴绘制数量可变的多张子图

我来帮你搞定这个问题！针对你这种不知道子图数量、需要基于同一时间轴绘制堆叠独立子图的需求，有几个非常优雅的实现方案，同时也会帮你解决lattice包的数据适配问题。

方法一：用ggplot2 + tidyr 实现动态堆叠子图（推荐） #

ggplot2配合tidyr的长格式数据转换，天生适合处理这种可变数量的数据系列，完全不需要预先知道子图数量。

步骤1：准备示例数据（模拟你的场景） #

N <- 10
time <- seq(from=0, to=1, length.out=N+1)
Y <- rnorm(N+1)
X1 <- rnorm(N+1)
X2 <- rnorm(N+1)
X3 <- rnorm(N+1)
lst <- list(time, Y, X1, X2, X3)

步骤2：给列表命名并转换为长格式数据框 #

给列表命名能让后续处理更清晰，然后用pivot_longer把宽格式数据转成适合分面的长格式：

library(dplyr)
library(tidyr)
library(ggplot2)

# 给列表元素命名
names(lst) <- c("time", "Y", "X1", "X2", "X3")

# 转换为长格式数据框
plot_data <- lst %>%
  as.data.frame() %>%
  pivot_longer(cols = -time, names_to = "series", values_to = "value")

步骤3：绘制堆叠子图 #

用facet_wrap自动根据数据系列的数量生成子图，ncol=1实现纵向堆叠，scales="free_y"让每个子图的Y轴自适应数据范围：

ggplot(plot_data, aes(x = time, y = value)) +
  geom_line(linewidth = 1) +
  facet_wrap(~series, ncol = 1, scales = "free_y") +
  labs(x = "Time", y = "Value") +
  theme_bw()

不管你后续添加多少个数据系列（比如X4、X5），这段代码都能自动生成对应数量的堆叠子图，完全不用修改绘图逻辑。

方法二：用patchwork包手动拼接子图（更灵活控制） #

如果你需要对每个子图单独设置样式（比如不同颜色、标题），patchwork包能让你更灵活地拼接子图：

library(patchwork)

# 获取除时间轴外的所有数据系列名称
series_names <- names(lst)[-1]

# 循环生成每个子图的ggplot对象
plot_list <- lapply(series_names, function(series) {
  ggplot(data.frame(time = lst$time, value = lst[[series]]), 
         aes(x = time, y = value)) +
    geom_line(color = ifelse(series == "Y", "#e74c3c", "#3498db")) + # 给Y系列特殊颜色
    labs(title = paste("Series:", series), x = "Time", y = "Value") +
    theme_bw() +
    theme(plot.title = element_text(size = 12))
})

# 纵向堆叠所有子图
wrap_plots(plot_list, ncol = 1)

这个方法会自动遍历所有数据系列生成子图，同样不需要预先知道子图数量。

解决lattice包的数据结构问题 #

你遇到的lattice适配问题，本质是因为lattice需要结构化的数据框（而非原始列表）。只需要把列表转换为长格式数据框，就能正常使用lattice绘制堆叠子图：

library(lattice)

# 复用之前生成的长格式数据框
plot_data_lattice <- plot_data

# 用xyplot绘制堆叠子图
xyplot(value ~ time | series, 
       data = plot_data_lattice,
       type = "l",
       layout = c(1, length(unique(plot_data_lattice$series))), # 自动设置子图行数
       scales = list(y = list(relation = "free")), # 自由Y轴
       par.settings = canonical.theme(color = TRUE))

这里layout的第二个参数用length(unique(...))自动获取数据系列的数量，确保不管有多少个系列，都能纵向堆叠显示。

小提示 #

• 一定要给列表命名，否则转换数据框时列名会变成V1、V2这类无意义的名称，不利于后续处理。
• 确保所有数据系列的长度和时间轴一致，否则转换数据框时会报错。

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