Я пытаюсь составить гистограмму из списка переменных. Я могу получить участки. Но я хочу, чтобы у каждого графика был заголовок, использующий имя переменной, чтобы я мог определить, какие переменные используются в графике. И то же самое для легенды. Я попробовал функции 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]])
})
Большое спасибо !!