plot(x, y, xlim=range(x), ylim=range(y), type="p",
     main, xlab, ylab, ...)

# File name: plot_1.r

data(cars)

plot(cars)
plot(cars, type="l")

# File name: plot_2.r

data(cars)

windows()

plot(cars, axes = FALSE, xlab = "", ylab = "")
lines(cars)
points(cars, pch = 23, cex = 1.5, col = 2)

axis(1, lwd = 2, lty = 2)
axis(2, col = 3, las = 2)
box(lty = 3)
title(main = "cars", xlab = "x-axis", ylab = "y-axis")
legend(5, 100, "cars", lty = 1)

dev.list()
dev.cur()
dev.off()

# File name: plot_3.r

data(cars)

par(mfrow = c(2, 2))

plot(cars, main = "Cars")
hist(cars[, 1], xlab = "speed", main = "Histogram of speed")
hist(cars[, 2], xlab = "dist", nclass = 10, main = "Histogram of dist")
plot(density(cars[, 2]), main = "Density of dist")

# File name: plot_4.r

data(cars)

layout(matrix(c(2, 4, 1, 3), nrow = 2, byrow = TRUE), c(2, 1), c(1, 2))

par(mar = c(3, 3, 1, 1))
plot(cars, xlab = "", ylab = "")

par(mar = c(3, 3, 1, 1))
hist(cars[, 1], main = "", xlab = "", ylab = "")

par(mar = c(0, 3, 1, 1))
hist(cars[, 2], nclass = 10, main = "", xlab = "", ylab = "")

par(mar = c(3, 3, 1, 1))
plot(density(cars[, 2]), main = "", xlab = "", ylab = "")

postscript(file = ifelse(onefile, "Rplots.ps", "Rplot%03d.ps"),
           onefile = TRUE,
           paper, family, encoding, bg, fg,
           width, height, horizontal, pointsize,
           pagecentre, print.it, command, title = "R Graphics Output")

bitmap(file, type = "png256", height = 6, width = 6, res = 72,
       pointsize, ...)

bmp(filename = "Rplot%03d.bmp", width = 480, height = 480, pointsize = 12,
    bg = "white")
jpeg(filename = "Rplot%03d.jpg", width = 480, height = 480, pointsize = 12,
     quality = 75, bg = "white")
png(filename = "Rplot%03d.png", width = 480, height = 480, pointsize = 12,
    bg = "white")

# File name: plot_5.r

data(cars)

bitmap("plot_5.png", height = 8, width = 8)
# In Windows, use bmp() or jpeg()

layout(matrix(c(2, 4, 1, 3), nrow = 2, byrow = TRUE), c(2, 1), c(1, 2))

par(mar = c(3, 3, 1, 1))
plot(cars, xlab = "", ylab = "")

par(mar = c(3, 3, 1, 1))
hist(cars[, 1], main = "", xlab = "", ylab = "")

par(mar = c(0, 3, 1, 1))
hist(cars[, 2], nclass = 10, main = "", xlab = "", ylab = "")

par(mar = c(3, 3, 1, 1))
plot(density(cars[, 2]), main = "", xlab = "", ylab = "")

dev.off()