library(ggplot2)
set.seed(2015)
diamond.part<-diamonds[sample(nrow(diamonds),100),]
b = ggplot(diamond.part, aes(x = carat, y = price)) +
geom_point(aes(colour = color))
b + theme_grey()
library(ggplot2)
set.seed(2015)
diamond.part<-diamonds[sample(nrow(diamonds),100),]
b = ggplot(diamond.part, aes(x = carat, y = price)) +
geom_point(aes(colour = color))
b + theme_set(theme_grey())
theme_grey() 、theme_bw()
theme_economist() 、theme_economist_white() 、theme_wsj() 、theme_excel() 、theme_few() 、theme_foundation() 、theme_igray() 、theme_solarized() 、theme_stata() 、theme_tufte()
版权声明:转载请注明出处,谢谢!
原文地址:http://blog.csdn.net/bone_ace/article/details/47267505