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]))

向lapply创建的ggplots添加标题

2 个答案: