パソコン世帯普及率

総務省通信利用動向調査は各年末に行われる調査。郵送による調査票の配布及び回収による。

次のPC世帯普及率データは報道発表資料の平成20年度調査(PDF)による。世帯編平成19年度調査(PDF)や平成18年度調査(PDF)によれば2006年度の普及率は80.8%ではなく74.1%になっている。なぜ訂正されたのか不明。グラフをよく見れば,74.1%では異様に凹んでいることがわかる[追記:統計調査データ:正誤情報 の「H21.6.25掲載」にて訂正]。

年 回答数 総数 PC世帯普及率
2008 4515 6256 85.9
2007 3640 6256 85.0
2006 4999 7488 74.1 # → 80.8
2005 3982 6400 80.5
2004 3695 6400 77.5
2003 3354 6400 78.2
2002 3673 6400 71.7
2001 3845 6400 58.0
2000 4278 6400 50.5
1999 3657 6400 37.7

2006年の普及率は,上の表は訂正前の74.1%で,訂正後は80.8%である。

上の表をクリップボードにコピーして,以下のコードを実行する(Mac/Windowsのうち不要なほうは削除する)。

options(encoding="SJIS")                      # Mac
X = read.table("clipboard", header=TRUE)      # Windows
X = read.table(pipe("pbpaste"), header=TRUE)  # Mac
par(family="HiraKakuPro-W3")                  # Mac
par(las=1)              # 縦軸の文字を横向きにしない
par(mgp=c(2,0.8,0))     # 軸マージン(デフォルト: c(3,1,0))
plot(X$年, X$PC世帯普及率, pch=16, type="o", ylim=c(30,90),
     xlab="", ylab="", axes=FALSE)
t = 1999:2008
axis(1, t)
t = seq(30, 90, 10)
axis(2, t, paste(t, "%", sep=""))
axis(4, t, labels=FALSE)
arrows(2006, 74.1, 2006, 80.8, 0.1)
points(2006, 80.8, pch=16)
points(X$年, X$回答数/X$総数*100, type="b")
text(2003, 82, "PC世帯普及率")
text(2003, 48, "質問紙回収率")

PC世帯普及率

axes=FALSE の代わりに xaxt="n", yaxt="n" とすれば,PC普及率データ訂正? | Okumura's Blog にあるようにグラフ領域が長方形の枠で囲まれる。また,最後の2行の代わりに

legend(2001, 98, pch=c(16,1), legend=c("PC世帯普及率 ","質問紙回収率"),
       bty="n", horiz=TRUE, xpd=TRUE)

とすれば,凡例が上マージンに出る。


奥村晴彦

Last modified: 2009-11-18 13:44:49