如何使用 ggplot2 中使用的 mean_CI_boot 计算自举置信区间？

Question

我有一个 2 x 2 阶乘数据集，我已经使用mean_cl_boot函数为其绘制了置信区间。 我想使用适当的函数在 R 中计算它。 我怎样才能做到这一点？

我的数据集示例如下：

df <- data.frame(
      fertilizer = c("N","N","N","N","N","N","N","N","N","N","N","N","P","P","P","P","P","P","P","P","P","P","P","P","N","N","N","N","N","N","N","N","N","N","N","N","P","P","P","P","P","P","P","P","P","P","P","P"), 
      level = c("low","low","high","high","low","low","high","high","low","low","high","high","low","low","high","high","low","low","high","high","low","low","high","high","low","low","high","high","low","low","high","high","low","low","high","high","low","low","high","high","low","low","high","high","low","low","high","low"), 
      repro = c(0,90,2,4,0,80,1,90,2,33,56,0,99,100,66,80,1,0,2,33,0,0,1,2,90,5,2,2,5,8,0,1,90,2,4,66,0,0,0,0,1,2,90,5,2,5,8,55)
    )    

我知道有一些方法可以从图中提取 CI 点，但我不想这样做。 我想使用计算这个的函数。

Answer 1

mean_cl_boot建立在Hmisc::smean.cl.boot() 。

如果您想为所有值（无论级别如何）计算自举 CI， smean.cl.boot(df$repro)应该这样做。

这就是在 base R 中执行拆分-应用-组合的方法：

library(Hmisc)
ss <- with(df, split(df, list(fertilizer,level)))
bb <- lapply(ss, function(x) smean.cl.boot(x$repro))
do.call(rbind,bb)

结果：

           Mean     Lower    Upper
N.high 19.00000  5.747917 36.58750
P.high 26.09091  8.631818 47.27273
N.low  33.75000 12.416667 58.26042
P.low  20.38462  1.615385 42.69423

如果你想在 tidyverse 中这样做：

library(tidyverse)
(df 
    %>% group_split(fertilizer,level) 
    %>% map_dfr(~as_tibble(rbind(smean.cl.boot(.[["repro"]]))))

（这并不完全令人满意：可能有更简洁的方法来做到这一点）