ggplot2 II summary() p <ggplot(msleep,aes(sleep_rem sleep_total,awake)) summary(p) data:name,genus,vore,order,conservation,sleep_total,sleep_rem, sleep_cycle,awake,brainwt,bodywt [83x11] mapping:x sleep_rem/sleep_total,y awake faceting:facet_null() p <-p geom_point() summary(p) data:name,genus,vore,order,conservation,sleep_total,sleep_rem, sleep_cycle,awake,brainwt,bodywt [83x11] mapping:x sleep_rem/sleep_total,y awake faceting:facet_null() geom_point:na.rm FALSE stat_identity:na.rm FALSE position_identity
ggplot2 II summary()
ggplot2 II %+% p<-ggplot(mtcars, aes(mpg, wt, cyl 8 colour cyl)) geom_point() 765 4 08+00 50+05 18+06 mpg cyl 8 7 6 5 4 2 mtcars <-transform(mtcars,mpgmpg 2) p%+%mtcars 0.0e+00 5.0a+11 1.08+12 1.58+12
p <- ggplot(mtcars, aes(mpg, wt, colour = cyl)) + geom_point() mtcars <- transform(mtcars, mpg = mpg ^ 2) p %+% mtcars ggplot2 II %+%
ggplot2 II aes() p <ggplot(mtcars,aes(x mpg,y wt)) 行 p+geom_point() p+geom_point(aes(colour factor(cyl))) p geom_point(aes(y disp)) 00e+00 500+11 1.0e+12 150+12 mpg b 8 400 factor(cyl) 300· 。4 三 ● ●6 ●8 200- 100 0.0e+00 5.0e+11 1.00+12 150+12 0.0e+00 5.0e+11 1.0e+12 1.5e+12 mpg mpg
p <- ggplot(mtcars, aes(x = mpg, y = wt)) p + geom_point() p + geom_point(aes(colour = factor(cyl))) p + geom_point(aes(y = disp)) ggplot2 II aes()
ggplot2川 图形属性Vs.图层属性 p<-ggplot(mtcars,aes(mpg,wt)) p geom_point(colour ="darkblue") 0.00+00 5.0e+11 1.00+12 1.5e+12 mpg colour 。darkblue p+geom_point(aes(colour ="darkblue")) 0.0e+00 5.0e+11 1.00+12 1.5e+12 mpg
p <- ggplot(mtcars, aes(mpg, wt)) p + geom_point(colour = "darkblue") p + geom_point(aes(colour = "darkblue")) ggplot2 II 图形属性 vs. 图层属性
ggplot2 1 分组 p<-ggplot(Oxboys, 170- aes(age, height, 160 group Subject) ) 150 geom_line() 140 130 170 -1.0 -0.5 0.0 05 age 160 p<-ggplot(Oxboys, 150 aes(age, height, 140- group =1) ) 130 geom_line() .1.0 -0.5 0.0 0.5 0 age
p <- ggplot(Oxboys, aes(age, height, group = Subject) ) + geom_line() p <- ggplot(Oxboys, aes(age, height, group = 1) ) + geom_line() ggplot2 II 分组