如何在R绘图中用循环批量绘制data.frame的40列数据？

嘿，这个问题太常见了，手动写40行points()确实繁琐到让人头大，用个简单循环就能轻松搞定！你只需要保留原来的绘图初始化代码，然后用循环遍历data.frame的每一列就行，给你两种直观的实现方式：

方式一：按列名循环（可读性拉满） #

这种方式直接遍历每一列的名称，代码逻辑一目了然：

windows()
plot(NULL,xlim=c(0,17),ylim=c(5000,90000),xaxt='n',xlab="", ylab="")

# 循环遍历所有列名
for(col_name in colnames(df)){
  points(df[[col_name]], type="b", pch=15, col="gold3")
}

方式二：按列索引循环（简洁高效） #

如果你习惯用索引操作数据，也可以这么写：

windows()
plot(NULL,xlim=c(0,17),ylim=c(5000,90000),xaxt='n',xlab="", ylab="")

# 循环遍历列的索引（自动适配列数）
for(i in 1:ncol(df)){
  points(df[, i], type="b", pch=15, col="gold3")
}

小补充：为什么这两种方法好用？ #

• colnames(df)会返回data.frame的所有列名（这里就是c1到c40），df[[col_name]]能精准提取对应列的数据；
• ncol(df)会自动获取列的总数，就算以后你的data.frame列数变了，代码也不用手动修改，自动适配新的列数。

这样就不用重复写40行几乎一样的代码啦，一次循环就能完成所有列的绘制～

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