見出し画像

感染症死亡率の推移

スクリーンショット 2021-05-29 14.24.57
```{r}
library(tidyr)
dat_ <- dat %>% 
 gather(Y2012:Y2019,key="key",value="value",-X1,na.rm = TRUE)

library(ggplot2)
ggplot(dat_,aes(x=key,y=value,group=X1))+
 geom_line(size=1, aes(col=X1))+
labs(y="死亡率(人口10万対)",col="凡例",title="感染症死亡率の推移",caption = "2019年
人口動態統計",x="年次")+
theme_minimal(base_family = "HiraKakuProN-W3")
```

この記事が気に入ったらサポートをしてみませんか?