1. 単年度収支の推移

1.1 データの読み込み

library(readr)
yosan <- read_csv("./data/yosan.csv")
## Rows: 7 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (1): 会計年度
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

1.2 収支の計算

yosan[,]
dat <- yosan
収支 <- dat[,2]-dat[,3]
dat[,4] <- dat[,2]-dat[,3]
colnames(dat) <- c("会計年度","a:収入","b:支出","c:収支")
dat

「収入」、「支出」、「収支」のそれぞれの前にアルファベットを順に付ける。そうしないと、凡例でその順に表示されない。おそらく、文字コードの順になってしまう。

1.3 long formatに変換

library(tidyr)
dat_ <- gather(dat,"key","value",-会計年度)
dat_

1.4 描画

library(ggplot2)
ggplot(dat_,aes(x=会計年度,y=value,col=key))+
  geom_line(size=1.5)+
  geom_hline(yintercept=0,color="blue",size=1,linetype="dashed")+
labs(col="凡例",x="会計年度",y="金額",title="単年度収支の推移",caption="志井桜ヶ丘第二町内会", subtitle="2014-2020 単位:円")+
theme_minimal(base_family="HiraKakuProN-W3")
## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.