dlcompare | R Documentation |
Compare several plots
and/or label placement methods. This creates
a custom grid graphics display based on lattice and/or ggplot2
output. Plots will be on the columns and positioning methods will
be on the rows.
dlcompare(plots, pos.funs,
rects = TRUE, row.items = "plots",
debug = FALSE)
plots |
List of ggplot2 or lattice |
pos.funs |
List of label placement methods to apply to each plot. List names, or function names if specified as character strings, will be used to annotate the plot. |
rects |
Draw rectangles around each plot, creating a grid? |
row.items |
If "plots" then put |
debug |
Show |
Toby Dylan Hocking
## Compare two plots of the same data using lattice and ggplot2.
deaths.by.sex <- list(male=mdeaths, female=fdeaths)
deaths.list <- list()
for(sex in names(deaths.by.sex)){
deaths.ts <- deaths.by.sex[[sex]]
deaths.list[[sex]] <-
data.frame(year=as.numeric(time(deaths.ts)),
sex,
deaths=as.integer(deaths.ts))
}
deaths <- do.call(rbind, deaths.list)
death.plot.list <- list()
if(require(lattice)){
oldopt <- lattice.options(panel.error=NULL)
death.plot.list[["lattice"]] <- xyplot(
deaths~year,deaths,groups=sex,type="l")
}
if(require(ggplot2)){
death.plot.list[["ggplot2"]] <- qplot(
year,deaths,data=deaths,colour=sex,geom="line")
}
if(length(death.plot.list) && names(dev.cur())!="postscript"){##to avoid error on pkg check.
## Use some exotic labeling options with different rotation, font
## face, family, and alpha transparency.
exotic <- list("last.points",
rot=c(0,180),
fontsize=c(10,20),
fontface=c("bold","italic"),
fontfamily=c("mono","serif"),
alpha=c(0.25,1))
dlcompare(death.plot.list, list(exotic))
}
if(require(lattice))lattice.options(oldopt)
## Compare a legend with direct labels on the same plot.
if(require(ggplot2) && require(nlme)){
ggrat <- qplot(Time,weight,data=BodyWeight,
colour=Rat,geom="line",facets=.~Diet)
pfuns <- list("legend","direct labels"="last.qp")
dlcompare(list(ggrat),pfuns,rects=FALSE,row.items="posfuns")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.