df <- read.table("2018.csv", header=FALSE, sep=",", row.names=NULL)
df = df[c(-2,-6,-7,-8)]

colnames(df) <- c("Date", "Description", "Value", "Balance")
df$Date = as.Date(df$Date, "%d/%m/%Y")
df$Value = abs(as.numeric(df$Value))
df$Balance = as.numeric(df$Balance)

head(df)