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))

我尝试使用真实数据和上述模拟。我认为我的数据中隐藏了一些奇怪的值，但它是干净的框架。

请帮忙！