library(ggplot2)
path <- "/home/martin/tarsnap/r/expense/2021.csv"
data <- read.csv(path)



data$Date <- as.POSIXct(data$Date, format ="%d/%m/%Y")
data$Amount <- abs(data$Amount)
data <- data[order(as.Date(data$Date, format ="%d/%m/%Y")),]
data[,"cum_expense"] <- cumsum(data$Amount)
head(data)

png("/home/martin/tarsnap/r/expense/2021expense.png")
ggplot(data, aes(x=Date,y=cum_expense))+
  geom_line()+
  geom_abline(slope=1,intercept=0)
dev.off()