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")