ggplot2:如何将比例尺的图例与解析的标签集成？

# 首先，确保已经安装并加载了ggplot2包
if (!requireNamespace("ggplot2", quietly = TRUE)) {
  install.packages("ggplot2")
}
library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  x = rnorm(100),
  y = rnorm(100),
  group = sample(c("A", "B", "C"), 100, replace = TRUE)
)

# 使用ggplot2绘制散点图，并定制比例尺图例
p <- ggplot(data, aes(x = x, y = y, color = group)) +
  geom_point() +
  scale_color_manual(values = c("red", "blue", "green"),
                     labels = c("Group A", "Group B", "Group C")) +
  guides(color = guide_legend(title = "Groups",
                               override.aes = list(shape = 15, size = 5))) +
  theme(legend.position = "bottom")

# 显示图形
print(p)