Sankey diagram ordered years

Question

I am trying to make a Sankey diagram

Data:

library(tidyverse)
library(networkD3)

        tabla <- read.table(text = \'