基本语法：
geom_XXXx(参数）——见R语言实战 p407-408
几何函数常见选项（参数）
color：对点、线、填充区域的边界进行着色
fill：对填充区域着色
alpha：颜色的透明度
linetype：图案的线条 （从0（完全透明）到1（不透明））
size：点的尺寸和线的宽度
shape：点的形状
position：绘制条形图或点等对象的位置（条形图： dodge：分组的条形图并排；stacked：堆叠条形
图；fill：垂直堆叠分组条形图且高度相等
点： jitter：减少点重叠）
binwidth：直方图高度
notch：表示方块图是否为缺口（TRUE、FALSE）
sides：地毯图的安置（"b"=底部；“t”=顶部；“r”=右部；"bl"=左下部）
width：箱线图的宽度
1、点图
library(ggplot2)
> p <- ggplot(data=mpg, mapping=aes(x=cty, y=hwy))
> p + geom_point()
p <- ggplot(mpg,
aes(x=cty, y=hwy, colour=factor(year)))
> p + geom_point()
增加平滑曲线
> p + geom_point() + stat_smooth()
2、直方图
直方图
> P <- ggplot(mpg,aes(x=hwy))
p + geom_histogram()
3、条形图
条形图
> p <- ggplot(mpg, aes(x=class))
p + geom_bar()
> class2 <- mpg$class; class2 <- reorder(class2,class2,length)
> mpg$class2 <- class2
> P <- ggplot(mpg, aes(x=class2))
> p + geom_bar(aes(fill=class2))
幵立方式
> P + geom_bar(position='dodge')
叠加方式
> p+geom_bar(position='stack')
相对比例
> p+geom_bar(position='fill')
分面显示
> p+ geom_bar(aes(fill=class2))+facet_wrap(~year)
4、饼图
p <- ggplot(mpg, aes(x = factor(1), fill = factor(class))) + geom_bar(width = 1)
p + coord_polar(theta = "y")
5、箱线图
p <- ggplot(mpg, aes(class,hwy,fill=class))
p+geom_boxplot()
6、小提琴图
p + geom_violin(alpha=0.3,width=0.9)+
geom_jitter(shape=21)
7、二维直方图
p + stat_bin2d()
8、密度图
>p + stat_density2d(aes(fill = ..level..), geom="polygon") +
coord_cartesian(xlim = c(0, 1.5),ylim=c(0,6000))+
scale_fill_continuous(high='red2',low='blue4')
9、风向风速玫瑰图
随机生成100次风向，并汇集到16个区间内 dir <- cut_interval(runif(100,0,360),n=16)
#随机生成100次风速，并划分成4种强度 mag <- cut_interval(rgamma(100,15),4) sample <- data.frame(dir=dir,mag=mag)
#将风向映射到X轴，频数映射到Y轴，风速大小映射到填充色，生成条形图后再转为极坐标形式即可 p <- ggplot(sample,aes(x=dir,y=..count..,fill=mag)) p + geom_bar()+ coord_polar()