如果有两个变量，如何编辑facet_wrap/grid的标签？

library(ggplot2)

# 创建一个数据集
data <- data.frame(
  x = rnorm(100),
  y = rnorm(100),
  group = rep(c("A", "B"), each = 50)
)

# 绘制散点图
p <- ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  facet_wrap(~ group)

# 自定义标签函数
my_labels <- function(variable, value) {
  if (variable == "group") {
    if (value == "A") {
      return("Group A")
    } else if (value == "B") {
      return("Group B")
    }
  }
  return(value)
}

# 编辑facet_wrap()的标签
p + facet_wrap(~ group, labeller = my_labels)

library(ggplot2)
library(gridExtra)
library(grid)

# 创建两个散点图
p1 <- ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  labs(title = "Plot 1")

p2 <- ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  labs(title = "Plot 2")

# 将ggplot2图形对象转换为grob对象
g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(p2)

# 自定义标签
label1 <- textGrob("Custom Label 1", gp = gpar(fontsize = 12))
label2 <- textGrob("Custom Label 2", gp = gpar(fontsize = 12))

# 将自定义标签添加到grob对象中
g1 <- gtable_add_grob(g1, label1, t = 1, l = 1)
g2 <- gtable_add_grob(g2, label2, t = 1, l = 1)

# 创建一个包含两个子图的布局
layout <- rbind(c(1, 2))

# 绘制包含两个子图的图形
grid.arrange(grobs = list(g1, g2), layout_matrix = layout)