R中带正态曲线和误差条的直方图

输出：

期望：

---

在没有任何外部库的情况下，是否可以使用+/-error的值将错误条添加到直方图？

您应该能够使用箭头功能绘制错误条：

    #import data
    data = diameters$V1
    error = .005 #mm

    #make histogram
    h <- hist(data, breaks = "FD", density = 10,
              col = "lightblue", xlab = "Diameter", main = "Overall") 

    # Make normal curve
    xfit <- seq(min(data), max(data), length = 40) 
    yfit <- dnorm(xfit, mean = mean(data), sd = sd(data)) 
    yfit <- yfit * diff(h$mids[1:2]) * length(data) 

    #Draw normal curve
    lines(xfit, yfit, col = "black", lwd = 2)

x0和x1指定直线的起点和终点x坐标，保持它们相同

y0和y1指定起始和结束y坐标，例如要绘制的线的长度

code=3告诉R绘制一个双面“箭头”，angle=90使“箭头”成为一条平线，length=0.05指定错误条的宽度

有关详细信息，请参见？箭头

## Create a histogram from random data
> hist(sample(runif(100)))
> arrows(x0 = 0.15, y0 = 11, x1 = 0.15, y1 = 13, code = 3, length = 0.05, angle = 90)