Перемістіть кадр даних


107

Мені потрібно перенести великий кадр даних, і тому я використав:

df.aree <- t(df.aree)
df.aree <- as.data.frame(df.aree)

Ось що я отримую:

df.aree[c(1:5),c(1:5)]
                         10428        10760        12148        11865
    name                M231T3       M961T5       M960T6      M231T19
    GS04.A        5.847557e+03 0.000000e+00 3.165891e+04 2.119232e+04
    GS16.A        5.248690e+04 4.047780e+03 3.763850e+04 1.187454e+04
    GS20.A        5.370910e+03 9.518396e+03 3.552036e+04 1.497956e+04
    GS40.A        3.640794e+03 1.084391e+04 4.651735e+04 4.120606e+04    

Моя проблема - нові назви стовпців (10428, 10760, 12148, 11865), які мені потрібно усунути, оскільки мені потрібно використовувати перший рядок як назви стовпців.

Я намагався з col.names()функцією, але не отримав того, що мені потрібно.

Чи є у вас якісь пропозиції?

EDIT

Дякуємо за Вашу пропозицію !!! Використовуючи його, я отримую:

df.aree[c(1:5),c(1:5)]
                        M231T3       M961T5       M960T6      M231T19
    GS04.A        5.847557e+03 0.000000e+00 3.165891e+04 2.119232e+04
    GS16.A        5.248690e+04 4.047780e+03 3.763850e+04 1.187454e+04
    GS20.A        5.370910e+03 9.518396e+03 3.552036e+04 1.497956e+04
    GS40.A        3.640794e+03 1.084391e+04 4.651735e+04 4.120606e+04
    GS44.A        1.225938e+04 2.681887e+03 1.154924e+04 4.202394e+04

Тепер мені потрібно перетворити назви рядків (GS ..) у стовпчик факторів ....


1
Ви пробували colnames(df.aree)<-df.aree[1,];df.aree<-df.aree[2:nrow(df.aree),]?

5
Кадри даних, як правило, не повинні бути переміщеними. Якщо ваше є, то, можливо, воно має бути замість матриці.
Річі Коттон

Погодьтеся; tІнфраструктура даних також є досить неефективною. Якщо можете, використовуйте матрицю.
mbq

5
Транспонування фрейму data.frame, який містить стовпчик рядка, перетворює ВСІ значення в рядки! Не добре. Дивіться мою відповідь нижче для обходу.
Томмі

Відповіді:


109

Вам краще не переносити data.frame, поки в ньому стовпчик імен - усі числові значення будуть перетворені на рядки!

Ось рішення, яке зберігає числа як числа:

# first remember the names
n <- df.aree$name

# transpose all but the first column (name)
df.aree <- as.data.frame(t(df.aree[,-1]))
colnames(df.aree) <- n
df.aree$myfactor <- factor(row.names(df.aree))

str(df.aree) # Check the column types

49
df.aree <- as.data.frame(t(df.aree))
colnames(df.aree) <- df.aree[1, ]
df.aree <- df.aree[-1, ]
df.aree$myfactor <- factor(row.names(df.aree))

@Riccardo Якщо так, прийміть його відповідь, натиснувши сіру галочку поруч.
mbq

4
одна проблема з цим - назви стовпців приймають числове представлення рівня факторів.
Гаррі Палмер

48

Ви можете використовувати transposeфункцію з data.tableбібліотеки. Просте і швидке рішення, яке зберігає numericзначення як numeric.

library(data.table)

# get data
  data("mtcars")

# transpose
  t_mtcars <- transpose(mtcars)

# get row and colnames in order
  colnames(t_mtcars) <- rownames(mtcars)
  rownames(t_mtcars) <- colnames(mtcars)

4
Крім того, setnames(t_mtcars, rownames(mtcars))було б data.tableспособом встановлення імен на data.table (і якщо ви використовуєте data.tableоб'єкт, ви не встановлювали б rownames)
SymbolixAU

Це, безумовно, найкраще рішення! +1.
HelloWorld

1

Скористайтеся as.matrix:

# keep the first column 
names <-  df.aree[,1]

# Transpose everything other than the first column
df.aree.T <- as.data.frame(as.matrix(t(df.aree[,-1])))

# Assign first column as the column names of the transposed dataframe
colnames(df.aree.T) <- names
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.