如何更改抖动图的宽度

Question

jitter <- ggplot(diamonds[sample(nrow(diamonds), 1000), ],
                 aes(x=cut, y=price, color=clarity)) + 
  geom_point() + 
  geom_jitter(alpha=0.5) 

结果非常糟糕，所有观点都凝聚在一起。有什么功能可以将x轴拉伸到一个不错的方式吗？谢谢。