library(ggplot2)
path <- "/home/martin/tarsnap/r/expense/2020.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)

pdf("/home/martin/tarsnap/pwd/2020expense.pdf")
ggplot(data, aes(x=Date,y=cum_expense))+
  geom_line()
dev.off()