有时我们如同生活在箱子中，努力打破牢笼放飞自我，却不料成了众人眼中的离群值，算不得用处，只能舍弃。
有时我们感受到生活的节奏，拿起小提琴追寻梦想，但周围的歌舞升平告诉我们，山外有山、琴外有琴，处处都有比较。
使你害怕的不是强大的对手，而是你心中那一丝卑微的羞耻心。不敢尝试鹤立鸡群的鸭子，算不得飞上枝头的凤凰。
1
入门
library(ggplot2)
library(MASS)
#入门
#调用 birthwt 数据集，传递X、Y参数
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#绘制箱型图
geom_boxplot()
image
2
进阶
#进阶
#调用 birthwt 数据集，传递X、Y参数
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#设置箱图填充色和边框颜色
geom_boxplot(fill='cornsilk',colour='grey60',
#设置离群值的形状、大小、颜色
outlier.shape = 19,outlier.size = 2.5,outlier.colour = 'red') +
#添加平均值，形状设置为点
stat_summary(fun.y = 'mean',geom = 'point',
#设置点的形状、大小、填充色
shape=23,size=2.5,fill='lightblue') +
#设置X轴标签
xlab(label = 'Race') +
#设置Y轴标签
ylab(label = 'Birthweight') +
#设置图的背景主题
theme_bw() +
#调整Y轴文本的角度和位置
theme(axis.text.y = element_text(angle = 60,hjust = 0.5),
#删去全部刻度线
panel.grid = element_blank())
image
3
精通
#精通
#调用 birthwt 数据集，传递X、Y参数
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#绘制小提琴图，显示概率密度曲线
geom_violin()
image
#调用 birthwt 数据集，传递X、Y参数
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#删除拖尾
geom_violin(trim = FALSE) +
#添加箱型图并设置宽度、填充色、离群值颜色
geom_boxplot(width=0.05,fill='black',outlier.colour = NA) +
#设置中位数点，填充色、形状、大小
stat_summary(fun.y = median,geom = 'point',fill='white',shape=21,size=2.5)
image
开头的那几句话有一些隐喻，不知道聪明的你看出来没有。
下期再见。
你可能还想看
等你很久啦，长按加入古同社区
image
