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

Question

在一个迷你项目的一部分中，我需要构建描述各种概率分布之间关系的可视化，我想使用包含在操作中的 ggplot 函数，以便用户更改分布参数并查看 1 一个分布收敛到另一个分布。但是对于下面的代码，我根本无法显示 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) 以获取图表上所有柱的刻度；如果您想从1 获取labels 而不是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)
)