Base R plotting function

oldpar <- par(mfrow = c(1, 2))
hist(diamonds$carat)
plot(diamonds$carat, diamonds$price)

par(oldpar)