> n <- 300 > x <- runif(n) > y <- runif(n) > plot(x, y) > plot(x, y, asp = 1) > lines(c(0, 1, 1, 0, 0), c(0, 0, 1, 1, 0)) > plot(x, y, asp = 1, type = "n", axes = FALSE, xlab = "", ylab = "") > lines(c(0, 1, 1, 0, 0), c(0, 0, 1, 1, 0)) > points(x, y) > dev.copy2eps(file = "foo.eps") > par(mar = rep(0, 4), pty = "s") > plot(x, y, asp = 1, type = "n", axes = FALSE, xlab = "", ylab = "") > lines(c(0, 1, 1, 0, 0), c(0, 0, 1, 1, 0)) > points(x, y) > dev.copy2eps(file = "bar.eps") > hist(rnorm(1000)) > par("usr") [1] -3.76 3.26 -7.88 204.88 > y <- x + rnorm(n) > plot(x, y) > par("usr") [1] -0.0360543 1.0379007 -3.6290298 3.9160052 > plot(x, y, log = "x") > foo <- colors() > foo[grep("blue", foo, ignore.case = TRUE)] [1] "aliceblue" "blue" "blue1" "blue2" [5] "blue3" "blue4" "blueviolet" "cadetblue" [9] "cadetblue1" "cadetblue2" "cadetblue3" "cadetblue4" [13] "cornflowerblue" "darkblue" "darkslateblue" "deepskyblue" [17] "deepskyblue1" "deepskyblue2" "deepskyblue3" "deepskyblue4" [21] "dodgerblue" "dodgerblue1" "dodgerblue2" "dodgerblue3" [25] "dodgerblue4" "lightblue" "lightblue1" "lightblue2" [29] "lightblue3" "lightblue4" "lightskyblue" "lightskyblue1" [33] "lightskyblue2" "lightskyblue3" "lightskyblue4" "lightslateblue" [37] "lightsteelblue" "lightsteelblue1" "lightsteelblue2" "lightsteelblue3" [41] "lightsteelblue4" "mediumblue" "mediumslateblue" "midnightblue" [45] "navyblue" "powderblue" "royalblue" "royalblue1" [49] "royalblue2" "royalblue3" "royalblue4" "skyblue" [53] "skyblue1" "skyblue2" "skyblue3" "skyblue4" [57] "slateblue" "slateblue1" "slateblue2" "slateblue3" [61] "slateblue4" "steelblue" "steelblue1" "steelblue2" [65] "steelblue3" "steelblue4" > trellis.par.set("background", list(col = "white")) > splom(~ hills)