![見出し画像](https://assets.st-note.com/production/uploads/images/53379858/rectangle_large_type_2_88ec1c8b5ab527941614911f042a6b4e.png?width=800)
ある町内会の単年度収支の推移
![スクリーンショット 2021-05-29 16.55.06](https://assets.st-note.com/production/uploads/images/53385956/picture_pc_021cb1a3cd5bd63bc9a2013220f78f6e.png?width=800)
```{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))
```
この記事が気に入ったらサポートをしてみませんか?