有時我們如同生活在箱子中，努力打破牢籠放飛自我，卻不料成了眾人眼中的離群值，算不得用處，只能舍棄。
有時我們感受到生活的節(jié)奏，拿起小提琴追尋夢想，但周圍的歌舞升平告訴我們，山外有山、琴外有琴，處處都有比較。
使你害怕的不是強大的對手，而是你心中那一絲卑微的羞恥心。不敢嘗試鶴立雞群的鴨子，算不得飛上枝頭的鳳凰。
1
入門
library(ggplot2)
library(MASS)
#入門
#調用 birthwt 數(shù)據(jù)集，傳遞X、Y參數(shù)
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#繪制箱型圖
geom_boxplot()
image
2
進階
#進階
#調用 birthwt 數(shù)據(jù)集，傳遞X、Y參數(shù)
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 數(shù)據(jù)集，傳遞X、Y參數(shù)
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#繪制小提琴圖，顯示概率密度曲線
geom_violin()
image
#調用 birthwt 數(shù)據(jù)集，傳遞X、Y參數(shù)
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#刪除拖尾
geom_violin(trim = FALSE) +
#添加箱型圖并設置寬度、填充色、離群值顏色
geom_boxplot(width=0.05,fill='black',outlier.colour = NA) +
#設置中位數(shù)點，填充色、形狀、大小
stat_summary(fun.y = median,geom = 'point',fill='white',shape=21,size=2.5)
image
開頭的那幾句話有一些隱喻，不知道聰明的你看出來沒有。
下期再見。
你可能還想看
等你很久啦，長按加入古同社區(qū)
image
