# Kod 1.7. Konstrukcja wykresu rozrzutu z rozkładami brzegowymi
opar <- par(no.readonly=TRUE)
par(fig=c(0, 0.85, 0, 0.85))
plot(mtcars$mpg, mtcars$wt,
xlab="Waga samochodu",
ylab="Liczba mil na galonie paliwa")
par(fig=c(0, 0.85, 0.55, 1), new=TRUE)
boxplot(mtcars$mpg, horizontal=TRUE, axes=FALSE)
par(fig=c(0.65, 1, 0, 0.85), new=TRUE)
boxplot(mtcars$wt, axes=FALSE)
par(opar)
