向量列表逐元素绘图：寻求高效的自动化实现方案

你需要将列表中各向量的对应元素分别连成折线，手动写法重复且扩展性差，这里提供两种高效的自动化实现方式：

方法一：基础循环实现 #

先把列表转换为矩阵并转置，让每组待绘制的对应元素成为矩阵的一行，再通过循环批量绘制折线：

my_list <- list(x=c(.1,.2,.7), y=c(.3,.5,.8), z=c(.4,.6,.9))

# 将列表转为列矩阵后转置，每行对应一组要绘制的元素
mat <- t(do.call(cbind, my_list))
x_vals <- seq_len(ncol(mat)) # x轴取值为列表元素的数量（x、y、z共3个）

# 初始化绘图，设置y轴范围覆盖所有数据
plot(x_vals, mat[1,], type = "l", ylim = range(mat))

# 循环绘制剩余所有折线
for (i in 2:nrow(mat)) {
  lines(x_vals, mat[i,])
}

方法二：用apply函数简化（无显式循环） #

利用apply函数遍历矩阵行，替代手动循环，代码更简洁：

my_list <- list(x=c(.1,.2,.7), y=c(.3,.5,.8), z=c(.4,.6,.9))

mat <- t(do.call(cbind, my_list))
x_vals <- seq_len(ncol(mat))

# 初始化绘图
plot(x_vals, mat[1,], type = "l", ylim = range(mat))

# 批量绘制剩余行对应的折线
apply(mat[-1, , drop = FALSE], 1, function(row) lines(x_vals, row))

这两种方案都能自动适配列表中向量数量或元素长度的变化，无需手动修改绘图代码，完全替代重复的lines调用。

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