【第786回】 長野は既に寒い（2014年9月14日〜15日）
- 日曜朝に長野駅に着き，中日スポーツを買ってから帰宅。洗い物とか洗濯とか買い物とか，午後のプロ野球観戦以外は家事に明け暮れた。山本昌投手はコントロールが今ひとつだったが，負けなくて良かった。が，あそこまで攻めたら，サヨナラ勝ちして欲しかったところ。晩飯はビーフクリームシチューを作った。
- 月曜はゴミ回収が休みだったのでゆっくり起床し，バジル風味の鶏モモ肉細切れ，キャベツ，ニンジン，マイタケなどの炒め物を作って朝食を済ませた。娘のいろいろなリクエストに応えながら，長野に来る夜行バスの中で読み始めた，水生大海『ランチ合コン探偵』実業之日本社，ISBN 978-4-408-53651-4（Amazon | honto | e-hon）を読了。『少女たちの羅針盤』，『かいぶつのまち』で作者が見せていた繊細な感性や本格への拘りはオブラートにくるまれ，俗物的な日常性に流れるやるせない感じが前面に出ている分，大人向けになったのかもしれない。安楽椅子探偵もので，恋人を探してランチ合コンを企画する俗っぽい美人さんと，見かけは可愛らしいのだけれども超博識で人間観察を趣味にしているミステリ好きな探偵役，2人のOLが主役なのだけれども，合コン相手となる男性陣へのなかなか辛辣な批評が面白い。読んでいるだけで食欲がわくランチメニューの描写も良かった。
- 昼食はチャーハンを作ろう。ベーコンとタマネギを使って作ったら，想像以上に美味くでき，この企画は成功だった。
- ヤマダ電機で買い物をして帰ってきたら日が暮れた。
- 国立国際医療研究センター病院国際感染症センターのNCGM感染症レビューコース2014（リンク先は「受講の手引き」のスライド）は興味深い企画だ。
- fmsbパッケージ内の人口動態統計データの更新作業として，Jvitalに数日前に発表された2013年確定数を追加するのとともに，2013年確定数のみだが都道府県別の人口動態データをJvital2013byPrefとして追加した。このデータを使った例としては，例えば，
とすれば，横軸を交通事故死亡率（人口10万対），縦軸を合計出生率TFRとした散布図が描けるし，死因別死亡率も入っているので，その都道府県別パタンを見たいと思えば，library(fmsb)
plot(TFR ~ CSM.TA, data=Jvital2013byPref)CSM <- Jvital2013byPref[, grep("CSM", names(Jvital2013byPref))]
OthPref <- CSM[-c(13, 20, 47), ]
TagPref <- CSM[c(13, 20, 47), ]
x <- rbind(OthPref, TagPref)
xc <- c(rep("lightgrey", 44),"deeppink","deepskyblue","navy")
xw <- c(rep(1, 44), rep(2, 3))
par(mar=c(6,2,4,2))
radarchart(x, maxmin=FALSE, pcol=xc, plty=1, plwd=xw,
vlabels=c("全死因","がん","心疾患","肺炎","脳血管疾患",
"老衰","事故","自殺","腎不全","COPD","大動脈瘤",
"肝疾患","糖尿病","敗血症","その他\n新生物",
"認知症","結核","交通事故"))
title(main="都道府県別死因別死亡率パタン（2013年人口動態統計）")
legend("bottomright", lty=1, lwd=c(2, 2, 2, 1),
col=c("deeppink","deepskyblue","navy","lightgrey"),
legend=c("東京","長野","沖縄","他道府県"))
- このデータは，例えばNipponパッケージを使ってコロプレス図を描くような使い方もできる（library(Nippon); library(fmsb); JapanPrefecturesMap(col=rev(heat.colors(6))[cut(Jvital2013byPref$CSM.LIVD, c(5, 10, 12.5, 15, 17.5, 20, 25), right=FALSE)]); legend("bottomright", fill=rev(heat.colors(6)), legend=c("[5, 10)", "[10, 12.5)", "[12.5, 15)", "[15, 17.5)", "[17.5, 20)", "[20, 25)")); title(main="日本の人口動態統計2013年確定数による\n 都道府県別肝疾患死亡率")としてみると，肝疾患死亡率で塗り分けた地図が描かれる）。ただし，死因別死亡で年齢調整をしていないため，損失余命でみた場合とまったく特徴が異なることには注意されたい。沖縄や東京の値が小さいのは年齢構造が若いことの寄与が大きいと思う。肝疾患による死亡は，それでも全都道府県の中で沖縄が最も高い値になっているので，公衆衛生政策上，注目する必要があると思う。
- それにしても長野は日が暮れると既に寒い。神戸とは大違いだ。鶏モモ肉とニンジン，ゴボウを細く切ったものを醤油麹と生姜で煮込んで，味醂とナスを加えてさらに煮て晩飯のおかずを作った。温まった。
- 今日もドラゴンズは負けたらしい。伊藤準規投手が好投したなら，勝たせてやりたかったが。
△Read/Write COMMENTS
▼前【785】（ICHS集中講義の様子を見てから夜行バスで長野へ（2014年9月13日） ） ▲次【787】（いろいろ済ませてから夜行バスで大阪へ（2014年9月16日） ） ●Top