require("ggplot2")
if (require("pander")) {
p <- ggplot(mtcars, aes(x = mpg, y = wt)) +
geom_point()
p + theme_pander()
panderOptions("graph.grid.color", "red")
p + theme_pander()
p <- ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) +
geom_point()
p + theme_pander() + scale_color_pander()
ggplot(mpg, aes(x = class, fill = drv)) +
geom_bar() +
scale_fill_pander() +
theme_pander()
}
Run the code above in your browser using DataLab