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