Предположим, df - это фрейм данных, который вы читаете из файла xlsx.
Затем вы можете транспонировать его с помощью t()
df <- t(df)
Вы получите что-то вроде этого
V1 "A" "B" "C"
V2 "1" "5" "7"
V3 "4" "7" "6"
V4 "6" "9" "9"
Теперь вы выбираете имена из первой строки и удаляете ее.
mynames <- df[1,]
df <- as.data.frame(df[-1,])
Теперь вы присваиваете имена столбцам и удаляете имена строк.
colnames(df) <- mynames
rownames(df) <- NULL
Результат
A B C
1 1 5 7
2 4 7 6
3 6 9 9