如何为在 lapply 循环中创建的 ggplots 分配唯一的标题和文本标签？

Question

我已经尝试了我可以在堆栈交换上找到的 for 循环和 lapply 循环的每一次迭代来创建 ggplots，这段代码对我来说效果很好。 我唯一的问题是我无法分配唯一的标题和标签。 从我在函数中可以看出，我采用响应变量的值，因此我无法将我想要的标题作为标题字符串中的第 i 个条目进行索引。

我提供的示例创建了具有正确值的绘图，但绘图列表中的第二个和第三个绘图没有正确的标题或标签。

模拟数据集：

library(ggplot2)

nms=c("SampleA","SampleB","SampleC")
measr1=c(0.6,0.6,10)
measr2=c(0.6,10,0.8)
measr3=c(0.7,10,10)
qual1=c("U","U","")
qual2=c("U","","J")
qual3=c("J","","")
df=data.frame(nms,measr1,qual1,measr2,qual2,measr3,qual3,stringsAsFactors = FALSE)

识别数据集中包含响应变量的列

measrsindex=c(2,4,6)

创建显示每次测量的所有样本的图列表

plotlist=list()
plotlist=lapply(df[,measrsindex], function(i) ggplot(df,aes_string(x="nms",y=i))+
             geom_col()+
             ggtitle("measr1")+
             geom_text(aes(label=df$qual1)))

创建显示每个样本的所有测量值的图列表

plotlist2=list()
plotlist2=lapply(df[,measrsindex],function(i)ggplot(df,aes_string(x=measrsindex, y=i))+
              geom_col()+
              ggtitle("SampleA")+
              geom_text(aes(label=df$qual1)))

问题是我无法为每个情节创建唯一的标题。 （示例中的所有图都具有标题“measr1”或“SampleA”）

此外，我无法为每个条形应用唯一标签（来自 qual 列）。 （例如，qual 2 的字母应出现在每个样本的 measr2 列的顶部）

此外，在第二个绘图列表中，x 值不是“measr1”、“measr2”、“measr3”，它们是那些不理想的列的索引值。

我对 R 比较陌生，之前从未在 Stack Overflow 上发过贴，因此欢迎任何有关我的问题或发布问题的反馈。

我发现了很多关于这类主题的问题和答案，但没有一个像我的那样具有数据结构或所需的情节。 如果这是一个多余的问题，我深表歉意，但我试图在以前的答案中找到解决方案，但一直未能找到。

这是我获得原始代码来制作我的循环的地方，但是这个例子不包括标题或标签： 循环使用列的 ggplot2

Answer 1

您可以遍历列的名称而不是列本身，然后使用一些非标准评估从名称中获取列值。 另外，我在aes包含了 label 。

library(ggplot2)
library(rlang)

plotlist3 <- purrr::map(names(df)[measrsindex], 
             ~ggplot(df, aes(nms, !!sym(.x), label = qual1)) + 
               geom_col() + ggtitle(.x) + geom_text(vjust = -1))

plotlist3[[1]]

plotlist3[[2]]

---

lapply也可以实现同样的效果

plotlist4 <- lapply(names(df)[measrsindex], function(x)
  ggplot(df, aes(nms, !!sym(x), label = qual1)) + 
         geom_col() + ggtitle(x) + geom_text(vjust = -1))

Answer 2

我建议在使用ggplot2之前将您的数据放入长格式，它使绘图变得更加简单。 我还重新编码了一些变量以方便构建绘图。 这是使用lapply构造图的代码。

library(tidyverse)

#Change from wide to long format
df1<-df %>% 
  pivot_longer(cols = -nms,
               names_to = c(".value", "obs"),
               names_sep = c("r","l")) %>%
  #Separate Sample column into letters
  separate(col = nms,
           sep = "Sample",
           into = c("fill","Sample"))

#Change measures index to 1-3
measrsindex=c(1,2,3)

plotlist=list()
plotlist=lapply(measrsindex, function(i){
  #Subset by measrsindex (numbers) and plot
  df1 %>%
    filter(obs == i) %>%
    ggplot(aes_string(x="Sample", y="meas", label="qua"))+
    geom_col()+
    labs(x = "Sample") +
    ggtitle(paste("Measure",i, collapse = " "))+
    geom_text()})

#Get the letters A : C
samplesvec<-unique(df1$Sample)

plotlist2=list()
plotlist2=lapply(samplesvec, function(i){
  #Subset by samplesvec (letters) and plot
  df1 %>%
    filter(Sample == i) %>%
    ggplot(aes_string(x="obs", y = "meas",label="qua"))+ 
    geom_col()+
    labs(x = "Measure") +
    ggtitle(paste("Sample",i,collapse = ", "))+
    geom_text()})

看着最后的图，我认为使用facet_wrap来制作这些图可能很有用。 我添加了代码以将其用于您的绘图。

#Plot for Measures
ggplot(df1, aes(x = Sample, 
                y = meas, 
                label = qua)) +
  geom_col()+
  facet_wrap(~ obs) +
  ggtitle("Measures")+
  labs(x="Samples")+
  geom_text()

#Plot for Samples
ggplot(df1, aes(x = obs, 
                y = meas, 
                label = qua)) +
  geom_col()+
  facet_wrap(~ Sample) +
  ggtitle("Samples")+
  labs(x="Measures")+
  geom_text()

这是使用facet_wrap的图facet_wrap 。