人口密度と出生率

2014年10月29日の日経新聞記事（真相深層）少子化対策より交付金？ 地方創生「東京集中是正論」の裏側　都市の若者支援急務（有料）に載っている「欧州の地域別人口密度と出生率」というプロットがひどいというこのツイートが話題になっていた。

データについては，微妙に違うようだが，鈴木努先生（@snatool）に教えていただいたものがほぼ同じようである：

これら（gunzipで伸長）をRで読み込む。

fertility = read.table("tgs00100.tsv", header=TRUE, as.is=TRUE, na.strings=":")
popden = read.table("tgs00024.tsv", header=TRUE, as.is=TRUE, na.strings=":")
fertility[,1] = sub("TOTAL,", "", fertility[,1])
all = merge(fertility, popden, by.x=1, by.y=1)
fert = all$X2012.x
pden = all$X2012.y
plot(pden, fert, xlim=c(0,8000), xlab="人口密度（km2あたり）", ylab="出生率")
abline(lm(fert ~ pden))
人口密度と出生率
Source: Eurostat

横軸を対数目盛にしてみる。

plot(pden, fert, xlim=c(3,8000), xlab="人口密度（km2あたり）", ylab="出生率", log="x")
abline(lm(fert ~ log10(pden)))
人口密度と出生率
Source: Eurostat

もう何も言うことはない。いや，たとえ相関があっても，人口密度を高くすれば出生率が上がる（下がる）という問題ではない。

［追記］Eurostatの Copyright notice and free re-use of data に従って「Source: Eurostat」という表示を図のキャプションに入れました。ご指摘多謝。

［追記］参考（必ずしも参考にならないコメント多し）：勢いと雰囲気で押し切るトンデモグラフを堂々と掲載してきた日経新聞 - Togetterまとめ

Last modified: