plot multiple plots in r

1par(mfrow=c(2,2))

1
2par(mfrow=c(1,2))    # set the plotting area into a 1*2 array
3barplot(max.temp, main="Barplot")
4pie(max.temp, main="Piechart", radius=1)
5par(mfrow=c(1,1))

1par(mfrow=c(1,1))
2
3# make labels and margins smaller
4par(cex=0.7, mai=c(0.1,0.1,0.2,0.1))
5
6# define area for the plot
7par(fig=c(0.1,0.7,0.3,0.9))
8
9# define area for the boxplot
10par(fig=c(0.8,1,0,1), new=TRUE)
11
12

1# Plotting the electrical parameters around the detected failure
2library(devEMF)
3emf(file = "Electrical parameters on inverter saturation.emf", emfPlus = TRUE)
4plot(y=yRange$Pac, x=yRange$Time, type='l', ylim=c(0,1100), xlab='Time', ylab='Vmp, Pac, Imp', lwd=2)
5lines(y=yRange$Pmp, x=yRange$Time, col='blue', lwd=2)
6lines(y=yRange$Vmp, x=yRange$Time, col='red', lwd=2)
7legend(yRange$Time[round(0.725*nrow(yRange))], 1100, legend=c("AC Power (kW)", "DC Power (kW)", "DC Voltage (V)"),
8       col=c("black", "blue", "red"), lty=1, cex=0.8,
9       title='Legend', text.font=4, bg='lightblue')
10#lines(y=yRange$Imp, x=yRange$Time, col='purple', lwd=2)
11#lines(y=yRange$GI, x=yRange$Time, col='green3', lwd=2)
12dev.off()
13

1# One figure in row 1 and two figures in row 2
2# row 1 is 1/3 the height of row 2
3# column 2 is 1/4 the width of the column 1
4attach(mtcars)
5layout(matrix(c(1,1,2,3), 2, 2, byrow = TRUE),
6   widths=c(3,1), heights=c(1,2))
7hist(wt)
8hist(mpg)
9hist(disp)

1# for ggplot
2ggarrange(bxp, dp,  common.legend = TRUE)