日本アレルギー学会のアナフィラキシーガイドラインを読んだ。 最近プロットしてなかったので、死亡原因をプロットした。 dat <- read.delim("clipboard") anaph <- dat[, -1] yl <- c(0, 40) par(mar=c(4.5, 4.5, 2, 5), cex.lab=1.6) matplot(dat$year, an…