ggplot 导出的抗锯齿

Question

是否可以对导出的 ggplot 图进行精细的抗锯齿处理？我已经尝试过这个Cairo包以及一些不同的设备，但它们似乎都有锯齿状的边缘。

library(ggplot2)
library(Cairo)

p <- ggplot(data.frame(x=1:5,y=1:5),aes(x=x,y=y))+
  geom_text(aes(2.5,2.5),label="Brown Fox bla bla..",size=5)+
  labs(x=NULL,y=NULL)+
  theme_bw()+
  theme(plot.background=element_blank(),
        plot.margin = margin(c(0,0,0,0)),
        axis.title = element_blank(),
        axis.text = element_blank(),
        axis.ticks = element_blank(),
        axis.line = element_blank(),
        panel.grid = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank())

png("test-nocairo.png",height=2,width=6,units="cm",res=300)
print(p)
dev.off()

png("test-cairo.png",height=2,width=6,units="cm",res=300,type="cairo")
print(p)
dev.off()

tiff("test-cairo.tiff",height=2,width=6,units="cm",res=300,type="cairo")
print(p)
dev.off()

ggsave("test-ggsave.png",height=2,width=6,units="cm",dpi=300,type="cairo")

PNG 没有开罗

PNG 开罗

TIFF开罗

PNG ggsave 开罗

出于我的目的，重要的是图像是 300dpi 的 PNG 或 TIFF（无损）。我知道我可以导出为矢量格式（SVG、PDF 等），然后使用另一个程序转换为 PNG/TIFF，但这显然是额外的工作。我很好奇 R 中是否有任何我忽略的解决方案。

作为参考，以上是photoshop的渲染质量。PNG Arial 14pt。

Answer 1

好的。我可能在这里偶然发现了一些东西。当我使用annotate而不是 时geom_text，cairo抗锯齿似乎起作用了。

p <- ggplot(data.frame(x=1:5,y=1:5),aes(x=x,y=y))+
  annotate("text",x=2.5,y=2.5,label="Brown Fox bla bla..",size=5)+
  labs(x=NULL,y=NULL)+
  theme_bw()+
  theme(plot.background=element_blank(),
        plot.margin = margin(c(0,0,0,0)),
        axis.title = element_blank(),
        axis.text = element_blank(),
        axis.ticks = element_blank(),
        axis.line = element_blank(),
        panel.grid = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank())

png("test-annotate-cairo.png",height=2,width=6,units="cm",res=300,type="cairo")
print(p)
dev.off()

因此，似乎geom_text过度绘制了可能存在问题的相同文本。我认为这种过度绘制的问题在某个时候已经得到解决。我认为抗锯齿还有改进的空间，但已经比以前好很多了。