for循环中的多个图忽略par [英] Multiple plots in for loop ignoring par
问题描述
我正在尝试生成 10 对图,每页图有几对,并且正在使用 for
循环来构建对.但是,这些图会作为单独的图而不是页面发送到设备.
下面的 MWE 对于基础图形和 ggplot
版本具有相同的结构,但基础图形有效而 ggplot
无效.我需要做什么才能在第二个版本中正确分页?
库(ggplot2)附加(mtcars)# 正确的配置par(mfrow=c(2,2))for (ii in 1:3){vars <- c("wt", "disp", "wt")情节(获取(变量[ii]),mpg)hist(get(vars[ii]))}# 将每个放在单独的图上par(mfrow=c(2,2))for (ii in 1:3){vars <- c("wt", "disp", "wt")p <- ggplot(mtcars, aes(get(vars[ii]), mpg)) + geom_point(size=4)情节(p)p <- ggplot(mtcars, aes(get(vars[ii]))) + geom_histogram()情节(p)}分离(mtcars)
这是一种使用 cowplot::plot_grid
实现的方法.plot_duo
函数使用
ml1 <- marrangeGrob(plt, nrow = 2, ncol = 1)# 交互使用毫升1
# 非交互式使用,多页 pdfggsave("multipage.pdf", ml1)
I am trying to generate 10 pairs of plots with a few pairs per page of plots, and am using a for
loop to construct the pairs. However, the plots are sent to the device as separate plots instead of pages.
The MWE below has identical constructions for base graphics and ggplot
versions, but the base graphics works and ggplot
does not. What do I need to do to get the pagination correct in the second version?
library(ggplot2)
attach(mtcars)
# correct configuration
par(mfrow=c(2,2))
for (ii in 1:3){
vars <- c("wt", "disp", "wt")
plot(get(vars[ii]), mpg)
hist(get(vars[ii]))
}
# places each on separate plot
par(mfrow=c(2,2))
for (ii in 1:3){
vars <- c("wt", "disp", "wt")
p <- ggplot(mtcars, aes(get(vars[ii]), mpg)) + geom_point(size=4)
plot(p)
p <- ggplot(mtcars, aes(get(vars[ii]))) + geom_histogram()
plot(p)
}
detach(mtcars)
Here is one way to do it with cowplot::plot_grid
. The plot_duo
function uses tidyeval
approach in ggplot2 v3.0.0
# install.packages("ggplot2", dependencies = TRUE)
library(rlang)
library(dplyr)
library(ggplot2)
library(cowplot)
plot_duo <- function(df, plot_var_x, plot_var_y) {
if (is.character(plot_var_x)) {
print('character column names supplied, use ensym()')
plot_var_x <- ensym(plot_var_x)
} else {
print('bare column names supplied, use enquo()')
plot_var_x <- enquo(plot_var_x)
}
if (is.character(plot_var_y)) {
plot_var_y <- ensym(plot_var_y)
} else {
plot_var_y <- enquo(plot_var_y)
}
pts_plt <- ggplot(df, aes(x = !! plot_var_x, y = !! plot_var_y)) + geom_point(size = 4)
his_plt <- ggplot(df, aes(x = !! plot_var_x)) + geom_histogram()
duo_plot <- plot_grid(pts_plt, his_plt, ncol = 2)
}
### use character column names
plot_vars1 <- c("wt", "disp", "wt")
plt1 <- plot_vars1 %>% purrr::map(., ~ plot_duo(mtcars, .x, "mpg"))
#> [1] "character column names supplied, use ensym()"
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
#> [1] "character column names supplied, use ensym()"
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
#> [1] "character column names supplied, use ensym()"
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
plot_grid(plotlist = plt1, nrow = 3)
### use bare column names
plot_vars2 <- alist(wt, disp, wt)
plt2 <- plot_vars2 %>% purrr::map(., ~ plot_duo(mtcars, .x, "mpg"))
#> [1] "bare column names supplied, use enquo()"
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
#> [1] "bare column names supplied, use enquo()"
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
#> [1] "bare column names supplied, use enquo()"
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
plot_grid(plotlist = plt2, nrow = 3)
To separate plots into multiple pages, we can use gridExtra::marrangeGrob
ml1 <- marrangeGrob(plt, nrow = 2, ncol = 1)
# Interactive use
ml1
# Non-interactive use, multipage pdf
ggsave("multipage.pdf", ml1)
这篇关于for循环中的多个图忽略par的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!