ggplot分组显示散点与置信椭圆及ggsave保存问题求助

1. 问题复现（模拟你的场景） #

先给出和你操作逻辑一致的可复现代码（用iris模拟4分组数据）：

library(ggplot2)

# 生成4分组模拟数据
set.seed(123)
df <- iris
df$Group <- c(rep("Scatter1", 50), rep("Scatter2", 50), rep("Ellipse1", 25), rep("Ellipse2", 25))
df$Group <- factor(df$Group, levels = c("Scatter1", "Scatter2", "Ellipse1", "Ellipse2"))

# 你可能尝试的错误代码
p <- ggplot(df, aes(x = Sepal.Length, y = Sepal.Width, color = Group)) +
  geom_point(data = subset(df, Group %in% c("Scatter1", "Scatter2"))) +
  stat_ellipse(data = subset(df, Group %in% c("Ellipse1", "Ellipse2"))) +
  theme_bw()

p
ggsave("plot.png", p, width = 8, height = 6, units = "cm")

这段代码会出现重复灰色图例、散点样式不符合要求、ggsave显示与窗口不一致的问题。

2. 修正后的完整代码 #

library(ggplot2)

# 模拟4分组数据（替换成你的实际数据即可）
set.seed(123)
df <- iris
df$Group <- c(rep("Scatter1", 50), rep("Scatter2", 50), rep("Ellipse1", 25), rep("Ellipse2", 25))
df$Group <- factor(df$Group, levels = c("Scatter1", "Scatter2", "Ellipse1", "Ellipse2"))

# 核心修正代码
p <- ggplot(df, aes(x = Sepal.Length, y = Sepal.Width)) +
  # 散点图层：仅显示两个散点分组，用形状21实现填充色+黑边框
  geom_point(data = subset(df, Group %in% c("Scatter1", "Scatter2")),
             aes(fill = Group), color = "black", shape = 21, size = 2) +
  # 置信椭圆图层：仅显示两个椭圆分组，关闭自身图例避免重复
  stat_ellipse(data = subset(df, Group %in% c("Ellipse1", "Ellipse2")),
               aes(color = Group), show.legend = FALSE) +
  # 统一填充色和颜色的图例名称，避免拆分
  scale_fill_discrete(name = "分组") +
  scale_color_discrete(name = "分组") +
  theme_bw() +
  # 调整边距保证绘图区域尺寸匹配设置值
  theme(plot.margin = margin(1, 1, 1, 1, "cm"))

# 查看绘图效果
p

# 保存固定尺寸图像：严格匹配x8cm、y6cm，dpi保证清晰度
ggsave("scatter_ellipse_plot.png", p, width = 8, height = 6, units = "cm", dpi = 300)

关键问题解决说明 #

• 重复灰色图例：原代码中geom_point和stat_ellipse都基于color=Group生成图例，导致重复。修正后将散点用fill映射分组色，椭圆用color映射，同时让椭圆图层关闭图例（show.legend=FALSE），再统一图例名称，实现合并显示。
• 散点填充色+黑边框：使用带填充的形状（如21号圆形），fill绑定分组颜色，color固定为黑色，完美实现你要的样式。
• ggsave与窗口显示不一致：RStudio窗口默认比例和保存尺寸不匹配，通过ggsave明确指定宽高单位，同时设置dpi=300保证输出清晰度，调整plot.margin让绘图区域实际尺寸更接近设置值，消除显示差异。

内容的提问来源于stack exchange，提问作者Pier Volc