如何在R中的ggplot中打印x轴刻度线？

Question

在我需要构建描述各种概率分布之间关系的可视化的迷你项目的一部分中，我想使用包含在操作中的ggplot函数，这样用户可以更改分布参数并看到一个分布汇聚到另一个。但是对于下面的代码，我根本无法显示x轴标签（例如：1,2,3,4等）。我尝试使用标签，休息和一些更多的选项，但仍然没有找到解决方案。请请帮忙。谢谢。

#poisson distribution
manipulate(
{
data<-data.frame(x=rpois(1000,lamba))
ggplot(data,aes(x=x),bins = 100)+geom_bar()+scale_x_discrete(breaks = seq(1,20,1))
}
,lamba=slider(0.01,10)
)

Answer 1

您应该使用scale_x_continuous并将breaks更改为seq(0,20,1)以获取图表上所有条形的标记;如果您想从labels而不是1获取0，那么您需要在scale_x_continuous内定义它，如下所示：labels = seq(1,21,1)。

library(manipulate)
library(ggplot2)
manipulate(
  {
    data<-data.frame(x=rpois(1000,lamba))
    ggplot(data,aes(x=x),bins = 100)+geom_bar()+scale_x_continuous(breaks = seq(0,20,1))
  }
  ,lamba=slider(0.01,10)
)