This is my sample code.
Plotly<-URA_data %>% mutate(year = 2000 + as.integer(substring(Date.of.Sale, 1, 2))) %>% group_by(year, Type.of.Sale) %&g