Не самый эффективный способ, но это может сработать для вас (помните о предупреждениях):
1. Чтение всего и помещение его в вектор
2. затем изменение его формы
library(data.table)
Data<-fread("Nome AK 2.5 15 Miami FL 6.75
18 Raleigh NC . 12")
vec<- c(unlist(colnames(Data)), unlist(Data)) # putting everything into a a vec
t(matrix(vec,4,3)) # Shaping the data
# [,1] [,2] [,3] [,4]
# [1,] "Nome" "AK" "2.5" "15"
# [2,] "Miami" "FL" "6.75" "18"
# [3,] "Raleigh" "NC" "." "12"