R 一起绘制几何图形条和几何图形点？

另外，如果给定的

x

是

整数

，那么它已经是离散的，我是否必须

因子

？ 错序 错误的x轴标签

data=data.frame(x=rep(0:9, each=2))

ggplot(data, aes(x=factor(x))) + geom_bar(alpha=0.5) + 
    geom_point(data=data.frame(x=0:10, y=2), aes(x=factor(x), y=y), alpha=0.5) 

ggplot(data, aes(x=factor(x))) + geom_bar(alpha=0.5) + 
    geom_point(data=data.frame(x=0:10, y=2), aes(x=factor(x), y=y), alpha=0.5) +
    scale_x_discrete(limits=0:10)

您可以强制使用离散比例来获得所需的内容。奇怪的是，当你混合使用geom_point（）和geom_bar（）时，ggplot开始以意想不到的方式排序

---

不过，它并不完美，因为轴中还剩下-1个

ggplot(data, aes(x=x)) + geom_bar(alpha=0.5) + scale_x_discrete(limits=0:10) + 
  geom_point(data=data.frame(x=0:10, y=2), aes(x=x, y=y), alpha=0.5)