ggplot2中geom_text生成字体像素化模糊难以识别问题求助

根因说明 #

默认PDF导出设备未开启矢量文本渲染时，geom_text生成的文本会被转换为位图格式，放大或插入PPT后就会出现模糊像素化的问题，而坐标轴文本走主题渲染逻辑，默认保留矢量格式，因此显示正常。另外你提供的代码第一行aes映射中x=Country,mean属于冗余笔误，可直接删除多余的,mean避免后续报错。

可直接落地的解决方案 #

• 方案1：导出时指定Cairo PDF设备，强制所有文本矢量输出

# 修正笔误后的完整绘图代码
G20_mean <- mean(OECD_CDNpercap_tot_aveplsGDP_select$mean[OECD_CDNpercap_tot_aveplsGDP_select$G20 == "G20"])
G7_mean <- mean(OECD_CDNpercap_tot_aveplsGDP_select$mean[OECD_CDNpercap_tot_aveplsGDP_select$G7 == "G7"])

p <- ggplot(OECD_CDNpercap_tot_aveplsGDP_select, aes(x=Country, y=mean, 
                                                label=paste(round(mean),"(",round(mean_GDPP),"% )"))) +
  geom_col(aes(fill=Can), stat='identity')  +
  geom_hline(yintercept=G20_mean, linetype="dashed")+
  geom_hline(yintercept=G7_mean, linetype="dashed")+
  scale_fill_manual(values=c("red","grey")) + 
  geom_text(color="black", size=4, hjust=-0.05, family="sans")+ 
  geom_text(aes(0, G20_mean, label = paste("G20 ave", round(G20_mean))), size=4, vjust=-1, hjust=-0.22, family="sans")+
  geom_text(aes(0, G7_mean, label = paste("G7 ave", round(G7_mean))), size=4, vjust=-5, hjust=-0.2, family="sans")+
  labs(fill="Country")+
  ylab("per capita spending CDN$ (% of GDP)")+
  ylim(0,17000)+
  xlab("")+
  coord_flip()+
  guides(fill=FALSE)+
  theme_bw()+
  theme(axis.text = element_text(size = 12, family="sans"),
        axis.title = element_text(size = 12, family="sans"))

# 导出矢量PDF，所有文本都不会像素化
ggsave("output_plot.pdf", plot = p, device = cairo_pdf, width = 12, height = 9, dpi = 300)

• 方案2：适配PPT场景直接导出EMF矢量格式（Windows系统可用）
  EMF是Office原生支持的矢量格式，插入PPT后放大缩小都不会模糊，导出代码：

ggsave("output_plot.emf", plot = p, device = "emf", width = 12, height = 9)

• 方案3：导出高分辨率位图兜底
  如果上述矢量方案都不符合需求，可导出600DPI以上的PNG，正常演示场景下不会看出模糊：

ggsave("output_plot.png", plot = p, dpi = 600, width = 12, height = 9)

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