This report is automatically generated with the R package knitr (version 1.5) .

# Chapter 17 - Creating Faceted Graphics with Lattice Creating a Lattice Plot
str(mtcars)
## 'data.frame':	32 obs. of  11 variables:
##  $ mpg : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
##  $ cyl : num  6 6 4 6 8 6 8 4 4 6 ...
##  $ disp: num  160 160 108 258 360 ...
##  $ hp  : num  110 110 93 110 175 105 245 62 95 123 ...
##  $ drat: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
##  $ wt  : num  2.62 2.88 2.32 3.21 3.44 ...
##  $ qsec: num  16.5 17 18.6 19.4 17 ...
##  $ vs  : num  0 0 1 1 0 1 0 1 1 1 ...
##  $ am  : num  1 1 1 0 0 0 0 0 0 0 ...
##  $ gear: num  4 4 4 3 3 3 3 4 4 4 ...
##  $ carb: num  4 4 1 1 2 1 4 2 2 4 ...
## Loading the lattice package
library("lattice")
## Making a lattice scatterplot
xyplot(mpg ~ hp | factor(cyl), data = mtcars)
plot of chunk unnamed-chunk-1
## Adding trend lines
xyplot(mpg ~ hp | factor(cyl), data = mtcars, type = c("p", "r"))
plot of chunk unnamed-chunk-1
# Changing Plot Options Adding titles and labels
xyplot(mpg ~ hp | factor(cyl), data = mtcars, type = c("p", "r"), main = "Fuel economy vs. Performance",
    xlab = "Performance (horse power)", ylab = "Fuel economy (miles per gallon)", )
plot of chunk unnamed-chunk-1
xyplot(mpg ~ hp | factor(cyl), data = mtcars, type = c("p", "r"), main = list(label = "Fuel economy vs. Performance given Number of Cylinders",
    cex = 0.75))
plot of chunk unnamed-chunk-1
## Changing the font size of titles and labels
xyplot(mpg ~ hp | factor(cyl), data = mtcars, type = c("p", "r"), main = list(label = "Fuel economy vs. Performance given Number of Cylinders",
    cex = 0.75), xlab = list(label = "Performance (horse power)", cex = 0.75), ylab = list(label = "Fuel economy (miles per gallon)",
    cex = 0.75), scales = list(cex = 0.5))
plot of chunk unnamed-chunk-1
## Using themes to modify plot options
xyplot(mpg ~ hp | factor(cyl), data = mtcars, type = c("p", "r"), par.settings = simpleTheme(col = "red",
    col.line = "blue"))
plot of chunk unnamed-chunk-1
# Plotting Different Types Making a bar chart
mtcars$cars <- rownames(mtcars)
barchart(cars ~ mpg | factor(cyl), data = mtcars, main = "barchart", scales = list(cex = 0.5),
    layout = c(3, 1))
plot of chunk unnamed-chunk-1
## Making a box-and-whisker plot
bwplot(~hp | factor(cyl), data = mtcars, main = "bwplot")
plot of chunk unnamed-chunk-1
# Plotting Data in Groups Using data in tall format
str(longley)
## 'data.frame':	16 obs. of  7 variables:
##  $ GNP.deflator: num  83 88.5 88.2 89.5 96.2 ...
##  $ GNP         : num  234 259 258 285 329 ...
##  $ Unemployed  : num  236 232 368 335 210 ...
##  $ Armed.Forces: num  159 146 162 165 310 ...
##  $ Population  : num  108 109 110 111 112 ...
##  $ Year        : int  1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 ...
##  $ Employed    : num  60.3 61.1 60.2 61.2 63.2 ...
library("reshape2")
mlongley <- melt(longley, id.vars = "Year")
str(mlongley)
## 'data.frame':	96 obs. of  3 variables:
##  $ Year    : int  1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 ...
##  $ variable: Factor w/ 6 levels "GNP.deflator",..: 1 1 1 1 1 1 1 1 1 1 ...
##  $ value   : num  83 88.5 88.2 89.5 96.2 ...
xyplot(value ~ Year | variable, data = mlongley, layout = c(6, 1), par.strip.text = list(cex = 0.7),
    scales = list(cex = 0.7))
plot of chunk unnamed-chunk-1
## Creating a chart with groups
mtcars$cars <- rownames(mtcars)
mtcars$am <- with(mtcars, ifelse(am == 0, "Automatic", "Manual"))
barchart(cars ~ mpg | factor(cyl), data = mtcars, group = am, scales = list(cex = 0.5), layout = c(3,
    1), )
plot of chunk unnamed-chunk-1
## Adding a key
barchart(cars ~ mpg | factor(cyl), data = mtcars, main = "barchart with groups", group = am,
    auto.key = TRUE, par.settings = simpleTheme(col = c("grey80", "grey20")), scales = list(cex = 0.5),
    layout = c(3, 1))
plot of chunk unnamed-chunk-1
# Printing and Saving a Lattice Plot Assigning a lattice plot to an object
my.plot <- xyplot(mpg ~ hp | cyl, data = mtcars)
class(my.plot)
## [1] "trellis"
## Printing a lattice plot in a script
xyplot(mpg ~ hp | cyl, data = mtcars)
plot of chunk unnamed-chunk-1
my.plot <- xyplot(mpg ~ hp | cyl, data = mtcars)
print(my.plot)
plot of chunk unnamed-chunk-1
## Saving a lattice plot to file
setwd("~/")
trellis.device(device = "png", filename = "xyplot.png")
print(my.plot)
dev.off()
## pdf 
##   2

The R session information (including the OS info, R version and all packages used):

sessionInfo()
## R version 3.0.2 (2013-09-25)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## 
## locale:
## [1] LC_COLLATE=English_United Kingdom.1252  LC_CTYPE=English_United Kingdom.1252   
## [3] LC_MONETARY=English_United Kingdom.1252 LC_NUMERIC=C                           
## [5] LC_TIME=English_United Kingdom.1252    
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## other attached packages:
##  [1] BiocInstaller_1.12.1 ggplot2_0.9.3.1      reshape2_1.2.2       sos_1.3-8           
##  [5] brew_1.0-6           stringr_0.6.2        knitr_1.5            plyr_1.8            
##  [9] Revobase_7.1.0       RevoMods_7.1.0       RevoScaleR_7.1.0     lattice_0.20-27     
## [13] rpart_4.1-2         
## 
## loaded via a namespace (and not attached):
##  [1] codetools_0.2-8    colorspace_1.2-4   dichromat_2.0-0    digest_0.6.4      
##  [5] evaluate_0.5.1     foreach_1.4.1      formatR_0.10       fortunes_1.5-2    
##  [9] grid_3.0.2         gtable_0.1.2       highr_0.3          iterators_1.0.6   
## [13] labeling_0.2       MASS_7.3-29        munsell_0.4.2      proto_0.3-10      
## [17] RColorBrewer_1.0-5 scales_0.2.3       tools_3.0.2
Sys.time()
## [1] "2014-05-13 15:06:28 BST"