《ggplot2-EGDA》 -chapter4-ggplot2里图层的概览

p <- ggplot(diamonds, aes(carat,colour = cut))

##这一步只是创建了一个ggplot的对象，还未加入图层，尚且什么也看不见

p<-p+geom_histogram(binwidth = 0.02,fill="steelblue")$layers
#使用$layers可以查看图形对象的图层
#stat_identity()和geom_point是一组对应
#geom_bar()和stat_bin()

bestfit <- geom_smooth(method = "lm", se = F,
                       colour = alpha("steelblue", 0.5), size = 2)
####半透明深蓝色回归线的图层

p <- ggplot(mtcars, aes(mpg, wt, colour = cyl)) + geom_point()
p
mtcars <- transform(mtcars, mpg = mpg ^ 2)##使用transform函数修改数据框里变量的数据
p %+% mtcars ##更新图形对象里的数据集

##使用分组参数
##忘记时可以使用?geom_line 查看帮助 
p<-ggplot(Oxboys, aes(age, height, group = Subject,colour=Subject))
p+geom_line()

ggplot(diamonds, aes(carat)) + geom_histogram(aes(y = ..density..), binwidth = 0.1)
##绘制频率密度（纵坐标是频率除组距）直方图

p <- ggplot(diamonds, aes(clarity,fill=cut))
p+geom_bar()
p + geom_bar(position=‘stack‘)##缺省为堆叠 

p + geom_bar(position=‘fill‘) #fill填充  与堆叠类似,但高度标准化为1

library(RColorBrewer)
p <- ggplot(diamonds, aes(clarity,fill=cut))
p+geom_bar()
p + geom_bar(position=‘stack‘)+scale_fill_brewer(palette="YlOrRd")