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

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")

这应该有效