如何使用for循环将数据绘制为R中的箱形网格(4x3)？

install.packages("ggplot2")
install.packages("gridExtra")

set.seed(123)
data <- data.frame(group = rep(LETTERS[1:4], each = 25),
                   value = rnorm(100))

plots <- list()

library(ggplot2)

for (i in unique(data$group)) {
  plot <- ggplot(data[data$group == i,], aes(x = group, y = value)) +
    geom_boxplot() +
    ggtitle(paste("Group", i)) +
    theme_minimal()
  
  plots[[i]] <- plot
}

library(gridExtra)

grid.arrange(grobs = plots, nrow = 4, ncol = 3)