ggplot_build中的group列如何与原始因子级别相对应？

library(ggplot2)

# 创建一个数据框
df <- data.frame(
  x = c(1, 2, 3, 4),
  y = c(2, 4, 6, 8),
  group = factor(c("A", "A", "B", "B"))
)

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

# 构建绘图对象的数据结构
plot_data <- ggplot_build(p)

# 获取原始因子的级别
factor_levels <- levels(df$group)

# 将group列中的整数值映射到对应的因子级别
group_levels <- factor_levels[plot_data$data[[1]]$group]

# 打印结果
print(group_levels)