如何在变量列表上绘制图表，同时将其名称保存在r中

Question

我尝试在变量列表上制作条形图。我可以得到情节。但我希望每个绘图都使用其变量名称标题，以便我可以识别绘图中使用的变量。传说也是如此。我尝试了函数as.character（）和as.name（）来获取它们的名字。但他们没有工作。我不知道如何检索他们的变量名称。我的第二个lappy函数也出现了类似的问题。我的代码如下：

varlist1=c(name[11:40)
ev="aff"

lapply(varlist1, function(nm) 
{
     q1=ggplot(data,aes(fill=data[[as.name(nm)]],x=aff))
     q1+geom_bar(stat="count",position="dodge")+theme_bw()+
     ggtitle(as.character(data[[nm]]),"By Aff")
}) 

lapply(varlist1, function(nm) 
{
     table(data[[as.name(nm)]], data[[ev]])
 })

非常感谢!!