更改列表中地块的标题

Question

我的绘图 function 有问题。 我已经问过类似的问题， Here are all the data and plotting function 。

当我尝试将我的绘图 function 应用到我的 dfs 列表时，标题会更改并且我在 function 中指定的标题条件不受尊重。 有没有办法重命名列表中的所有图或修复函数/循环以使标题保持不变？

提前致谢

Answer 1

这按预期工作：

mynames <- sapply(names(tbls), function(x) {
  paste("How do they rank? -",gsub("\\.",": ",x))
})

myfilenames <- names(tbls)

plot_likert <- function(x, myname, myfilename){
  p <- plot(likert(x),
          type ="bar",center=3,
          group.order=names(x))+
    labs(x = "Theme", subtitle=paste("Number of observations:",nrow(x)))+ 
    guides(fill=guide_legend("Rank"))+
    ggtitle(myname)
  p
}

list_plots <- lapply(1:length(tbls),function(i) {
  plot_likert(tbls[[i]], mynames[i], myfilenames[i])
}) 

当有疑问时，让事情变得愚蠢和简单。 像deparse(substitute(这样的非标准评估会让你直接进入 Burns 的R inferno 。