向R中的水平条形图添加误差线

如果为horiz = FALSE，则您的arrows代码块应为

arrows(x0 = barplot1, 
       y0 = data$rg - data$se,
       x1 = barplot1,
       y1 = data$rg + data$se,
       lwd= 1.5,angle=90,code=3,length=0.05)

但是，因为horiz = TRUE，你需要切换的位置x0，y0，x1，y1。在R中执行此操作的完整代码为：

barplot1 <- barplot(data$rg,
                    main="correlation between traits",
                    xlab="rG",  
                    border="blue", 
                    las=1, 
                    horiz = TRUE,
                    names.arg=data$trait2, 
                    cex.names=0.5,
                    xlim=range(-0.4,0.6,0.1))


segments(data$rg - data$se, barplot1, data$rg + data$se , barplot1,
         lwd = 1.5)

arrows(data$rg - data$se, barplot1, data$rg + data$se, barplot1, 
       lwd = 1.5, angle = 90,
       code = 3, length = 0.05)

在中更容易做到这一点ggplot2。

ggplot(data, aes(trait2, rg)) + geom_col(color = "blue") + 
  geom_errorbar(aes(ymin = rg - se, ymax = rg + se), width = 0.3) + 
  coord_flip() + 
  theme_bw()