qplot(mpg, wt, data = mtcars)
old <- theme_set(theme_bw())
qplot(mpg, wt, data = mtcars)
theme_set(old)
qplot(mpg, wt, data = mtcars)
old <- theme_update(panel.background = theme_rect(colour = "pink"))
qplot(mpg, wt, data = mtcars)
theme_set(old)
theme_get()
qplot(mpg, wt, data=mtcars, colour=mpg) +
opts(legend.position=c(0.95, 0.95), legend.justification = c(1, 1))
last_plot() +
opts(legend.background = theme_rect(fill = "white", col="white", size =3))
Run the code above in your browser using DataLab