如何用ggplot2基于多数据框绘制自定义复合图形并分别设置样式？

核心问题是你在两个图层中复用了color美学映射，导致后续的渐变颜色scale覆盖了椭圆的分组颜色。通过分离美学映射、独立设置颜色规则，即可实现需求：

完整代码实现 #

set.seed(123) # 固定随机种子保证结果可复现
# 生成数据框
df1 <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(2, 4, 3, 6, 5),
  color = runif(5, 0, 1)
)

df2 <- data.frame(
  x = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
  y = rnorm(10),
  group = rep(c('A', 'B'), each = 5)
)

library(ggplot2)

plotGG <- ggplot() +
  # 绘制背景椭圆：按group绑定颜色
  stat_ellipse(data = df2, aes(x = x, y = y, color = group), linewidth = 1.2) +
  # 添加椭圆质心：计算每组x/y的均值
  stat_summary(data = df2, aes(x = x, y = y, color = group),
               fun = mean, geom = "point", size = 4, shape = 18) +
  # 绘制前景df1的点：用fill映射渐变颜色，shape=21为带填充的圆形
  geom_point(data = df1, aes(x = x, y = y, fill = color),
             size = 3, shape = 21, color = "black") +
  # 手动设置椭圆和质心的颜色：A组紫色，B组绿色
  scale_color_manual(values = c("A" = "#993399", "B" = "#339933")) +
  # 设置点的渐变配色
  scale_fill_gradient2(midpoint = 0.5,
                       low = "#ba1414ff",
                       mid = "#f3f3b9ff",
                       high = "#369121ff") +
  # 自定义图例标题
  labs(color = "分组", fill = "渐变值") +
  theme_minimal()

plotGG

关键调整说明 #

1. 美学映射分离
   • 椭圆和质心使用color美学绑定分组，点使用fill美学绑定渐变值，避免同一美学的颜色规则冲突。
2. 椭圆颜色控制
   • 通过scale_color_manual手动指定两组椭圆的颜色（可根据需求替换色值）。
3. 质心添加
   • 用stat_summary自动计算每组的x/y均值，生成质心点，形状和颜色与对应椭圆统一。
4. 点样式优化
   • 使用shape=21（带边框的填充圆形），既可以显示渐变填充色，又能通过黑色边框在椭圆背景上更清晰地突出点。

内容的提问来源于stack exchange，提问作者Álvaro Scuack