将错误条添加到R中的自定义条形图函数

我有一个函数，可以定制柱状图来绘制相关系数，如下所示

    olsenbar <- function(i , axisnames = FALSE , data = rs) {
   barplot(
     data[,i] ,
     main = colnames(data)[i] ,
     horiz = TRUE ,
     border = FALSE ,
     space = NULL , col = c ("dimgray") , 
     axes = FALSE ,
     axisnames = axisnames ,
     cex.names = 2 ,
     cex.main = 2 ,
     ylab = "" ,
     xlab = "" ,
     xlim = c(-1,1))
   axis( side = 1 , at = c(-1.0,0,1.0) , cex.axis = 1.6)
   abline( v = 0 , lty = 1 , lwd = 3 , col = grey(0.5))
   abline( v = seq( -1 , 1 , 0.1 ) , lty = 3 )}

当我像这样对它应用上面的函数时

olsenbar( 2 , data = df , axisnames = TRUE )

我以下面的情节结束

---

然而，我想输入相应的置信区间，但我似乎无法计算出来。据我所知，为这些条形图计算错误条有点棘手，无论我怎么做，我都无法让它工作。任何帮助都将不胜感激。

使用

ggplot2

：

库（ggplot2）
ggplot（df，aes（名称，r））+
几何图形颜色（填充='dimgray'）+
几何误差条（aes（ymin=较低，ymax=较高），宽度=0.5，尺寸=1）+
geom_hline（yintercept=0）+
刻度连续（极限=c（-1,1），位置=顶部，中断=c（-1,0,1），小中断=顺序（-1,1,1））+
coord_flip（）+
主题（panel.grid=element\u blank（），
panel.grid.major.x=元素_线（线型=3，颜色=黑色），
panel.grid.minor.x=元素_线（线型=3，颜色=黑色），
panel.background=element_rect（'白色'）
)

数据：

---

df是一个选项吗？或者你必须在base R中这样做？是的，但我更喜欢在base R中这样做，以了解更多关于创建和实现函数等功能的信息。我想在
ggplot2
中，你可以添加错误条并使用
coord_flip（）
翻转坐标系。哇，非常感谢@GGamba！天哪，我爱这个地方。
olsenbar( 2 , data = df , axisnames = TRUE )