ggsignif箱線圖添加顯著性差異標(biāo)識(shí)

統(tǒng)計(jì)方法與參數(shù)
一般根據(jù)數(shù)據(jù)是否符合正態(tài)分布捞蚂,選擇合適的統(tǒng)計(jì)方法

統(tǒng)計(jì)方法 適用情況
t.test() 比較兩組(參數(shù)) 數(shù)據(jù)符合正態(tài)分布
wilcox.test() 比較兩組(非參數(shù))
aov()或anova() 比較多組(參數(shù))
kruskal.test() 比較多組(非參數(shù))

參數(shù)
ggsigni包主要函數(shù)為:geom_signif()和stat_signif() ,常用geom_signif()
參數(shù) 說明示范
comparisons list,設(shè)置需要比較的組夺饲,比如list(c("a","b"),c("a","c"))
test 統(tǒng)計(jì)方法,比如t.test()
test.args test傳入的參數(shù)
map_signif_level 布爾值瞳收,p值直接當(dāng)作注釋或者以星號(hào)替代,比如c(" " = 0.001,""=0.01,'''=0.05)
annotations 帶有可選注釋的字符向量情妖,如果沒有則被忽略
step_increase 不同組差異標(biāo)注的間隔

示例

library(ggplot2)
library(ggsignif)
dat <- data.frame(Group =c("S1","S1","S2","S2"),
                  Sub = c("A","B","A","B"),
                  Value = c(3,5,7,8))
ggplot(dat,aes(Group,Value)) + geom_bar(aes(fill = Sub),stat = "identity",position = "dodge",width = .5) +
  geom_signif(y_position = c(5.3,8.3),xmin = c(0.8,1.8),xmax = c(1.2,2.2),
              annotations = c("**","NS"),tip_length = 0)+
  geom_signif(comparisons = list(c("S1","S2")),y_position = 9.3,tip_length = 0,vjust = 0.2)+
  scale_fill_manual(values = c("grey80","grey20"))
image.png

參考

http://www.reibang.com/p/07e1bee02ee8
https://mp.weixin.qq.com/s?__biz=MzI3Mzc1MzczMA==&mid=2247484318&idx=1&sn=aeeb47d5f0cc6ce0971032f4709393ef&chksm=eb1f3073dc68b9651aa3fe1fed06db66ade6231c5f9790868ffcf680e76f67e329e04f823da3&scene=21

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末码秉,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子矮燎,更是在濱河造成了極大的恐慌定血,老刑警劉巖,帶你破解...
    沈念sama閱讀 206,214評(píng)論 6 481
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件诞外,死亡現(xiàn)場(chǎng)離奇詭異澜沟,居然都是意外死亡,警方通過查閱死者的電腦和手機(jī)峡谊,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,307評(píng)論 2 382
  • 文/潘曉璐 我一進(jìn)店門茫虽,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人既们,你說我怎么就攤上這事濒析。” “怎么了啥纸?”我有些...
    開封第一講書人閱讀 152,543評(píng)論 0 341
  • 文/不壞的土叔 我叫張陵号杏,是天一觀的道長(zhǎng)。 經(jīng)常有香客問我斯棒,道長(zhǎng)盾致,這世上最難降的妖魔是什么莹妒? 我笑而不...
    開封第一講書人閱讀 55,221評(píng)論 1 279
  • 正文 為了忘掉前任,我火速辦了婚禮绰上,結(jié)果婚禮上旨怠,老公的妹妹穿的比我還像新娘。我一直安慰自己蜈块,他們只是感情好鉴腻,可當(dāng)我...
    茶點(diǎn)故事閱讀 64,224評(píng)論 5 371
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著百揭,像睡著了一般爽哎。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上器一,一...
    開封第一講書人閱讀 49,007評(píng)論 1 284
  • 那天课锌,我揣著相機(jī)與錄音,去河邊找鬼祈秕。 笑死渺贤,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的请毛。 我是一名探鬼主播志鞍,決...
    沈念sama閱讀 38,313評(píng)論 3 399
  • 文/蒼蘭香墨 我猛地睜開眼,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(mèng)啊……” “哼方仿!你這毒婦竟也來了固棚?” 一聲冷哼從身側(cè)響起,我...
    開封第一講書人閱讀 36,956評(píng)論 0 259
  • 序言:老撾萬榮一對(duì)情侶失蹤仙蚜,失蹤者是張志新(化名)和其女友劉穎此洲,沒想到半個(gè)月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體委粉,經(jīng)...
    沈念sama閱讀 43,441評(píng)論 1 300
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡呜师,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 35,925評(píng)論 2 323
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了艳丛。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片匣掸。...
    茶點(diǎn)故事閱讀 38,018評(píng)論 1 333
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖氮双,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情霎匈,我是刑警寧澤戴差,帶...
    沈念sama閱讀 33,685評(píng)論 4 322
  • 正文 年R本政府宣布,位于F島的核電站铛嘱,受9級(jí)特大地震影響暖释,放射性物質(zhì)發(fā)生泄漏袭厂。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,234評(píng)論 3 307
  • 文/蒙蒙 一球匕、第九天 我趴在偏房一處隱蔽的房頂上張望纹磺。 院中可真熱鬧,春花似錦亮曹、人聲如沸橄杨。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,240評(píng)論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽式矫。三九已至,卻和暖如春役耕,著一層夾襖步出監(jiān)牢的瞬間采转,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 31,464評(píng)論 1 261
  • 我被黑心中介騙來泰國打工瞬痘, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留故慈,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 45,467評(píng)論 2 352
  • 正文 我出身青樓框全,卻偏偏與公主長(zhǎng)得像惯悠,于是被迫代替她去往敵國和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子竣况,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,762評(píng)論 2 345

推薦閱讀更多精彩內(nèi)容