【Tips】ggpubr::ggpaired 分面時(shí)連線的顯示問題

missing connecting lines between observations in ggpaired

library(ggplot2)
    library(ggpubr)
        
    dat <-
        structure(list(period = c("Period1", "Period1", "Period1", "Period1", 
        "Period1", "Period1", "Period1", "Period1", "Period1", "Period1", 
        "Period1", "Period1", "Period1", "Period1", "Period1", "Period2", 
        "Period2", "Period2", "Period2", "Period2", "Period2", "Period2", 
        "Period2", "Period2", "Period2", "Period2", "Period2", "Period2", 
        "Period2", "Period2", "Period1", "Period1", "Period1", "Period1", 
        "Period1", "Period1", "Period1", "Period1", "Period1", "Period1", 
        "Period1", "Period1", "Period1", "Period1", "Period1", "Period2", 
        "Period2", "Period2", "Period2", "Period2", "Period2", "Period2", 
        "Period2", "Period2", "Period2", "Period2", "Period2", "Period2", 
        "Period2", "Period2"), id = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 
        9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 
        8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 
        21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 16L, 17L, 18L, 
        19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L), 
            value = c(206, 237, 229, 283, 272, 258, 245, 285, 204, 204, 
            279, 205, 281, 221, 226, 181, 263, 191, 263, 236, 213, 216, 
            248, 174, 199, 290, 197, 302, 230, 216, 277, 313, 336, 298, 
            387, 340, 385, 321, 327, 283, 277, 311, 319, 307, 373, 250, 
            279, 291, 286, 433, 403, 452, 352, 293, 316, 321, 306, 382, 
            318, 344), site = c("SiteA", "SiteA", "SiteA", "SiteA", "SiteA", 
            "SiteA", "SiteA", "SiteA", "SiteA", "SiteA", "SiteA", "SiteA", 
            "SiteA", "SiteA", "SiteA", "SiteA", "SiteA", "SiteA", "SiteA", 
            "SiteA", "SiteA", "SiteA", "SiteA", "SiteA", "SiteA", "SiteA", 
            "SiteA", "SiteA", "SiteA", "SiteA", "SiteB", "SiteB", "SiteB", 
            "SiteB", "SiteB", "SiteB", "SiteB", "SiteB", "SiteB", "SiteB", 
            "SiteB", "SiteB", "SiteB", "SiteB", "SiteB", "SiteB", "SiteB", 
            "SiteB", "SiteB", "SiteB", "SiteB", "SiteB", "SiteB", "SiteB", 
            "SiteB", "SiteB", "SiteB", "SiteB", "SiteB", "SiteB")), row.names = c(NA, 
        -60L), class = "data.frame")
    
    p <- ggpaired(dat, x="period", y="value", group="site",line.color = "gray", line.size = 0.4)+
      stat_compare_means(paired = TRUE) +
      facet_grid(~site)

    p

需要設(shè)置id的選項(xiàng)，在數(shù)據(jù)中需要有id列

長(zhǎng)這樣：

library(ggplot2)
library(ggpubr)

ggpaired(dat, x = "period", y = "value", id = "id", line.color = "gray", line.size = 0.4)
+
  stat_compare_means(paired = TRUE) +
  facet_grid(~site)
image.png
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 人面猴
    序言：七十年代末，一起剝皮案震驚了整個(gè)濱河市友鼻，隨后出現(xiàn)的幾起案子贡未，更是在濱河造成了極大的恐慌裂垦，老刑警劉巖恢恼，帶你破解...
    沈念sama閱讀 212,816評(píng)論 6贊 492
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件扼褪，死亡現(xiàn)場(chǎng)離奇詭異舱污，居然都是意外死亡呀舔，警方通過(guò)查閱死者的電腦和手機(jī)，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,729評(píng)論 3贊 385
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進(jìn)店門扩灯，熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)媚赖，“玉大人霜瘪，你說(shuō)我怎么就攤上這事【寤牵” “怎么了颖对？”我有些...
    開封第一講書人閱讀 158,300評(píng)論 0贊 348
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵，是天一觀的道長(zhǎng)磨隘。 經(jīng)常有香客問我缤底，道長(zhǎng)，這世上最難降的妖魔是什么番捂？ 我笑而不...
    開封第一講書人閱讀 56,780評(píng)論 1贊 285
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任个唧，我火速辦了婚禮，結(jié)果婚禮上设预，老公的妹妹穿的比我還像新娘坑鱼。我一直安慰自己，他們只是感情好絮缅，可當(dāng)我...
    茶點(diǎn)故事閱讀 65,890評(píng)論 6贊 385
  • 惡毒庶女頂嫁案：這布局不是一般人想出來(lái)的
    文/花漫 我一把揭開白布鲁沥。 她就那樣靜靜地躺著，像睡著了一般耕魄。 火紅的嫁衣襯著肌膚如雪画恰。 梳的紋絲不亂的頭發(fā)上，一...
    開封第一講書人閱讀 50,084評(píng)論 1贊 291
  • 城市分裂傳說(shuō)
    那天吸奴，我揣著相機(jī)與錄音允扇，去河邊找鬼。 笑死则奥，一個(gè)胖子當(dāng)著我的面吹牛考润，可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播读处，決...
    沈念sama閱讀 39,151評(píng)論 3贊 410
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開眼糊治，長(zhǎng)吁一口氣：“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼！你這毒婦竟也來(lái)了罚舱？” 一聲冷哼從身側(cè)響起井辜，我...
    開封第一講書人閱讀 37,912評(píng)論 0贊 268
  • 萬(wàn)榮殺人案實(shí)錄
    序言：老撾萬(wàn)榮一對(duì)情侶失蹤，失蹤者是張志新（化名）和其女友劉穎管闷，沒想到半個(gè)月后粥脚，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體，經(jīng)...
    沈念sama閱讀 44,355評(píng)論 1贊 303
  • ?護(hù)林員之死
    正文 獨(dú)居荒郊野嶺守林人離奇死亡包个，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,666評(píng)論 2贊 327
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年刷允，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 38,809評(píng)論 1贊 341
  • 活死人
    序言：一個(gè)原本活蹦亂跳的男人離奇死亡树灶，死狀恐怖搀菩，靈堂內(nèi)的尸體忽然破棺而出，到底是詐尸還是另有隱情破托，我是刑警寧澤肪跋，帶...
    沈念sama閱讀 34,504評(píng)論 4贊 334
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布，位于F島的核電站土砂，受9級(jí)特大地震影響州既，放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜萝映，卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 40,150評(píng)論 3贊 317
  • 男人毒藥：我在死后第九天來(lái)索命
    文/蒙蒙 一吴叶、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧序臂，春花似錦蚌卤、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,882評(píng)論 0贊 21
  • 一樁弒父案逊彭，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至构订，卻和暖如春侮叮，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背悼瘾。 一陣腳步聲響...
    開封第一講書人閱讀 32,121評(píng)論 1贊 267
  • 情欲美人皮
    我被黑心中介騙來(lái)泰國(guó)打工囊榜， 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留，地道東北人亥宿。 一個(gè)月前我還...
    沈念sama閱讀 46,628評(píng)論 2贊 362
  • 代替公主和親
    正文 我出身青樓卸勺，卻偏偏與公主長(zhǎng)得像，于是被迫代替她去往敵國(guó)和親烫扼。 傳聞我的和親對(duì)象是個(gè)殘疾皇子曙求，可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,724評(píng)論 2贊 351