R中使用循环绘制的不同标题

Question

我想在循环中制作情节.但是我如何在每个情节上添加不同的标题？在这个例子中,我想要8个密度图的不同名称,例如beta [Treatment],beta [Time Dummy]等等.谢谢!

par(mfrow=c(4,2)
for (i in 2:8) {
  plot(density(beta[,i]))
  title(main=substitute(paste('Density of ', beta[Treatment]))))
}

Answer 1

tvec <- c("Treatment", "Time Dummy")

par(mfrow=c(2,1))
for(i in 1:2){
    plot(density(beta[,i]), 
         main=substitute(paste('Density of ', beta[a]), list(a=tvec[i])))
    }

或者实际上,如果您的下标的名称是以下列的名称beta:

par(mfrow=c(4,2))
for(i in 2:8){
    plot(density(beta[,i]), 
         main=substitute(paste('Density of ', beta[a]), list(a=colnames(beta)[i])))
    }