[追記] 2013年06月13日に公開された「交通事故統計（平成25年5月末）」というExcelファイルによれば，1998-2012年の死者数は 9211, 9006, 9066, 8747, 8326, 7768, 7425, 6927, 6403, 5782, 5197, 4968, 4922, 4663, 4411 となっており，以下と若干異なります。
統計（警察庁）のページから現時点で最新の交通事故統計（平成22年9月末）に飛び，Excelファイルをダウンロードしました。例によって我が国の統計はWindows＋Excelに依存しきっているので，MacのExcel 2008では右図のようなエラーが出ますが，かまわず開きます。
1995年（平成7年）から2009年（平成21年）までの毎年の交通事故死者数は次のようになっているようです：
年 = 1995:2009
死者数 = c(10679, 9942, 9640, 9211, 9006, 9066, 8747,
8326, 7702, 7358, 6871, 6352, 5744, 5155, 4914)
これをグラフにしてみましょう。まず準備です。
# par(family="HiraKakuProN-W3") # これはMacだけの和文フォント設定
par(las=1) # 縦軸の文字を横向きにしない
par(mgp=c(2,0.8,0)) # 軸マージン（デフォルト: c(3,1,0)）
棒グラフなら，例えば次のように描けます。
barplot(死者数, names.arg=substr(年,3,4), col="#77aaee")
axis(2, "人", at=10000, padj=-1)
title("交通事故死者数", line=-1)
このデータ（の2005年までの分）のRによる図示と考察は熊谷悦生，舟尾暢男『Rで学ぶデータマイニングI データ解析の視点から』（九天社，2007年）のpp.134-143にあります［九天社は倒産し，2008年に改訂版がオーム社からRで学ぶデータマイニングI データ解析編として出ています］。このデータに対しては「平成14年（2002年）6月の道路交通法改正により飲酒運転の罰則が最大30万円となったことで飲酒運転自体が減りその結果死者数が減少した」とのコメントが当時あったそうですが，図示してみると，毎年徐々に減っており，2002年を境として減少したわけではないことがわかります（2002年以外にも道路交通法は改正されています）。
折れ線グラフなら，例えば次のようにすれば描けます：
plot(年, 死者数, type="o", pch=16, xlab="", ylab="", xaxt="n")
t = c(1995, 2000, 2005, 2009)
axis(1, t, t)
axis(4, labels=FALSE)
title("交通事故死者数", line=0.5)
axis(2, "人", at=10000, padj=-1)
実は1970年（昭和45年）のデータもあるので，これを加えると次のようになります：
plot(年, 死者数, type="o", pch=16, xlab="", ylab="", xaxt="n",
xlim=c(1970,2009), ylim=range(c(16765,死者数)))
points(1970, 16765, pch=16)
lines(c(1970,1995), c(16765,10679), type="b", col="gray")
t = c(1970, 1995, 2000, 2005, 2009)
axis(1, t, t)
axis(4, labels=FALSE)
title("交通事故死者数", line=0.5)
axis(2, "人", at=16000, padj=-1)
ちなみに，警察庁の交通事故死の定義は，事故後24時間以内の死亡です。死者数の減少は，交通事故の減少よりも，延命技術の進歩によっているのかもしれません。
Last modified: