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])))
    }

Answer 2

如果從數據框中的列中選取標題，

        V1  V2
    1   Title1  AA
    2   Title2  BB
    3   Title3  CC
    4   Title4  DD
    5   Title5  EE

以下代碼可用於在圖中獲取不同的標題：

    num.plots <- nrow(df)
    for(i in 1:num.plots){
      plot(df$V2~df$V3, main=df$V1[i], type = "l", col="red")
      }