decorate.lattice(histogram(mtcars$hp))
decorate.lattice(histogram(mtcars$hp), grid='y')
decorate.lattice(histogram(mtcars$hp), grid='both')
decorate.lattice(histogram(mtcars$hp), theme="theme.rapport(bw = TRUE)")
decorate.lattice(histogram(mtcars$hp, type = "density", panel = function(x, ...) {
panel.histogram(x, ...)
panel.densityplot(x, darg=list(na.rm=TRUE), ...)
}))
decorate.lattice(bwplot(decrease ~ treatment, OrchardSprays, groups = rowpos), grid='none')
decorate.lattice(bwplot(decrease ~ treatment, OrchardSprays, groups = rowpos), grid='y')
decorate.lattice(bwplot(voice.part ~ height, data = singer), grid='x')
decorate.lattice(bwplot(voice.part ~ height, data = singer), grid='x', theme="theme.rapport(bw = TRUE)")
decorate.lattice(barchart(VADeaths))
decorate.lattice(barchart(VADeaths), theme="theme.rapport(palette='Greens')", grid='x')
decorate.lattice(barchart(VADeaths), theme="theme.rapport(bw = TRUE)", grid='x')
decorate.lattice(barchart(VADeaths), theme="theme.rapport(font = 'Garamond')", grid='x')
decorate.lattice(barchart(VADeaths), theme="ggplot2like", grid='x')
decorate.lattice(barchart(VADeaths), theme="theEconomist.theme", grid='x')
decorate.lattice(barchart(VADeaths, main='TITLE (70-74)'), theme="theme.rapport(custom = list(axis.text = list(fontfamily='Garamond')))", grid='x')
Run the code above in your browser using DataLab