使用ggsave保存ggplot为png时scale_color_manual设置颜色丢失问题

问题原因 #

• 核心诱因是你在scale_shape_manual中使用了emoji字符作为散点形状：emoji属于Unicode文本类渲染元素，Windows系统下ggsave默认调用的grDevices::png原生图形设备对这类特殊字符的渲染支持存在缺陷，会导致关联的颜色映射规则失效。
• RStudio的Plots面板采用内置的Web渲染引擎，对emoji的兼容性更好，因此预览效果正常；手动从面板导出时调用的是面板的渲染逻辑，也可以正常保留颜色。
• 你当前的运行环境为Windows 10 + R 4.0.4，正好命中了原生png设备的兼容性问题。

可行解决方案 #

方案1（推荐）：使用ragg设备导出 #

ragg是R生态中专门优化图形渲染的包，对Unicode字符、颜色映射的兼容性远高于原生png设备，操作方法如下：

1. 先安装ragg包：install.packages("ragg")
2. 调用ggsave时显式指定设备为ragg的agg_png：

ggsave("images/review/mean_AllAgents_test.png",
       plot1, 
       width = 11, 
       height = 6.5, 
       dpi = 400,
       device = ragg::agg_png)

方案2：启用原生png设备的cairo渲染 #

如果不想安装额外包，可以在ggsave中添加type = "cairo"参数，启用cairo渲染后端优化兼容性：

ggsave("images/review/mean_AllAgents_test.png",
       plot1, 
       width = 11, 
       height = 6.5, 
       dpi = 400,
       type = "cairo")

额外注意事项 #

你当前代码中scale_color_manual的labels设置为c("4 cylinder", "5 cylinder")，但你提前通过filter(between(cyl, 6, 8))仅保留了cyl为6、8的观测值，实际映射的因子水平为6、8，图例标签和实际取值不匹配，建议修改为对应取值的标签避免误解。

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