ggforce geom_circle参差不齐，丑陋难看

Question

我试图使用ggforce来创建一个类似Venn的绘图覆盖图，但是出来的圆圈看起来非常可怕。有没有可能提高它们的平滑度？我试着增加n(点数)，但似乎没有什么不同。

jdCoords %>% ggplot(aes(x,y, label=word)) +
       coord_fixed() + 
       geom_circle(aes(x0 = 0, y0 = 0.5, r = 1.25), n=180, linetype="solid", size=1, inherit.aes = FALSE) +
       geom_circle(aes(x0 = 0.75, y0 = -1, r = 1.25), n=180, linetype="dotted",size=1,inherit.aes = FALSE) +
       geom_circle(aes(x0 = -0.75, y0 = -1, r = 1.25), n=180, linetype="dashed",size=1,inherit.aes = FALSE) +
       theme_bw() + 
       theme(panel.border = element_blank(), 
         panel.grid.major = element_blank(),
         panel.grid.minor = element_blank(), 
         axis.line = element_line(colour = "black"))

​

​

Answer 1

这可能更多地与渲染/导出图形的方式有关。你能提供更多关于你的平台/输出通道的信息吗？(例如，您是否要另存为PNG、PDF、...？是否将结果包含在Word文档中？)下面，我使用ggsave("circles.png", dpi=600)来获得比平常更高的分辨率PNG。

可重现的例子：

library(ggforce)
library(ggplot2)
ggplot() +
coord_fixed() + 
       geom_circle(aes(x0 = 0, y0 = 0.5, r = 1.25), n=180, linetype="solid", size=1, inherit.aes = FALSE) +
       geom_circle(aes(x0 = 0.75, y0 = -1, r = 1.25), n=180, linetype="dotted",size=1,inherit.aes = FALSE) +
       geom_circle(aes(x0 = -0.75, y0 = -1, r = 1.25), n=180, linetype="dashed",size=1,inherit.aes = FALSE) +
       theme_bw() + 
       theme(panel.border = element_blank(), 
         panel.grid.major = element_blank(),
         panel.grid.minor = element_blank(), 
         axis.line = element_line(colour = "black"))
ggsave("circles.png",dpi=600)

​

​