总结所有置信区间

Question

library(gmodels)
library(dplyr)

df<- data.frame(a=1:5,b=6:10,c=11:15)


df %>% 
  summarise_all(funs(mean,sd,min,max))

此刻，我有一个df，可生成平均值，sd，最小值和最大值的摘要。

df %>% 
  summarise_all(funs(mean,sd,min,max, function(x) ci(x,confidence=0.95)[2]))

我想做类似的事情，并使用dplyr添加较低的ci（并最终添加较高的ci）。但这是我得到的错误：错误：function(x) ci(x, confidence = 0.95)[2]必须是函数名（带引号或不带引号）或无引号的调用，而不是function 致电rlang::last_error()查看回溯

sapply(df, function(x) ci(x,confidence=0.95)[2])

我知道我可以用较低的ci降低下ci，但是想在dplyr中做到这一点 谢谢