ggpaired中的觀測值之間缺少連接線-有解無憂

我正在嘗試可視化兩個配對實驗。我有兩個站點，在每個站點我對不同時期的 15 個人進行了測量。

當我分別繪制站點時，我得到帶有連接線的箱線圖，但是當我使用 facet_grid() 在一張影像中獲取兩個圖時，線條消失了。這似乎是geom_path的問題，但我一直無法解決。

如何使連接線顯示？

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

uj5u.com熱心網友回復：

看起來在分面的情況下，您必須更具體地設定id引數，即您可以通過設定來實作您想要的結果id="id"：

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)

ggpaired 中的觀測值之間缺少連接線

轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/416811.html

標籤：

上一篇：ggplotboxplotwithdatapoints：如何根據兩個因素控制點顏色和形狀？

下一篇：在ggplot2中使用scale_color_gradientn為柵格資料設定顏色中斷