Добавление заголовков в ggplots, созданные lapply

Question

Как я могу добавить заголовки на основе списка переменных? Код ниже работает для создания 10 сюжетов, но заголовков нет. Я хотел бы, чтобы заголовки отражали переменные, перечисленные в dfList.

dfList<-list(s$Basioccipital,s$Basisphenoid,s$Interparietal,s$L_Frontal,s$L_LateralOccipital,s$L_Nasal,s$L_Parietal,s$L_SquamousTemporal,s$Presphenoid,s$SquamousOccipital)


lapply(dfList, function (x){
  ggplot(data=x,aes(x=Genotype2, y=Volume))+
  geom_boxplot(aes(fill=factor(Genotype2))) + ggtitle(dfList[i])
})

Answer 1

Я не могу проверить это, поскольку вы не включаете никаких данных, но вот потенциальное решение ...

dfList<-list("Basioccipital", "Basisphenoid", "Interparietal",
             "L_Frontal", "L_LateralOccipital", "L_Nasal", "L_Parietal", 
             "L_SquamousTemporal", "Presphenoid", "SquamousOccipital")


lapply(dfList, function (x){
  ggplot(data=s[[x]],aes(x=Genotype2, y=Volume))+
    geom_boxplot(aes(fill=factor(Genotype2))) + ggtitle(x)
})

Answer 2

вы можете использовать следующий код вместо вашего текущего ggtitle:

 ggtitle(names(dfList[i]))