如何在 R 中构建具有固定值的错误栏

Question

我有一个条形图，我需要在其中添加一个误差条。它应该是每列相同的误差范围，因此与标准误差线有点不同。在以前的问题中，仅讨论了依赖于均值或标准差的误差线。

我尝试了箭头函数

arrows(dat$usage_time, dat$usage_time-1, dat$usage_time, dat$usage_time+1, length=0.05, angle=90, code=3)

但它并没有真正奏效。 dat$usage_time 是一个整数，应该作为坐标。有什么问题？

Answer 1

是的，您需要提供数据和代码。尽管如此，我们将利用现有的资源。

第一个选项是从这里修改的： https://datascienceplus.com/building-barplots-with-error-bars/ 假设你的误差线是 +/-1，并且有一个虚拟数据集：

x<-c(1,1,1, 1, 2,2,2)
y<-c(4,8,12,12,5,3,3)
d<-as.data.frame(cbind(x,y))
library(dplyr)
d2<- d %>%   group_by(x) %>%   summarise_at(mean, .vars = vars(y)) 

barplot<-barplot(height=d2$y, ylim=c(0, max(d2$y)+3))

text(x = barplot, y = par("usr")[3] - 1, labels = d2$x)

arrows(barplot,  d2$y-1, barplot, d2$y+1, length=0.05, angle=90, code=3)

并在 ggplot2 中绘制它，怎么样：

ggplot(data=d2, aes(x=x,  y=y)) + 
  geom_bar(fill="grey", width=.8, stat="identity") + 
  xlab("date") + ylab("usage time") + 

  geom_errorbar(aes(ymin=y-1, ymax=y+1),     width=.2)

如何在 R 中构建具有固定值的错误栏

How to build an error bar with a fixed value in R

plot

r

errorbar