R中的千分位直方图轴

Question

我希望在我的直方图中以千位分隔格式查看x轴数字。因此，例如，

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

在这个图中，我想看到10,000 20,000等在x轴上。任何简单的方法来获取它？

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=',')) 

计算对勾标记位置，并且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)))