在绘图周围裁剪出ggplot2空格

Question

当使用coord_fixed()更改形状时，有没有办法去除ggplot2图周围的空白区域？我希望将上方和下方的空白区域裁剪掉，以便仅保留绘图区域和轴标签。我在R标记文件中渲染绘图输出而不保存。

 p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
 p + coord_fixed(ratio = 1)

以下代码生成以下图表：

Answer 1

使用时：

ggplot(mtcars, aes(mpg, wt)) + 
  geom_point() + 
  coord_fixed(ratio = 1) +
  ggsave('plot.jpg', width = 6, height = 1.5, dpi = 300)

你会得到一个空白较少的情节：

另一种选择可能是使用png或jpeg设备：

p <- ggplot(mtcars, aes(mpg, wt)) + 
  geom_point() + 
  coord_fixed(ratio = 1)

jpeg('plot.jpg', width = 600, height = 150)
p
dev.off()

Answer 2

如果您正在寻找一种也可用于R markdown的解决方案（即以PDF / HTML格式输出），那么这对我来说就解决了：首先设置纵横比，然后通过{{1 }}设置。

theme()

另请参阅this blog post。

会话信息： MacOs 10.13.6，R 3.6.3，ggplot2_3.3.1