石田修二研究室　＞　データ統計処理　＞　グラフ　＞    （サイト内検索）

公衆無線LANサービス利用者数

ICT総研が出しているデータを元に描いてみました。

ソース。

par(family="HiraKakuProN-W3") # Mac
par(las=1)
par(mar=c(6, 4, 3, 2))
par(cex=0.9)
data=cbind(a = c(675,133),
           b = c(1068, 201),
           c = c(1471, 247),
           d = c(1987, 291),
           e = c(2448, 331)
           )
t = barplot(data, ylim=c(0,3000),
            names.arg=c("2011年度","12年度","13年度",
                            "14年度", "15年度"),
            legend.text=c("個人利用者","ビジネス利用者"),
            args.legend=list(x=3, y=max(colSums(data))),
            xlab="＊ICT総研調査，数値は各年度末3月時点の利用者数")
title("公衆無線LANサービス利用者数")
text(t, colSums(data), labels = colSums(data),
     pos = 3, xpd = TRUE) #データラベル
axis(side=2, labels="万人", at=3000,
     hadj=0.6, padj=-1.5)

このグラフの今後の課題

中にデータラベルを書き入れる場合は，どうすればいいのだろう。

リンクはご自由にどうぞ。

【石田修二研究室】　　【データ統計処理】　【グラフ】

Last modified: 2015-08-31 11:06:05