Variable creation - Inferring age

Question

I have a grouped dataframe;

Truck <- c(\'A\',\'A\',\'A\',\'A\',\'B\',\'B\',\'B\',\'B\',\'C\',\'C\',\'C\',\'C\')
OilChanged <- c(\'True\',\'NewOil\',\'Fa