r - CairoPNG 增加了图边距之外的文本大小

Question

我有一个用 ggplot2 创建的图表我想使用 CairoPNG因为特别是在创建饼图时 png和 jpeg创建一个非常像素化的图像。问题是CairoPNG似乎修改了文本大小等，尤其是在图例中，一个键的文本与另一个键重叠，或者，像上面一样

library(ggplot2)
library(Cairo)

df <- data.frame(id=c("IMPORT VALUES YTD", "EXPORT VALUE YTD"),
                 value=c(6,4))

chart <- ggplot(df) +
  geom_bar(aes(x=factor(1), y=value, fill=factor(id)),
           stat="identity", width = 1, color="white") +
  coord_polar(theta="y")  +
  theme(legend.title=element_blank(),
        legend.position="top",
        legend.text=element_text(size=14))

CairoPNG("test1.png", 350, 400)
chart
dev.off()

png("test2.png", 350, 400)
chart
dev.off()

你知道如何避免这种情况吗？

Answer 1

这是改编自 @rcs answer 的解决方法.
添加到您的代码中:

library(grid)

和内部 theme堵塞:

plot.margin = unit(c(0,2,0,0), "lines")