Several ggplots plots with different heights and widths wrapped in function

user_283538 0
Viewed 45

Apologies, this is not a fully reproducible example but should hopefully convey the gist of my problem using the current approach. I (try to) use the following code in a Jupyter notebook to print several graphs with different sizes:

#reporducible data
temp <- mtcars[, 1:3]
colnames(temp) <- c("x1", "z", "y1")

plotting_function <- function(data_to_vis) {
  
  options(repr.plot.width = 5, repr.plot.height = 5) 
  p1 <- ggplot(data_to_vis, aes(x=x1, y=y1)) +
    geom_point(size = 3)         
  print(p1)
  
  options(repr.plot.width = 20, repr.plot.height = 20) 
  p2 <- ggplot(data_to_vis, aes(x=x1, y=y1)) +
    geom_point() +
    facet_wrap(~z) +
    theme(aspect.ratio = 1)
  print(p2)
}

library(ggplot2)
plotting_function(temp)

Using:

options(repr.plot.width = 5, repr.plot.height = 5)

usually works fine but not in this use case - it is not adhered to - the first graph p1 is printed using:

options(repr.plot.width = 20, repr.plot.height = 20)

Maybe there is a better approach for this use case?

jupyter-notebook ggplot2 r
1 Answers

I don't use Jupyter, so I experimented with https://jupyter.org/try to come up with this "solution". I can't explain it, but to me it certainly looks like a bug.

The problem is that options() settings aren't handled in the expected order. The options you set apply to the previous plot. So this simple change to your script worked for me:

temp <- mtcars[, 1:3]
colnames(temp) <- c("x1", "z", "y1")

plotting_function <- function(data_to_vis) {
  
  p1 <- ggplot(data_to_vis, aes(x=x1, y=y1)) +
    geom_point(size = 3)         
  print(p1)
  options(repr.plot.width = 5, repr.plot.height = 5) 

  p2 <- ggplot(data_to_vis, aes(x=x1, y=y1)) +
    geom_point() +
    facet_wrap(~z) +
    theme(aspect.ratio = 1)
  print(p2)
  options(repr.plot.width = 20, repr.plot.height = 20) 
  
}

library(ggplot2)
plotting_function(temp)

You can also move the first options() setting before printing p1, but you can't move the second one before printing p2, or it will also apply to p1.

Bug? Looks like it to me.

user_25543300
Related