1. 背景 之前寫(xiě)過(guò)一篇文章，介紹多重比較的可視化：方差分析多重比較可視化 。
高廣雄同學(xué)問(wèn)我如何增加趨勢(shì)線，以及調(diào)整顯示的順序。
我不了解如何加趨勢(shì)線，調(diào)整順序的話可以設(shè)置factor的level，然后建議他研究一下，如果成功的話，可以把經(jīng)驗(yàn)寫(xiě)出來(lái)，我轉(zhuǎn)發(fā)一下。
今天他給我了一個(gè)鏈接，上面是他實(shí)現(xiàn)的過(guò)程，效果如下：
本來(lái)直接就想用他給的代碼，水一篇。但是?。?！
? 分享的是有道云筆記的小程序，沒(méi)有辦法在電腦端打開(kāi)，只能在手機(jī)端查看，我太難了。^[所以，發(fā)給別人文章時(shí)，極客用md文件，正規(guī)的是word或者pdf，不靠譜的就是有道小程序了。。。]
? 容易的路不好走，那我就走一條難走的路 ^[然后，又做起了編程的大招：粘貼復(fù)制，修改代碼]。另外，我覺(jué)得上面的示例不夠美觀，好的例子至關(guān)重要，壞的例子南轅北轍。
我想到了數(shù)據(jù)分析師的格言：沒(méi)有數(shù)據(jù)，創(chuàng)造數(shù)據(jù)也要上！沒(méi)有理想結(jié)果，多試幾次就能達(dá)到，所以，關(guān)于圖片誤用，一切皆有可能，哈哈。
如果一個(gè)程序員，表情平靜，鍵盤(pán)飛快
? 他一定在寫(xiě)注釋
? 如果一個(gè)程序員，鍵盤(pán)很少動(dòng)，鼠標(biāo)飛快
? 他一定在粘貼復(fù)制別人的代碼
? 如果一個(gè)程序員，抓耳撓腮，時(shí)而百度，時(shí)而有道云筆記，好久才動(dòng)一次鍵盤(pán)
? 他應(yīng)該在寫(xiě)程序，磕磕絆絆，連抄帶借鑒
? 2. 模擬數(shù)據(jù) set.seed(123)數(shù)據(jù)如下：
> dat這個(gè)數(shù)據(jù)，需要變?yōu)殚L(zhǎng)數(shù)據(jù) ^[就是ggplot2作圖用的數(shù)據(jù)]
dd = pivot_longer(dat,1:5,values_to = "y",names_to = "Day")長(zhǎng)數(shù)據(jù)來(lái)到：
> dd3. 方差分析 因?yàn)槟M的數(shù)據(jù)，我們直接用aov進(jìn)行方差分析，直接用agricolae進(jìn)行多重比較吧，就不整那些正態(tài)性檢驗(yàn)，齊性檢驗(yàn)了。
注意，這里要講Day轉(zhuǎn)化為因子！
str(dd)方差分析結(jié)果：
> summary(mod)可以看到，Day達(dá)到極顯著，可以進(jìn)行多重比較。
4. 多重比較 這里，對(duì)Day進(jìn)行多重比較，方法是LSD，水平是0.05
library(agricolae)多重比較結(jié)果：
> re1可以看到，周四最高，齊次是周二，它們之間均達(dá)到顯著性水平！
5. 多重比較作圖 為何還要準(zhǔn)備數(shù)據(jù)？因?yàn)樾枰獪?zhǔn)備數(shù)據(jù)作圖。
? 作為數(shù)據(jù)分析師，我們80%的時(shí)間，都是在準(zhǔn)備數(shù)據(jù)。。。
? 整體思路：
xx = aggregate(y ~ Day, dd,sd)結(jié)果：
> re2## 做直方圖## 加上標(biāo)準(zhǔn)誤## 加上顯著性為何要設(shè)置空白背景？ggplot默認(rèn)的風(fēng)格不香嗎？
? 空白的背景顯得比較專業(yè)。。。
? ## 背景設(shè)置為空白? 廣告無(wú)處不在，有一種廣告叫做鑲嵌到圖中！
? ## 增加標(biāo)簽6. 調(diào)整順序 本來(lái)，應(yīng)該是盡善盡美的，但是如果我想將順序按照：Mon，Tue，Wed，Thu，F(xiàn)ri進(jìn)行排布，應(yīng)該如何處理？
用factor函數(shù)，重新定義一下水平：
str(re2)「看一下作圖效果：」
p1 = re2 %>% ggplot(aes(Day,y)) + geom_col(aes(fill = Day), width=.4)
7. 增加趨勢(shì)線 為何要增加趨勢(shì)線呢？
? 因?yàn)榧由馅厔?shì)線，比較學(xué)術(shù)！
? p6 = p5 + geom_line(aes(group=""),color = "red")
