如何通过geom_tile()和facet_wrap()使用自定义的x和y标签

library(ggplot2)

# 创建一个数据框
data <- data.frame(
  x = c("A", "B", "C", "D"),
  y = c("1", "2", "3", "4"),
  value = c(1, 2, 3, 4)
)

# 使用geom_tile()创建矩形图层，并设置自定义的x和y标签
plot <- ggplot(data, aes(x = x, y = y, fill = value)) +
  geom_tile() +
  xlab("自定义x标签") +
  ylab("自定义y标签")

# 使用facet_wrap()创建多个子图，并设置自定义的x和y标签
plot <- plot + facet_wrap(~ variable, labeller = labeller(variable = c(
  "A" = "自定义x标签1",
  "B" = "自定义x标签2",
  "C" = "自定义x标签3",
  "D" = "自定义x标签4"
)))

# 显示图形
print(plot)