A quick hack to create a year variable from a string variable and place it as column number one in your dataframe.

First problem with my initial dataset is that the date is a string of numbers and I want the first four characters in the string.
data$year <- substr(data$date, 0, 4)
data$year <- as.numeric(data$year)
Now I want to place it at the beginning to keep things more organised:
data = data %>%
select(year, everything())
And we are done!

Much better.