plot multiple plots in r code example

Example 1: change how many plots you view r

par(mfrow=c(2,2))

Example 2: two plots side by side r

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

Example 3: par in r

par(mfrow=c(1,1))

# make labels and margins smaller
par(cex=0.7, mai=c(0.1,0.1,0.2,0.1))

# define area for the plot
par(fig=c(0.1,0.7,0.3,0.9))

# define area for the boxplot
par(fig=c(0.8,1,0,1), new=TRUE)

Example 4: plot multiple lines in r

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

Example 5: plot multiple plots in r

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

Example 6: common legend for multiple plots in r

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