在ggplot2中使用facet_grid对两个格网进行两行数学表达式标注

library(ggplot2)

# 自定义标签函数
custom_labeller <- function(variable, value) {
  # 创建数学表达式
  expression_list <- list(
    "Group 1" = expression(x == 1),
    "Group 2" = expression(y == 2)
  )
  
  # 返回替换后的标签
  return(expression_list[value])
}

# 创建示例数据
df <- data.frame(
  x = rep(c(1, 2), each = 10),
  y = rep(c(1, 2), times = 10),
  value = rnorm(20)
)

# 使用facet_grid进行绘图，并设置自定义标签函数
ggplot(df, aes(x = x, y = value)) +
  geom_point() +
  facet_grid(y ~ x, labeller = custom_labeller)