Изменить форму данных в R + создать имя столбца

Question

мой фрейм данных выглядит следующим образом

df <- read.table(text="
                 id          nr      date
    1            124         1       2017
    2            122         1       2017
    3            124         2       2018
    4            121         1       2017
    5            124         3       2018
", header=TRUE)

resoult должен быть

df <- read.table(text="
                 id          number1  number2  number3 
    1            124         2017     2018     2018 
    2            122         2017
    3            121         2017
", header=TRUE)

Обратите внимание, что мне не нужно просто изменять свою таблицу, но даже генерировать теперь имена столбцов на основе столбца nr.