ggpubr：如何获取小提琴/箱形图的摘要统计信息

Question

我是ggpubr包的新手，但到目前为止发现它很棒。但是，我还没有设法找出如何从箱线图取回计算值（范围，IQR等）。通常，$stats参数可以做到这一点，但是现在我得到的只是NULL。

p <- ggviolin(SIM.data, x = "data", y = "percent", fill = "gray80",
       add = "boxplot", add.params = list(fill = "white")) + 
     stat_compare_means(label.y = 25)

p$stats 

有什么建议吗？

Answer 1

使用ggplot_build，然后查看data元素。

pb <- ggplot_build(p)
# str(pb, 1)
pb$data[[2]] # geomBoxplot is the second layer
#  ymin lower middle upper ymax      outliers notchupper notchlower x PANEL group ymin_final ymax_final xmin xmax weight colour  fill size alpha shape linetype
#1  2.9 3.200    3.4 3.675  4.2      4.4, 2.3   3.506137   3.293863 1     1     1        2.3        4.4  0.9  1.1      1  black white  0.5     1    19    solid
#2  2.0 2.525    2.8 3.000  3.4                 2.906137   2.693863 2     1     2        2.0        3.4  1.9  2.1      1  black white  0.5     1    19    solid
#3  2.5 2.800    3.0 3.175  3.6 3.8, 2.2, 3.8   3.083792   2.916208 3     1     3        2.2        3.8  2.9  3.1      1  black white  0.5     1    19    solid

数据

library(ggpubr)
p <- ggviolin(iris, 
              x = "Species",
              y = "Sepal.Width",
              fill = "gray80",
              add = "boxplot",
              add.params = list(fill = "white")) + 
  stat_compare_means()

---

您可能想从奇妙的Creating ggplot2 Extensions阅读@hrbrmstr。