南伊勢町 町営バス利用者数

2012年から2017年までの南伊勢町の町営バス利用者数の推移。

ソース

par(family="HiraKakuProN-W3") #mac
par(mar=c(5,4.5,3,1)+0.1) #下左上右のマージン
par(las=1)
par(cex=0.9)
y = c(2012:2017)
n = c(55847, 44756, 38004, 39587, 34260, 31663)
t = barplot(n, names.arg = y, ylim = c(0,60000),
            col = "gray",
            main="南伊勢町 町営バス利用者数の推移",
            xlab = "年度（前年10月1日から当年9月30日まで）")
text(t, y = n, labels = n,
     pos = 3, cex=0.8, xpd = TRUE) #データラベル
axis(side=2, labels="人", at=60000,
     hadj=0.6, padj=-1.5)