ggplot2 调整绘图区域大小

章鱼猫先生

发布于 2021-10-15 13:10:09

19K00

代码可运行

文章被收录于专栏：BioIT爱好者BioIT爱好者

运行总次数：0

代码可运行

熟悉 R 绘图的朋友肯定知道，在普通绘图中，图片的大小可以直接在 png() 和 pdf() 中指定，而绘图区大小则可以用 par() 中的 mar 或 mai 来指定。但是在 ggplot2 中，图片大小依然可以在 png 和 pdf 中设定，但是边界大小， par 函数似乎就不奏效了。至今天探索，才发现原来这个参数隐藏在 theme 中，其名为 plot.margin 。

1. 原图

library(ggplot2)
library(ggthemes)
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point(aes(colour=factor(cyl))) + guides(color=F)
p <- p + theme_solarized(light=FALSE) + scale_colour_solarized('blue')
ggsave("test0.png", units="in", dpi=300, width=4, height=4, device="png")

2. 第一次调整边界参数

library(ggplot2)
library(ggthemes)
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point(aes(colour=factor(cyl))) + guides(color=F)
p <- p + theme_solarized(light=FALSE) + scale_colour_solarized('blue')
p <- p + theme(plot.margin=unit(rep(1,4),'cm'))
ggsave("test1.png", units="in", dpi=300, width=4, height=4, device="png")

3. 第二次调整边界参数

library(ggplot2)
library(ggthemes)
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point(aes(colour=factor(cyl))) + guides(color=F)
p <- p + theme_solarized(light=FALSE) + scale_colour_solarized('blue')
p <- p + theme(plot.margin=unit(rep(3,4),'cm'))
ggsave("test2.png", units="in", dpi=300, width=4, height=4, device="png")