R小姐：箱图、琴图始出来，把酒言欢

2018-11-16 本文已影响0人鲨瓜

有时我们如同生活在箱子中，努力打破牢笼放飞自我，却不料成了众人眼中的离群值，算不得用处，只能舍弃。

有时我们感受到生活的节奏，拿起小提琴追寻梦想，但周围的歌舞升平告诉我们，山外有山、琴外有琴，处处都有比较。

使你害怕的不是强大的对手，而是你心中那一丝卑微的羞耻心。不敢尝试鹤立鸡群的鸭子，算不得飞上枝头的凤凰。

入门

library(ggplot2)
library(MASS)

#入门
#调用 birthwt 数据集，传递X、Y参数
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
  #绘制箱型图
  geom_boxplot()

image

进阶

#进阶
#调用 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

精通

#精通
#调用 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

R小姐：箱图、琴图始出来，把酒言欢

猜你喜欢

热点阅读