ある町内会の単年度収支の推移

```{r}
ggplot(dat_,aes(x=会計年度,y=value,group=key))+
 geom_point(size=1.5)+
 geom_line(aes(linetype=key))+
 geom_hline(yintercept=0,size=1,linetype="dashed")+
labs(col="凡例",x="会計年度",y="金額",title="単年度収支の推移",caption="○○町内会",
 subtitle="2014-2020　単位：円")+
scale_linetype_discrete(name="凡例",labels=c("収入","支出","収支"))+
theme_grey(base_family="HiraKakuProN-W3")+
scale_x_continuous(breaks=seq(2014,2020,1))+
theme(axis.text.x=element_text(angle=30,hjust=1))
```