r - 中心のないggplot

Question

プロットが右にシフトする理由がわかりません：

x = data.frame(vals = round(runif(500, min=1, max=4)))

ggplot(x, aes(x=vals)) +
    geom_bar(aes(y=(..count..)/sum(..count..)),
        binwidth=0.5, origin=-0.25) +
    scale_x_discrete(name='numbers',
        limits=c(1,2,3,4)) +
    scale_y_continuous(name='%', labels=percent,
        limits=c(0,0.5))

実際のデータと上記のシミュレーションで試しました。私のデータには変な値が隠れていると思っていましたが、きれいなフレームです。

助けてください！