将数据框的列名称作为每列的图表标题

Question

我有一个包含36列和超过3000行的数据框。我在for loop内使用绘图功能来绘制每列的图形。我希望图表的标题显示为列名。我怎样才能做到这一点？

for(i in c(1:36)){
  plot(DowData[,i],type="l",main="colnames(DowData)[i]")
}

Answer 1

使用lapply可以遍历列名：

 invisible(lapply(colnames(DowData),function(x){
      plot(DowData[,x],main=x,type="l")
    }))

Answer 2

data <- read.csv("sample.csv",header=T,sep=",")
for ( i in seq(1,length( data ),1) ) plot(data[,i],ylab=names(data[i]),type="l")

这应该工作