Если заголовок выбирается из столбца в фрейме данных,
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")
}