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计算tickmark位置，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)))