Использование функции reshape:
reshape
reshape(dat1, idvar = "name", timevar = "numbers", direction = "wide")