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

我正试图把情节画成一个循环。但是我如何在每个情节上加上不同的标题呢？在这个例子中，我希望我的8个密度图有不同的名称，比如beta[治疗]，beta[时间虚拟]，等等。谢谢

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

---

如果标题是从数据框中的列中选取的

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

num.plots
        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")
      }