R 使用lappy循环后作为PDF标题的变量

我的循环生成情节效果很好。但是我在PDF标题中找不到变量的名称。我需要这个来连接PDF。我需要在标题中加入的变量是：“kar10$sg_nr”。 下面是我尝试的一行：pdf（paste0（I，“.pdf”），7,5）

eval（）不起作用

pdf（paste0（kar10$sg_nr[i]，“.pdf”）、7、5）没有保持lapply相同的正确顺序。我需要ggplot title的名称作为PDF的名称

有什么想法吗

plist = lapply(split(kar10, kar10$sg_nr), function(memefin) {
  ggplot(kar10,aes(x =ORDO,fill=ORDO))+
    geom_bar() +
    xlab("Gruppe")+
    ylab("Anzahl")+
    ggtitle(kar10$sg_nr,kar10$name)
 
#separate single-page PDF
for (i in seq(1, length(plist), 1)) {
  pdf(paste0(i,".pdf"), 7, 5)
  grid.arrange(my_g, arrangeGrob(grobs=plist[i:(i)]),heights=c(1, 9))
  dev.off()
}

---

在

for

循环之前，分别存储

kar10$sg\u nr

的名称列表如何？类似于

pdf\u的名称