How to return combined plot object in a function with single handler in R

Question

I have the following code:

attach(mtcars)
par(mfrow=c(2,2))
plot(wt,mpg, main="Scatterplot of wt vs. mpg")
plot(wt,disp, main="Scatterplot of wt vs disp")
hist(wt, main="Histogram of wt")
boxplot(wt, main="Boxplot of wt")

Which create this:

What I want to do is to put those code inside a function so that it returns an object that holds these plots with a single handler. How can I achieve that?

I tried this but doesn't work:

test_handle <- function() {

  attach(mtcars)
  par(mfrow=c(2,2))
  plot(wt,mpg, main="Scatterplot of wt vs. mpg")
  plot(wt,disp, main="Scatterplot of wt vs disp")
  hist(wt, main="Histogram of wt")
  boxplot(wt, main="Boxplot of wt")

  # how can I put 4 objects into 1 handler and return it?

}

Possibly helpful: [Save a plot in an object](https://stackoverflow.com/questions/29583849/save-a-plot-in-an-object) — Tim Biegeleisen, Jul 20 '18 at 05:36

score 0 · Answer 1 · answered Jul 20 '18 at 06:07

0

Write the function return() inside the function like this:

test_handle <- function() {
  attach(mtcars)
  return(par(mfrow=c(2,2)))
  plot(wt,mpg, main="Scatterplot of wt vs. mpg")
  plot(wt,disp, main="Scatterplot of wt vs disp")
  hist(wt, main="Histogram of wt")
  boxplot(wt, main="Boxplot of wt")
}

Hope it helps.

answered Jul 20 '18 at 06:07

antecessor

2,688
6
29
61

Thanks, but I tried calling `test_handle()` it shows no plot. – littleworth Jul 20 '18 at 06:14
Ohhh yes. I don't know what happened, but it worked on my computer. By the way, I copy/pasted and run your code and it worked for me – antecessor Jul 20 '18 at 07:21

How to return combined plot object in a function with single handler in R

1 Answers1