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)))