Каков наилучший способ транспонировать data.frame в R и установить один из столбцов в качестве заголовка для новая транспонированная таблица?

Как лучше всего транспонировать data.frame в R и установить один из столбцов в качестве заголовка для новой транспонированной таблицы? Я закодировал способ сделать это ниже. Поскольку я еще новичок в R., я бы Мне нужны предложения по улучшению моего кода, а также альтернативы, которые были бы более похожи на R. Мое решение также, к сожалению, немного жестко закодировано (т.е. новые заголовки столбцов находятся в определенном месте).

# Assume a data.frame called fooData
# Assume the column is the first column before transposing

# Transpose table
fooData.T <- t(fooData)

# Set the column headings
colnames(fooData.T) <- test[1,]

# Get rid of the column heading row
fooData.T <- fooData.T[2:nrow(fooData.T), ]

#fooData.T now contains a transposed table with the first column as headings