与lapply循环循环以添加带有GGPLOT中一列中值的文本的错误

Question

我正在跟进我的最后一个问题因为我有点贪婪，我想在我的地块上添加更多东西，所以我决定创建一个新帖子。

因此，总而言之，我想在一个循环中制作几个地块，有人建议使用Lapply，这在当时想要的一切都很好。但是现在，我想添加一个文本报告标题下的额外列的相应值。以下代码采用了@stefan的建议，我对其进行了一些更改。

因此，我尝试了一个示例的数据帧子集的代码，并且它运行良好，但是当与Lapply循环时，我获得了一个空GGPLOT对象的列表...

这是使用随机示例的代码：

# Random example data
set.seed(123)
n <- 20
Dta <- data.frame(
  sample = rep(LETTERS[seq(n)], each = 100),
  x = rep(letters[seq(n)], each = 100),
  value = rnorm(100 * n)
)

library(ggplot2)
library(gghighlight)
library(patchwork)

## Test with one sample
temp_df = subset(Dta, Dta$sample == "A")
letter = paste("Expected letter :",unique(temp_df$x, sep = " "))
ggplot(Dta, aes(x=value, group=sample, 
                color = sample)) +
  geom_density()+
  labs(x = "value", 
       y = "Density")+
  theme_classic()+
  theme(legend.position="none", 
        plot.title = element_text(hjust = 0.5))+
  gghighlight(sample == "A",
              unhighlighted_params = list(colour = "grey90"))+
  #Add title and text from column x
  ggtitle("A")+
  annotate("text", x = 0.5, y = 3, label = letter, fontface = 'italic')
rm(temp_df)

# All samples with the loop

plot_fun <- function(highlight) {
  temp_df = subset(Dta, Dta$sample == highlight)
  letter = paste("Expected letter :",unique(temp_df$x, sep = " "))
  ggplot(Dta, aes(x=value, group= sample, 
                  color = sample)) +
    geom_density()+
    labs(x = "value", 
         y = "Density")+
    theme_classic()+
    theme(legend.position="none", 
          plot.title = element_text(hjust = 0.5))+
    gghighlight(sample == highlight,
                unhighlighted_params = list(colour = "grey90"))+
  #Add title and text from column x
    ggtitle(highlight)+
    annotate("text", x = 0.5, y = 3, label = letter, fontface = 'italic')
  rm(temp_df)
  rm(letter)
}

Samples <- unique(Dta$sample)

# Make plots
p <- lapply(Samples, plot_fun)

这是一个样本的所需输出。

，然后当我删除+ antotate（“ text”，“ text”，x = = 0.5，y = 3，label =字母，fontface ='italic'），它起作用。因此，添加注释会使整个Lapply步骤出错。

你的想法是什么？我在做什么错？是否有另一种方法可以做我想做的事？

感谢您的帮助！

Answer 1

问题是您的绘图函数返回null，这是rm（...）代码行的结果。删除这些行，您的代码正常工作：

# Random example data
set.seed(123)
n <- 20
Dta <- data.frame(
  sample = rep(LETTERS[seq(n)], each = 100),
  x = rep(letters[seq(n)], each = 100),
  value = rnorm(100 * n)
)

library(ggplot2)
library(gghighlight)

# All samples with the loop

plot_fun <- function(highlight) {
  temp_df <- subset(Dta, Dta$sample == highlight)
  letter <- paste("Expected letter :", unique(temp_df$x, sep = " "))
  ggplot(Dta, aes(
    x = value, group = sample,
    color = sample
  )) +
    geom_density() +
    labs(
      x = "value",
      y = "Density"
    ) +
    theme_classic() +
    theme(
      legend.position = "none",
      plot.title = element_text(hjust = 0.5)
    ) +
    gghighlight(sample == highlight,
      unhighlighted_params = list(colour = "grey90")
    ) +
    # Add title and text from column x
    ggtitle(highlight) +
    annotate("text", x = 0.5, y = 3, label = letter, fontface = "italic")
}

Samples <- unique(Dta$sample)

# Make plots
p <- lapply(Samples, plot_fun)

p[5]
#> [[1]]

Answer 2

那尝试这个呢？只需将图存储为P，然后在函数末尾返回变量P即可。它适用于函数lapply（）。

plot_fun <- function(highlight) {

  temp_df = subset(Dta, Dta$sample == highlight)
  letter = paste("Expected letter :",unique(temp_df$x, sep = " "))
  
  p <-
  ggplot(Dta, aes(x=value, group= sample, 
                  color = sample)) +
    geom_density()+
    labs(x = "value", 
         y = "Density")+
    theme_classic()+
    theme(legend.position="none", 
          plot.title = element_text(hjust = 0.5))+
    gghighlight(sample == highlight,
                unhighlighted_params = list(colour = "grey90"))+
    #Add title and text from column x
    ggtitle(highlight)+
    geom_text(aes(label = "text", x = 0.5, y = 0.3))
  
  rm(temp_df)
  rm(letter)
  
  return(p)
}