感染症死亡率の推移

```{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")
```