使用ggsave（）保存以黑暗为主题的绘图会创建白色边框面板

Question

我需要我的图表有一个深灰色主题来匹配演示文稿样式。我还需要它们固定高度，但宽度可能会有所不同，具体取决于y轴上标签的长度。当我尝试导出或保存时，.jpg或.png文件中始终存在白色边栏。

这里有一些我用来创建图表的示例代码（这里有一些额外的主题控件，对简化示例来说是多余的，但结果图表基本上就是我生成的内容）：

library(ggplot2)
bar.font <- 8

title <- "Example"
l_labs <- c("")
x_labs <- c("A","B","C")
ests <- c(.5,.3,.2)
nerrs <- c(.05, .05, .05)
perrs <- nerrs

barchart.data <- data.frame(l_labs, x_labs, ests, nerrs, perrs)
p <- ggplot(barchart.data, aes(x=x_labs, y=ests*100)) + 
  geom_bar(stat="identity", color="#808080", position=position_dodge(), width=0.85, fill="#808080") +
  geom_text(aes(y=ests*100+perrs*100+1.5, label=sprintf("%1.1f%%", 100*ests)), vjust=0.5, hjust=0, size=bar.font, color="white") +
  geom_errorbar(aes(ymin=ests*100-nerrs*100, ymax=ests*100+perrs*100), width=.2, position=position_dodge(.9), color="white", size=0.25) + 
  labs(title=title, x="", y = "") + theme_classic() + 
  scale_y_continuous(expand = c(0,0),limits = c(0,115), breaks=c(0, 20, 40, 60, 80, 100)) + 
  theme(legend.position="none", legend.text = element_text(color = "white")) +
  theme(title = element_text(size=18, colour = "white")) +
  theme(axis.text = element_text(size=20, color = "white"), axis.line = element_line(color = "white")) +
  theme(axis.text.x = element_text(margin=margin(9,0,0,0)),axis.text.y = element_text(margin=margin(0,9,0,0))) +
  theme(axis.title = element_text(size=20, color = "white")) +
  theme(axis.title.x = element_text(margin = margin(10,0,0,0))) +
  theme(axis.ticks = element_line(colour = 'white', size = .5)) +
  coord_flip() +
  theme(aspect.ratio = 1) +
  theme(panel.background = element_rect(fill = "#1e1e1e")) +
  theme(legend.justification=c(1,0), legend.position=c(1,0)) +
  theme(plot.background = element_rect(fill = "#1e1e1e", color = "#1e1e1e")) +
  theme(panel.grid.major.x = element_line(colour = "white",size=0.1, linetype = "dotted"))

ggsave("test.jpg", height=10, units="in")

以下是导出的.jpg的样子。我不能指定一个确切的宽度，因为我不知道每个图表的宽度会有多大。感谢您提供任何指导。

Answer 1

您可以将背景颜色设置为您喜欢的任何值：

ggsave("test.jpg", height=10, units="in", bg = "#1e1e1e")

这会处理白条。

bg文档中未提及ggsave()选项可能有点令人困惑。这是因为它是图形设备的一部分，这里是jpeg()。它在jpeg()文档中提到。

this post.

深入讨论了首先出现白条的原因