有時(shí)我們?nèi)缤钤谙渥又刑埃Υ蚱评位\放飛自我蠢护，卻不料成了眾人眼中的離群值，算不得用處养涮，只能舍棄糊余。
有時(shí)我們感受到生活的節(jié)奏，拿起小提琴追尋夢想单寂，但周圍的歌舞升平告訴我們贬芥，山外有山、琴外有琴宣决，處處都有比較蘸劈。
使你害怕的不是強(qiáng)大的對(duì)手，而是你心中那一絲卑微的羞恥心尊沸。不敢嘗試鶴立雞群的鴨子威沫，算不得飛上枝頭的鳳凰。
1
入門
library(ggplot2)
library(MASS)
#入門
#調(diào)用 birthwt 數(shù)據(jù)集洼专，傳遞X棒掠、Y參數(shù)
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#繪制箱型圖
geom_boxplot()
image
2
進(jìn)階
#進(jìn)階
#調(diào)用 birthwt 數(shù)據(jù)集，傳遞X屁商、Y參數(shù)
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#設(shè)置箱圖填充色和邊框顏色
geom_boxplot(fill='cornsilk',colour='grey60',
#設(shè)置離群值的形狀烟很、大小、顏色
outlier.shape = 19,outlier.size = 2.5,outlier.colour = 'red') +
#添加平均值蜡镶，形狀設(shè)置為點(diǎn)
stat_summary(fun.y = 'mean',geom = 'point',
#設(shè)置點(diǎn)的形狀雾袱、大小、填充色
shape=23,size=2.5,fill='lightblue') +
#設(shè)置X軸標(biāo)簽
xlab(label = 'Race') +
#設(shè)置Y軸標(biāo)簽
ylab(label = 'Birthweight') +
#設(shè)置圖的背景主題
theme_bw() +
#調(diào)整Y軸文本的角度和位置
theme(axis.text.y = element_text(angle = 60,hjust = 0.5),
#刪去全部刻度線
panel.grid = element_blank())
image
3
精通
#精通
#調(diào)用 birthwt 數(shù)據(jù)集官还，傳遞X芹橡、Y參數(shù)
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#繪制小提琴圖，顯示概率密度曲線
geom_violin()
image
#調(diào)用 birthwt 數(shù)據(jù)集望伦，傳遞X林说、Y參數(shù)
ggplot(birthwt,aes(x=factor(race),y=bwt)) +
#刪除拖尾
geom_violin(trim = FALSE) +
#添加箱型圖并設(shè)置寬度煎殷、填充色、離群值顏色
geom_boxplot(width=0.05,fill='black',outlier.colour = NA) +
#設(shè)置中位數(shù)點(diǎn)腿箩，填充色豪直、形狀、大小
stat_summary(fun.y = median,geom = 'point',fill='white',shape=21,size=2.5)
image
開頭的那幾句話有一些隱喻度秘，不知道聰明的你看出來沒有顶伞。
下期再見。
你可能還想看
等你很久啦，長按加入古同社區(qū)
image
