r - R中直方图轴中的千位分隔符

Question

我想以千位分隔格式查看直方图中的 x 轴数字。例如，

y <- seq(10000, 100000, 10000) 
hist(y)

在这个图中，我想在 x 轴上看到 10,000 20,000 等。有什么简单的获取方法吗？

Answer 1

绘制没有 x 轴的直方图，然后手动添加axis：

y <- seq(10000, 100000, 10000) 
hist(y, xaxt="n")
axis(side=1, at=axTicks(1), 
     labels=formatC(axTicks(1), format="d", big.mark=','))

axTicks计算刻度线位置，并formatC格式化数字。结果如下：

Answer 2

该scales库有一个名为的函数comma，它可以根据需要格式化数字：

library(scales)

不是你想要的，而是一个开始：

q<-quantile(y,prob=seq(0,1,.1));hist(y,breaks=q,labels=comma(q))

更好的版本，使用lattice：

q<-quantile(y,prob=seq(0,1,.1));histogram(~y,breaks=q,scales=list(at=q,labels=comma(q)))