我试着从下面方框图中的测试中获得plot two different results分.问题是it is duplicating是我的注解.

  • 剧情:

myphoto

  • 数据:

这是两组(I和II)所进行的两次测试(E,P)的结果以及每组的得分. 我想在图中画出分数之间的差异,但我做不对.

> head(df)
  ID GROUP TEST SCORE
1  1     I    E     0
2  2     I    P     3
3  3     I    E     3
4  4     I    P    11
5  5     I    P     8
6  6     I    E     0


#code:

ggplot(df, aes(x =GROUP, y = SCORE, fill = TEST)) +
  stat_boxplot(geom = "errorbar",
               width = 0.15) +
  geom_boxplot(aes(fill = TEST), outlier.colour = "black", outlier.shape = 19,
               outlier.size= 2, notch = T) +
  stat_summary(fun = mean, geom = "point", shape = 20, size= 3, 
               color= "black", show.legend = FALSE) +
  facet_wrap(~ TEST) +
  labs(x = "Group",
       y = "Score") +
  
 annotate("text",
            x = 1.2,
            y = max(df$SCORE), 
            label = expression(paste(italic("t"), "(", 97, ") = ", 9.45, ", ", italic("p"), " < .001")), 
            parse = TRUE, hjust = 0, vjust = 1, size = 4, color = "black")
  • 假设我想在右边注释"t(97)= 9.45,p.0001",左边注释"W = 5253.50,p.001"(以p斜体字表示).<< How can I do it?

* * 注意:我看到它here,annotate()重复它,但我不能得到斜体没有它.

  • -数据集:
structure(list(ID = 1:525, GROUP = structure(c(1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 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, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), levels = c("I", "II"), class = "factor"), 
    TEST = structure(c(2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 
    1L, 2L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 
    1L, 1L, 2L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 2L, 1L, 2L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 
    2L, 1L, 2L, 2L, 1L), levels = c("P", "E"), class = "factor"), 
    SCORE = c(0L, 3L, 3L, 11L, 8L, 0L, 8L, 0L, 1L, 7L, 0L, 6L, 
    2L, 6L, 4L, 9L, 7L, 4L, 15L, 4L, 9L, 1L, 7L, 1L, 0L, 4L, 
    1L, 3L, 2L, 9L, 2L, 4L, 0L, 7L, 1L, 10L, 12L, 1L, 9L, 0L, 
    6L, 2L, 8L, 4L, 9L, 0L, 10L, 0L, 6L, 10L, 2L, 7L, 0L, 5L, 
    5L, 10L, 1L, 10L, 1L, 4L, 2L, 10L, 0L, 6L, 9L, 1L, 11L, 1L, 
    7L, 7L, 12L, 0L, 4L, 11L, 3L, 7L, 12L, 12L, 0L, 8L, 1L, 12L, 
    11L, 1L, 10L, 2L, 13L, 3L, 9L, 7L, 9L, 3L, 12L, 4L, 10L, 
    8L, 2L, 5L, 5L, 12L, 7L, 11L, 0L, 6L, 1L, 7L, 0L, 10L, 1L, 
    6L, 0L, 5L, 10L, 0L, 2L, 8L, 1L, 10L, 7L, 1L, 10L, 0L, 0L, 
    5L, 1L, 11L, 4L, 1L, 5L, 1L, 10L, 8L, 0L, 0L, 6L, 0L, 10L, 
    0L, 7L, 1L, 0L, 0L, 1L, 0L, 1L, 11L, 0L, 7L, 0L, 8L, 2L, 
    7L, 3L, 10L, 3L, 12L, 2L, 9L, 0L, 3L, 5L, 12L, 6L, 14L, 1L, 
    9L, 1L, 10L, 1L, 8L, 1L, 11L, 0L, 4L, 2L, 11L, 0L, 9L, 1L, 
    9L, 7L, 1L, 8L, 1L, 8L, 0L, 11L, 3L, 11L, 9L, 11L, 2L, 9L, 
    1L, 8L, 2L, 9L, 0L, 6L, 3L, 7L, 1L, 7L, 4L, 11L, 2L, 7L, 
    3L, 9L, 0L, 5L, 0L, 5L, 5L, 11L, 4L, 14L, 2L, 6L, 3L, 6L, 
    2L, 6L, 5L, 11L, 9L, 3L, 11L, 0L, 9L, 0L, 0L, 0L, 0L, 4L, 
    13L, 0L, 6L, 2L, 6L, 1L, 7L, 0L, 7L, 0L, 5L, 2L, 4L, 9L, 
    12L, 2L, 11L, 3L, 9L, 5L, 9L, 0L, 6L, 9L, 4L, 13L, 12L, 6L, 
    15L, 5L, 12L, 2L, 12L, 12L, 1L, 5L, 4L, 8L, 3L, 9L, 7L, 13L, 
    4L, 10L, 6L, 12L, 1L, 11L, 7L, 12L, 10L, 13L, 4L, 14L, 6L, 
    11L, 2L, 14L, 1L, 9L, 4L, 9L, 1L, 11L, 1L, 8L, 11L, 3L, 12L, 
    3L, 11L, 4L, 7L, 1L, 5L, 1L, 11L, 8L, 12L, 0L, 8L, 2L, 10L, 
    6L, 12L, 0L, 4L, 2L, 10L, 7L, 13L, 7L, 13L, 11L, 14L, 2L, 
    10L, 7L, 13L, 3L, 11L, 6L, 10L, 1L, 10L, 3L, 12L, 7L, 14L, 
    5L, 9L, 1L, 9L, 4L, 12L, 10L, 4L, 8L, 12L, 4L, 8L, 7L, 15L, 
    6L, 11L, 13L, 10L, 14L, 2L, 11L, 2L, 10L, 4L, 11L, 4L, 14L, 
    2L, 9L, 2L, 12L, 1L, 9L, 9L, 1L, 9L, 5L, 11L, 1L, 9L, 1L, 
    11L, 6L, 14L, 4L, 13L, 10L, 4L, 11L, 15L, 12L, 2L, 13L, 1L, 
    11L, 0L, 8L, 1L, 9L, 2L, 0L, 11L, 6L, 15L, 5L, 9L, 10L, 14L, 
    7L, 15L, 5L, 13L, 6L, 13L, 1L, 5L, 1L, 11L, 8L, 12L, 1L, 
    7L, 6L, 13L, 3L, 12L, 4L, 12L, 6L, 15L, 1L, 10L, 4L, 12L, 
    3L, 10L, 3L, 11L, 13L, 1L, 9L, 1L, 11L, 8L, 13L, 7L, 2L, 
    8L, 2L, 10L, 2L, 9L, 3L, 11L, 5L, 11L, 3L, 11L, 2L, 7L, 3L, 
    9L, 12L, 2L, 13L, 1L, 12L, 0L, 9L, 1L, 11L, 11L, 11L, 4L, 
    11L, 5L, 12L, 12L, 10L, 6L, 11L, 6L, 11L, 12L, 14L, 5L, 14L, 
    10L, 14L, 7L, 11L, 2L, 9L, 4L, 12L, 5L, 11L, 2L, 10L, 2L, 
    2L, 7L, 1L, 10L, 0L, 14L, 6L, 14L, 10L, 11L, 11L, 8L, 15L, 
    1L, 9L, 12L, 7L, 12L, 4L, 3L, 10L)), class = "data.frame", row.names = c(NA, 
-525L))

推荐答案

您可以创建一个包含TEST变量的虚拟数据框,然后使用geom_richtextggtext绘制注释:

library(ggtext)

ggplot(df, aes(x = GROUP, y = SCORE, fill = TEST)) +
  stat_boxplot(geom = "errorbar",
               width = 0.15) +
  geom_boxplot(aes(fill = TEST), outlier.colour = "black", outlier.shape = 19,
               outlier.size= 2, notch = T) +
  stat_summary(fun = mean, geom = "point", shape = 20, size= 3, 
               color= "black", show.legend = FALSE) +
  facet_wrap(~ TEST) +
  labs(x = "Group",
       y = "Score") +
  geom_richtext(data = data.frame(x = 1.5, SCORE = 16, 
                                  TEST = factor(c('E', 'P'), c('P', 'E')),
                                  label = c('t(97) = 9.45, <i>p</i> < 0.001',
                                            'W = 5253.50, <i>p</i> < 0.001')),
                aes(x = x, label = label), fill = NA, label.colour = NA) 

enter image description here

R相关问答推荐

基于R中的GPS点用方向箭头替换点

使用R的序列覆盖

使用gggrassure减少地块之间的空间

为什么我的基准测试会随着样本量的增加而出现一些波动?

如何识别倒排的行并在R中删除它们?

使用Scale_*_MANUAL时在图例中保留未使用的系数级别

为什么我使用geom_density的绘图不能到达x轴?

具有重复元素的维恩图

`夹心::vcovCL`不等于`AER::tobit`标准错误

使用ifElse语句在ggploy中设置aes y值

使用geom_sf跨越日期线时的闭合边界

随机生成样本,同时在R内的随机样本中至少包含一次所有值

具有由向量定义的可变步长的序列

在使用ggplot2的情况下,如何在使用coord_trans函数的同时,根据未转换的坐标比来定位geom_瓷砖?

合并多个数据帧,同时将它们的名称保留为列名?

汇总数据:在跨越()all_of()Dynamic_list_of_vars=>;所选内容不能有缺失值的汇总()中出错

如何准确地指出Read_delim所面临的问题?

残差与拟合图上标记点的故障排除

使用grepl过滤特定列范围内的列名

根据小时-分钟列创建年-月-日序列