I have this boxplot wiht some p values calculated. I want to add the other calculated p values as manually shown (within the groups, two diffetent times)
I dont need all the p values, only those as shown.
This is the code:
stat.test1 <- Test %>%
group_by(Time) %>%
t_test(value ~ group) %>%
adjust_pvalue(method = "none") %>%
add_significance("p.adj")
Test.Boxplot <- ggboxplot(
Test, x = "Time", y = "value",
color = "group", palette = c("#00AFBB", "#E7B800")
)
stat.test1 <- stat.test1 %>%
add_xy_position(x = "Time", dodge = 0.8)
Test.Boxplot +
stat_pvalue_manual(
stat.test1, label = "{p.adj}{p.adj.signif}",
tip.length = 0, hide.ns = FALSE
)
Here my data:
structure(list(group = c("Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Kontrollgruppe", "Kontrollgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe", "Kontrollgruppe",
"Kontrollgruppe", "Kontrollgruppe", "Experimentalgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Kontrollgruppe", "Kontrollgruppe", "Kontrollgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Kontrollgruppe", "Kontrollgruppe", "Kontrollgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Kontrollgruppe", "Kontrollgruppe", "Kontrollgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Kontrollgruppe", "Kontrollgruppe", "Kontrollgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe", "Experimentalgruppe",
"Kontrollgruppe", "Kontrollgruppe", "Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Experimentalgruppe", "Kontrollgruppe",
"Experimentalgruppe", "Kontrollgruppe", "Kontrollgruppe", "Kontrollgruppe",
"Kontrollgruppe", "Experimentalgruppe", "Experimentalgruppe",
"Kontrollgruppe"), value = c(2.1, 1.3, 0.8, 2.3, 1.6, 1.6, 1.4,
1.7, 1.4, 1.2, 1.2, 2, 1.7, 2.2, 1.7, 1.9, 2.1, 1.9, 9.3, 10.7,
9.1, 9.1, 8.3, 4.9, 9.1, 6.5, 5.6, 10.4, 7.4, 4.2, 14.9, 7.2,
7.9, 8.6, 8.5, 11.4, 2.2, 1.9, 1.4, 1.9, 2, 2.1, 1, 1.6, 2.1,
1.9, 1.8, 1.7, 1.5, 2.4, 1.4, 2.7, 2.4, 3, 12.8, 8.5, 10.8, 11.5,
8.8, 9, 7.8, 10.3, 12.5, 11.7, 9.7, 5.3, 12.6, 10.3, 7.7, 9.6,
8.5, 13.3, 1.7, 2.1, 3.2, 2.6, 1.5, 2, 1.1, 2.9, 1.4, 1.8, 1.4,
1.4, 1.3, 1.8, 1.7, 2.3, 2.6, 3.1, 8.5, 7.3, 7.6, 9.9, 9.9, 9,
6.4, 7.8, 9.3, 10.5, 7.4, 5.2, 12.3, 8.7, 6.2, 8.6, 6.2, 12.2
), Time = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L,
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L,
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L,
6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L,
6L, 6L), .Label = c("t0 pre", "t0 post", "t1 pre", "t1 post",
"t2 pre", "t2 post"), class = "factor")), row.names = c(NA, -108L
), class = "data.frame"
question from:
https://stackoverflow.com/questions/65645369/rstudio-add-more-p-value-to-boxplot-within-the-groups-two-diffetent-times 
