library(grid)

source("functions.R")

###########
#  shapeExercise
###########
grid.newpage()
y1 <- 1:10
y2 <- 10:1
cp1 <- cprop(y1)
cp2 <- cprop(y2)




###########
#  unitGparExercise
###########
grid.newpage()
p1 <- prop(y1)
fills <- hcl(240, 60, seq(10, 100, 10))




###########
#  viewportExercise
###########
grid.newpage()




###########
#  layoutExercise
###########
grid.newpage()




###########
#  cplotExercise
###########
grid.newpage()




###########
#  reuseViewportExercise
###########
grid.newpage()
mtcarsExp <- rbind(apply(mtcars[c("mpg", "disp")], 2, log),
                   mtcars[c("mpg", "disp")])
mtcarsExp$am <- rep(ifelse(mtcars$am, "manual", "automatic"), 2)
mtcarsExp$logged <- rep(c("logged", "untransformed"), 
                        each=nrow(mtcars))
library(lattice)
plot <- xyplot(mpg ~ disp | am*logged, mtcarsExp,
               scales=list(relation="free",
                           x=list(at=list(TRUE, TRUE, NULL, NULL)),
                           y=list(limits=list(c(2.2, 3.6), c(2.2, 3.6),
                                              c(10, 35), c(10, 35)),
                                  at=list(TRUE, NULL, TRUE, NULL))),
               par.settings=list(layout.heights=list(axis.panel=c(1, 0),
                                                     top.padding=3),
                                 layout.widths=list(axis.panel=c(1, 0))))
library(latticeExtra)
print(useOuterStrips(plot))




###########
#  editgrobExercise
###########
grid.newpage()
print(
densityplot( ~ weight | group, PlantGrowth,
            layout=c(1, 3))
)