ヒストグラムのサンプル

gaccoの確認テストのデータをヒストグラムにしてみました。具体的には dummydata_A.csv というデータを読み取って，その中の食費データをヒストグラムにしています。

ソース

par(family="HiraKakuProN-W3") #mac
par(mar=c(5,4,4,2)+0.1)
par(las=1)
par(cex=0.9)
hist(dummydata_A$食費, breaks=seq(0,230000,10000),
     right = TRUE, 
     col = "gray",  
     main = "Histgram of 食費", 
     ylim = c(0, 2000),
     xlab = "食費階級（円）（以下）", ylab = "")
axis(side=2, labels="頻度", at=2000,
     hadj=0.6, padj=-1.5)