主頁 > 前端設計 > 如何通過迭代方法創建一系列帶有統計注釋的箱線圖

如何通過迭代方法創建一系列帶有統計注釋的箱線圖

2021-11-11 18:39:25 前端設計

我已經安裝了以下型號

models_list_1 <- data_long %>%
  group_by(signals) %>%
  do(fit = lmerTest::lmer(value ~ COND*SES   (1 |ID), data = .)) %>% 
  pull(fit) %>% 
  lapply(., function(x) summary(x)$coefficients) %>%
  setNames(unique(data_long$signals))

并提取成對統計如下

md <- data_long %>%
  group_by(signals) %>%
  do(fit = lmerTest::lmer(value ~ COND*SES   (1 |ID), data = .)) %>% 
  pull(fit) %>% 
  lapply(., function(m) lsmeans(m, pairwise ~ COND*SES, adjust="tukey"))

如果我想迭代地重新生成（對于包含在下面資料集中的每個信號變數）一種箱線圖

如何通過迭代方法創建一系列帶有統計注釋的箱線圖

在示例中報告的時間地點，我將擁有我的資料集的三個不同會話 (SES = L,V,R)（將在下面報告），并且對于每個會話，三個條件之間的一些多個成對比較（COND （NEG-CTR、NEG-NOC 和 NEU-NOC）在下面報告到資料集中）我應該怎么做？我應該設定哪個以及如何設定迭代函式來報告顯著差異的條形？

提前致謝

這里的資料集

> dput(head(data_long,300))
structure(list(ID = c("01", "01", "01", "01", "01", "01", "01", 
"01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", 
"01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", 
"01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", 
"01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", 
"01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", 
"01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", 
"01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", 
"01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", 
"01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", 
"01", "01", "01", "01", "01", "01", "01", "01", "01", "01", "01", 
"02", "02", "02", "02", "02", "02", "02", "02", "02", "02", "02", 
"02", "02", "02", "02", "02", "02", "02", "02", "02", "02", "02", 
"02", "02", "02", "02", "02", "02", "02", "02", "02", "02", "02", 
"02", "02", "02", "02", "02", "02", "02", "02", "02", "02", "02", 
"02", "02", "02", "02", "02", "02", "02", "02", "02", "02", "02", 
"02", "02", "02", "02", "02", "02", "02", "02", "02", "02", "02", 
"02", "02", "02", "02", "02", "02", "02", "02", "02", "02", "02", 
"02", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", 
"04", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", 
"04", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", 
"04", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", 
"04", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", 
"04", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", 
"04", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", 
"04", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", 
"04", "04", "04", "04", "04", "04", "04", "04", "04", "04", "04", 
"04", "04", "04", "04", "04", "04", "04"), GR = c("RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", "RP", 
"RP"), SES = c("L", "L", "L", "L", "L", "L", "L", "L", "L", "L", 
"L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", 
"L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", 
"L", "L", "L", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", 
"R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", 
"R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", 
"R", "R", "R", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", 
"V", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", 
"V", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", 
"V", "V", "V", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", 
"L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", 
"L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", 
"L", "L", "L", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", 
"R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", 
"R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", 
"R", "R", "R", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", 
"L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", 
"L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", 
"L", "L", "L", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", 
"R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", 
"R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", "R", 
"R", "R", "R", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", 
"V", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", "V", 
"V", "V", "V", "V"), COND = c("NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", "NEU-NOC", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", "NEG-CTR", 
"NEG-CTR", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", "NEG-NOC", 
"NEG-NOC", "NEG-NOC", "NEU-NOC"), signals = c("P3(400-450).FCz", 
"P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz", "P3(400-450).Cz", "P3(400-450).Pz", "LPPearly(500-700).FCz", 
"LPPearly(500-700).Cz", "LPPearly(500-700).Pz", "LPP1(500-1000).FCz", 
"LPP1(500-1000).Cz", "LPP1(500-1000).Pz", "LPP2(1000-1500).FCz", 
"LPP2(1000-1500).Cz", "LPP2(1000-1500).Pz", "LPP2(1000-1500).POz", 
"P3(400-450).FCz"), value = c(-13.733750856001, -9.75024624896264, 
2.65626156135631, -11.2145748677083, -8.14861856277773, 3.4315211013568, 
-7.774797181711, -5.0379636708446, 4.67200616533014, -0.397250087672501, 
2.91913936481813, 8.38141924882334, 9.61455213192824, -11.0706676917232, 
-8.42427447113084, 3.37360619561252, -13.9481657323772, -11.7645758007163, 
-1.55179922542943, -8.40872060176111, -6.36865552801825, 1.75888442936359, 
1.01519755373062, 1.85489998202138, 4.88842858528025, 7.21299011910717, 
-8.4719202003519, -5.61886494275071, 5.4043480635031, -12.0047623683783, 
-9.16726244915301, 1.13509020104859, -7.03235376576925, -4.54670193355435, 
2.49276476951357, -1.17300033366376, 0.694393606954545, 5.0594399581601, 
6.1861244061312, -5.04318152659785, 0.73152672768007, 19.5226358864568, 
-4.24372139176794, 0.918751423320568, 16.3120391015512, -0.65010821749741, 
4.05493850786385, 13.8997702651793, 0.663115370014327, 3.95694572160701, 
3.88831364571248, 6.46723813995257, -6.25375875400145, 1.11453058993788, 
18.5017390789352, -7.38414465678688, -0.674372568935879, 14.1694182774958, 
-3.24350263682843, 2.67516303169366, 13.2135623121441, -1.72160165493474, 
2.36649557381131, 5.83201076558185, 7.25962635499353, -7.0474968134059, 
-2.25104720773472, 11.7844254386573, -6.61221718491095, -2.47425935490564, 
9.04781409226351, -2.84832379590422, 1.02479302810681, 9.51479768101391, 
0.0540027107377267, 2.71292196345657, 3.65113189260335, 7.92952342178602, 
-11.6312151716924, -5.16524399006139, 11.8802266972569, -11.7785042972793, 
-5.96429031525769, 8.23981597718437, -5.67295796971287, -0.774461731301161, 
9.99385579756163, -0.198736254963744, 2.96437294922766, 6.28027312932027, 
7.91468942320841, -11.1438413285935, -5.53112490175437, 12.1053426662461, 
-9.14927207125904, -5.10918437158799, 9.51261484648731, -4.3918290080777, 
-0.650009462761383, 11.1212652173052, -3.16101041766438, -2.12913230708907, 
5.24535230966772, 9.94838815736199, -3.99591470944713, 0.621502123415388, 
12.955441582096, -7.58190508537766, -2.81732229625975, 9.42367409925817, 
-2.96652960658775, 1.14010250644923, 10.6989716871958, 0.895992279831378, 
2.94619035115619, 7.68162285335806, 10.2186482048953, 8.71618523084192, 
10.0972150696175, 13.9718285231429, 14.2438131545118, 18.1277616996079, 
20.6284861844249, 12.5228696634748, 15.0856583318757, 15.4011622649207, 
9.21248347391488, 10.0673617448764, 8.55827491190151, 5.76901446016799, 
3.1567164130045, 3.29671672118792, 6.37710361710325, 10.3728637305957, 
14.0324104861749, 17.1194345279475, 10.1688421767607, 12.7218688256241, 
13.5845965959489, 4.2029104966206, 5.28032844958354, 4.37390045274906, 
1.63411653734436, 0.11779005903818, 0.527314779744752, 3.52040283490143, 
4.71555467505934, 7.88901307601169, 9.74981375898379, 4.94891653050796, 
7.04929483656524, 7.62145250862908, 5.29260474692784, 5.76317883868431, 
4.27567967018154, 2.14044069620066, 6.2230923800622, 7.48013969467974, 
13.9681839573434, 8.16263381384371, 10.9263261999576, 15.5578942384162, 
8.29234474523583, 9.71944484568732, 12.4214977980377, 4.43538787409554, 
4.54790063971537, 6.04702803069286, 4.09091078261671, 0.545039723311392, 
2.24297008138028, 8.64955428897889, 2.54754270788021, 5.40070389371842, 
10.3425870381822, 2.89989209310052, 5.19815917760722, 8.94731174966949, 
1.28346027317076, 2.16569592764593, 5.29458007289059, 5.32593378182311, 
-0.383605036065646, -0.0523505792147314, 2.80847380898547, -1.01463338713448, 
0.139150314055044, 3.41932708826405, 1.69916872833203, 2.20513206952329, 
4.10953557761617, 1.17003451023205, 1.33824716938448, 1.21234812875355, 
-0.0587064331536407, -2.10936383457265, 0.0473343786951428, 10.1644392609445, 
-6.4216236476269, -4.61042211238648, 4.05274207265641, -1.13332962482291, 
-0.20305866581144, 5.80373742668179, 3.21881665778703, 2.58426832963409, 
6.30887598671621, 6.86490468078958, 1.81064934015995, 2.78240093455642, 
13.2788201390174, -4.08374576377548, -3.5562551128714, 3.767844291789, 
0.649857280429136, 1.01053594416015, 5.74639215930458, 5.92604591551597, 
5.077230852852, 5.9614279900414, 5.26280996552585, 0.754416368133019, 
2.60057993978525, 10.5077997492971, -8.46742290376216, -6.85651693740331, 
0.326110657534835, -4.43684347222634, -2.96241685765962, 1.48762660613099, 
-2.75555354427229, -1.59699177169018, -0.609381826740468, 0.981300734684586, 
-1.2371236814317, 1.4302038359579, 13.4030666728381, -6.30908300837476, 
-2.17237957159954, 6.65839865279684, -2.31574543509226, 1.26480036715092, 
6.04018553841336, 2.18006640865321, 6.61872855398538, 3.66646157996528, 
5.0384350436334, -2.76852389876276, -0.650797837853182, 4.74014346829081, 
-6.72661142802369, -6.18867237684241, 1.17003883692158, -2.73359549382074, 
-2.00512841997728, 1.9050381096835, -0.225533814334514, -1.21696526578647, 
0.240956222277802, 0.361670119961531, 5.54144355778122, 7.81248993867768, 
11.9003140352528, -3.32736490042247, -1.77938930999718, 5.40630013085777, 
-0.38736451456005, -0.423105565152366, 6.37211228749408, 0.986467266459687, 
-0.507207892673482, 1.15053325116554, 0.393791410918138, -0.314155675382471, 
2.23100741241039, 15.0981004360619, -4.01515836011381, -1.43557366487622, 
5.06332653216481, 0.159183652691071, 1.51403741206392, 3.7899021820967, 
3.11042068112836, 3.44844607014521, 1.08242973465635, 1.07455889922813, 
0.238885648959708, 3.96990710862955, 15.4046229884164, -6.60165385653499, 
-3.14872157912645, 5.02619159395405, -1.78361184935376, 0.25571835554024, 
4.59413830322224, 2.27800090558473, 3.02403433835637, 2.99896314000211, 
1.65917850515029, 5.03749946898385)), row.names = c(NA, -300L
), class = c("tbl_df", "tbl", "data.frame"))
>

uj5u.com熱心網友回復：

像這樣的東西？

library(tidyverse)
library(ggpubr)
data_long  %>%
  ggplot(aes(COND, value, color = COND))  
    geom_boxplot()  
    stat_compare_means(
      comparisons = list(
        c("NEG-CTR", "NEG-NOC"),
        c("NEG-CTR", "NEU-NOC"),
        c("NEG-NOC", "NEU-NOC")
      )
    )  
    facet_wrap(~signals)

如何通過迭代方法創建一系列帶有統計注釋的箱線圖

uj5u.com熱心網友回復：

我試圖通過此代碼（應用于寬格式資料集）迭代地重現圖形。

for (i in 5:ncol(data)) {
  p <- ggboxplot(data,
                 x = 'SES', 
                 y = colnames(data[i]),
                 color = 'COND'
                 
  )
  print(
    p   stat_compare_means(aes(label = paste0(..method.., ", p-value = ", ..p.format..)),
                           method = method2, label.y = max(data[, i], na.rm = TRUE)
    )
      stat_compare_means(comparisons = my_comparisons, method = method2, label = "p.format") # remove if p-value of ANOVA or Kruskal-Wallis test >= alpha
  )
}

如何通過迭代方法創建一系列帶有統計注釋的箱線圖

順便說一下，我對結果不太滿意，因為它錯過了繪圖上的比較條，而且我想學習將代碼重塑為長格式。任何人都可以幫忙嗎？

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

標籤：r ggplot2 迭代 相比 箱形图

上一篇：Rggplot2：在不同層上繪制資料子集時保持原始顏色和組級順序

下一篇：突出顯示geom_bar()中具有非常特定條件的框

標籤雲
其他(157675) Python(38076) JavaScript(25376) Java(17977) C(15215) 區塊鏈(8255) C＃(7972) AI(7469) 爪哇(7425) MySQL(7132) html(6777) 基礎類(6313) sql(6102) 熊猫(6058) PHP(5869) 数组(5741) R(5409) Linux(5327) 反应(5209) 腳本語言(PerlPython)(5129) 非技術區(4971) Android(4554) 数据框(4311) css(4259) 节点.js(4032) C語言(3288) json(3245) 列表(3129) 扑(3119) C++語言(3117) 安卓(2998) 打字稿(2995) VBA(2789) Java相關(2746) 疑難問題(2699) 细绳(2522) 單片機工控(2479) iOS(2429) ASP.NET(2402) MongoDB(2323) 麻木的(2285) 正则表达式(2254) 字典(2211) 循环(2198) 迅速(2185) 擅长(2169) 镖(2155) 功能(1967) .NET技术(1958) Web開發(1951) python-3.x(1918) HtmlCss(1915) 弹簧靴(1913) C++(1909) xml(1889) PostgreSQL(1872) .NETCore(1853) 谷歌表格(1846) Unity3D(1843) for循环(1842)

熱門瀏覽
  • vue移動端上拉加載

    可能做得過于簡單或者比較low，請各位大佬留情，一起探討技術 ......

    uj5u.com 2020-09-10 04:38:07 more
  • 優美網站首頁，頂部多層導航

    一個個人用的瀏覽器首頁，可以把一下常用的網站放在這里，平常打開會比較方便。 第一步，HTML代碼 <script src=https://www.cnblogs.com/szharf/p/"js/jquery-3.4.1.min.js"></script> <div id="navigate"> <ul> <li class="labels labels_1"> ......

    uj5u.com 2020-09-10 04:38:47 more
  • 頁面為要加<!DOCTYPE html>

    最近因為寫一個js函式，需要用到$(window).height(); 由于手寫demo的時候，過于自信，其實對前端方面的認識也不夠體系，用文本檔案直接敲出來的html代碼，第一行沒有加上<!DOCTYPE html> 導致了$(window).height();的結果直接是整個document的高 ......

    uj5u.com 2020-09-10 04:38:52 more
  • WordPress網站程式手動升級要做好資料備份

    WordPress博客網站程式在進行升級前，必須要做好網站資料的備份，這個問題良家佐言是遇見過的；在剛開始接觸WordPress博客程式的時候，因為升級問題和博客網站的修改的一些嘗試，良家佐言是吃盡了苦頭。因為購買的是西部數碼的空間和域名，每當佐言把自己的WordPress博客網站搞到一塌糊涂的時候 ......

    uj5u.com 2020-09-10 04:39:30 more
  • WordPress程式不能升級為5.4.2版本的原因

    WordPress是一款個人博客系統，受到英文博客愛好者和中文博客愛好者的追捧，并逐步演化成一款內容管理系統軟體；它是使用PHP語言和MySQL資料庫開發的,用戶可以在支持PHP和MySQL資料庫的服務器上使用自己的博客。每一次WordPress程式的更新，就會牽動無數WordPress愛好者的心， ......

    uj5u.com 2020-09-10 04:39:49 more
  • 使用CSS3的偽元素進行首字母下沉和首行改變樣式

    網頁中常見的一種效果，首字改變樣式或者首行改變樣式，效果如下圖。 代碼： <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, ......

    uj5u.com 2020-09-10 04:40:09 more
  • 關于a標簽的講解

    什么是a標簽？ <a> 標簽定義超鏈接，用于從一個頁面鏈接到另一個頁面。 <a> 元素最重要的屬性是 href 屬性，它指定鏈接的目標。 a標簽的語法格式：<a href=https://www.cnblogs.com/summerxbc/p/"指定要跳轉的目標界面的鏈接">需要展示給用戶看見的內容</a> a標簽 在所有瀏覽器中，鏈接的默認外觀如下： 未被訪問的鏈接帶 ......

    uj5u.com 2020-09-10 04:40:11 more
  • 前端輪播圖

    在需要輪播的頁面是引入swiper.min.js和swiper.min.css swiper.min.js地址： 鏈接：https://pan.baidu.com/s/15Uh516YHa4CV3X-RyjEIWw 提取碼：4aks swiper.min.css地址 鏈接：https://pan.b ......

    uj5u.com 2020-09-10 04:40:13 more
  • 如何設定html中的背景圖片（全屏顯示，且不拉伸）

    1 <style>2 body{background-image:url(https://uploadbeta.com/api/pictures/random/?key=BingEverydayWallpaperPicture); 3 background-size:cover;background ......

    uj5u.com 2020-09-10 04:40:16 more
  • Java學習——HTML詳解（上）

    HTML詳解 初識HTML Hyper Text Markup Language（超文本標記語言） 1 <!--DOCTYPE:告訴瀏覽器我們要使用什么規范--> 2 <!DOCTYPE html> 3 <html lang="en"> 4 <head> 5 <!--meta 描述性的標簽，描述一些 ......

    uj5u.com 2020-09-10 04:40:33 more
最新发布
  • 我的第一個NPM包:panghu-planebattle-esm(胖虎飛機大戰)使用說明

    好家伙,我的包終于開發完啦 歡迎使用胖虎的飛機大戰包!! 為你的主頁添加色彩 這是一個有趣的網頁小游戲包,使用canvas和js開發 使用ES6模塊化開發 效果圖如下: (覺得圖片太sb的可以自己改) 代碼已開源!! Git: https://gitee.com/tang-and-han-dynas ......

    uj5u.com 2023-04-20 07:59:23 more
  • 生產事故-走近科學之消失的JWT

    入職多年，面對生產環境，盡管都是小心翼翼，慎之又慎，還是難免捅出簍子。輕則滿頭大汗，面紅耳赤。重則系統停擺，損失資金。每一個生產事故的背后，都是寶貴的經驗和教訓，都是專案成員的血淚史。為了更好地防范和遏制今后的各類事故，特開此專題，長期更新和記錄大大小小的各類事故。有些是親身經歷，有些是經人耳傳口授 ......

    uj5u.com 2023-04-18 07:55:04 more
  • 記錄--Canvas實作打飛字游戲

    這里給大家分享我在網上總結出來的一些知識，希望對大家有所幫助 打開游戲界面，看到一個畫面簡潔、卻又富有挑戰性的游戲。螢屏上，有一個白色的矩形框，里面不斷下落著各種單詞，而我需要迅速地輸入這些單詞。如果我輸入的單詞與螢屏上的單詞匹配，那么我就可以獲得得分；如果我輸入的單詞錯誤或者時間過長，那么我就會輸 ......

    uj5u.com 2023-04-04 08:35:30 more
  • 了解 HTTP 看這一篇就夠

    在學習網路之前，了解它的歷史能夠幫助我們明白為何它會發展為如今這個樣子，引發探究網路的興趣。下面的這張圖片就展示了“互聯網”誕生至今的發展歷程。 ......

    uj5u.com 2023-03-16 11:00:15 more
  • 藍牙-低功耗中心設備

    //11.開啟藍牙配接器 openBluetoothAdapter //21.開始搜索藍牙設備 startBluetoothDevicesDiscovery //31.開啟監聽搜索藍牙設備 onBluetoothDeviceFound //30.停止監聽搜索藍牙設備 offBluetoothDevi ......

    uj5u.com 2023-03-15 09:06:45 more
  • canvas畫板（滑鼠和觸摸）

    <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>canves</title> <style> #canvas { cursor:url(../images/pen.png),crosshair; } #canvasdiv{ bo ......

    uj5u.com 2023-02-15 08:56:31 more
  • 手機端H5 實作自定義拍照界面

    手機端 H5 實作自定義拍照界面也可以使用 MediaDevices API 和 <video> 標簽來實作，和在桌面端做法基本一致。 首先，使用 MediaDevices.getUserMedia() 方法獲取攝像頭媒體流，并將其傳遞給 <video> 標簽進行渲染。 接著，使用 HTML 的 < ......

    uj5u.com 2023-01-12 07:58:22 more
  • 記錄--短視頻滑動播放在 H5 下的實作

    這里給大家分享我在網上總結出來的一些知識，希望對大家有所幫助 短視頻已經無數不在了，但是主體還是使用 app 來承載的。本文講述 H5 如何實作 app 的視頻滑動體驗。 無聲勝有聲，一圖頂百辯，且看下圖： 網址鏈接（需在微信或者手Q中瀏覽） 從上圖可以看到，我們主要實作的功能也是本文要講解的有： ......

    uj5u.com 2023-01-04 07:29:05 more
  • 一文讀懂 HTTP/1 HTTP/2 HTTP/3

    從 1989 年萬維網（www）誕生，HTTP（HyperText Transfer Protocol）經歷了眾多版本迭代，WebSocket 也在期間萌芽。1991 年 HTTP0.9 被發明。1996 年出現了 HTTP1.0。2015 年 HTTP2 正式發布。2020 年 HTTP3 或能正... ......

    uj5u.com 2022-12-24 06:56:02 more
  • 【HTML基礎篇002】HTML之form表單超詳解

    ??一、form表單是什么

    ??二、form表單的屬性

    ??三、input中的各種Type屬性值

    ??四、標簽 ......

    uj5u.com 2022-12-18 07:17:06 more

Copyright © 2010-2020 有解無憂