一起绘制geom_bar和geom_point？

Question

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)

此外，我必须factor x integer是{{1}}所以它已经是离散的吗？ 顺序错误 x轴标签错误。

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

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