我正在嘗試創建一個多面箱線圖，其顯著性水平用星號表示，如“***”。問題是，在嘗試添加 geom_signif 層時出現錯誤。
警告資訊：忽略未知的美學：xmin、xmax、注釋、y_position、map_signif_level
這是我的資料
veg_un <- structure(list(Datum = structure(c(3L, 3L, 1L, 1L, 3L, 3L, 2L,
3L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 3L, 1L, 2L, 2L, 2L), .Label = c("2021-04-08",
"2021-05-17", "2021-07-07"), class = "factor"), Soll = c("1192",
"1192", "149", "2484", "552", "172", "1192", "1189", "2484",
"552", "552", "552", "119", "1192", "2484", "1202", "149", "552",
"1202", "1202"), Entfernung = structure(c(2L, 1L, 1L, 2L, 2L,
2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L), .Label = c("2",
"5"), class = "factor"), DGUnkraut = c(0, 1.3, 0.3, 3.4, 0, 2.5,
4, 0, 1, 0.9, 0, 0.8, 0.5, 3, 1, 0.2, 0.2, 4, 0.5, 5)), row.names = c(NA,
-20L), class = "data.frame")
到目前為止，這是我的代碼。
library(tidyverse)
library(ggsignif)
library(ggpubr)
anno_df <- compare_means(DGUnkraut ~ Entfernung, group.by = "Soll", data = veg_un, p.adjust.method = "holm") %>%
mutate(y_pos = 7, p.adj = format.pval(p.adj, digits = 2))
ggplot(veg_un, aes(x=Entfernung, y=DGUnkraut))
geom_boxplot(position=position_dodge())
geom_point(aes(color=Entfernung), position=position_jitterdodge())
facet_wrap(~Soll)
theme_minimal()
ggsignif::geom_signif(
inherit.aes = F,
data=anno_df,
aes(xmin=group1, xmax=group2, annotations=p.adj, y_position=y_pos, map_signif_level = T),
manual=TRUE)
我不知道為什么會這樣。此外，p 值太高了。我試圖用 y_position 修改它，但由于我無法控制美學，它不起作用。任何幫助真的很感激！干杯
uj5u.com熱心網友回復：
我會嘗試其中之一
anno_df <- compare_means(DGUnkraut ~ Entfernung, group.by = "Soll", data = veg_un, p.adjust.method = "holm") %>%
mutate(y.position = 7, p.adj = format.pval(p.adj, digits = 2))
p <- ggplot(veg_un, aes(x=Entfernung, y=DGUnkraut))
geom_boxplot(position=position_dodge())
geom_point(aes(color=Entfernung), position=position_jitterdodge())
facet_wrap(~Soll)
theme_minimal()
p ggsignif::geom_signif(comparisons = list(c("2", "5")), map_signif_level = T)
p ggpubr::stat_pvalue_manual(anno_df, label = "p.adj")
uj5u.com熱心網友回復：
我看到了幾件事。
您的 p.adj 始終為 1。所以我不能用 * 創建標簽
盡管您收到了一些警告，但我沒有收到任何錯誤，并且代碼正在按照我的預期運行。
您可以調整 ylim 的大小并定義標簽的高度。
圖書館（tidyverse）圖書館（ggsignif）圖書館（ggpubr）
anno_df <- compare_means(DGUnkraut ~ Entfernung, group.by = "Soll", data = veg_un, p.adjust.method = "holm") %>%
mutate(y_pos = 5, label = format.pval(p, digits = 2))
ggplot(veg_un, aes(x=Entfernung, y=DGUnkraut))
geom_boxplot(position=position_dodge()) ylim(0,7)
geom_point(aes(color=Entfernung), position=position_jitterdodge())
facet_wrap(~Soll)
theme_minimal()
ggsignif::geom_signif(
inherit.aes = F,
data=anno_df,
aes(xmin=group1, xmax=group2, annotations=label, y_position=y_pos, map_signif_level = T),
manual=TRUE)
我得到了這張圖片。我希望是你要找的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/371947.html