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