小提琴+箱线图
>data(singer,package="lattice")
ggplot(singer,aes(x=voice.part,y=height))+
geom_violin(fill="lightblue")+
geom_boxplot(fill="lightgreen",width=.2)
#分组
> data(Salaries,package="car")
ggplot(data=Salaries,aes(x=salary,fill=rank))+
geom_density(alpha=.3)