我有两个产品类别的调查结果,这是数据
surveyresults<-data.frame("Name"=c("Adam","John"),
"Gender"=c("m","m"),
"City"=c("Sydney","Melbourne"),
"Product"=c("Fashion","Electronics"),
"fash_pay_cash"=c(5,"NA"),
"fash_pay_card"=c(5,"NA"),
"elc_pay_cash"=c("NA",5),
"elc_pay_card"=c("NA",6),
"fash_DlvTime_morning"=c(5,"NA"),
"fash_DlvTime_afternoon"=c(7,"NA"),
"elc_DlvTime_morning"=c("NA",5),
"elc_DlvTime_afternoon"=c("NA",8))
surveyresults
我需要绘制这个列表中的每个元素
fshnprxlist<-list("fash_pay","fash_DlvTime")
which represents the prefix of each column needed to be ploted and should be the plot title name
![like this](https://i.stack.imgur.com/aRjI5.png)
因为我是调查创建者,所以我根据此列表构建了它
list1<-list("fashion","electronics")
listPM<-list("cash","card")
listDT<-list("morning","afternoon")
fshlistPM<-paste("fash_pay",listPM,sep="_")
fshlistDT<-paste("fash_DlvTime",listDT,sep="_")
elcprxlist<-list("elc_pay","elc_DlvTime")
elclistPM<-paste("elc_pay",listPM,sep="_")
elclistDT<-paste("elc_DlvTime",listDT,sep="_")
我的请求很简单,使用以“第一个元素中每个元素的文本”开头的列为第一个列表的每个元素动态创建绘图