R barplot（）：在x轴上移位？

Question

我想绘制二项式的PMF（40,0.5），但是下面的barplot似乎给了我一个错误的x轴位置？

probability = dbinom(0:40, 40, 0.5)
plot(probability, pch = 21, bg="red")
barplot(probability, add = TRUE)

我的barplot()使用相同的数据probability作为其高度，为什么它会向右移动一点？我想知道我错过了哪里，我该如何解决？