Взятие строк из data.frame и перенос в один вектор-столбец

Question

Я хотел бы взять каждую строку из data.frame, [45,6] data.frame и сделать один непрерывный вектор столбца без необходимости записывать каждый индекс, например; data.frame1 <- t(data.frame[1,2:6]), я просто хочу последние пять столбцов, а затем объединить с rbind. Есть ли для этого функция R или все 100 * * способны? Примечание: мои навыки l oop не так хороши.

Спасибо, Кирк

Answer 1

Вот решение, которое работает, используя t для транспонирования столбцов в строки (и наоборот) и unlist для добавления нескольких столбцов в один вектор:

DATA :

df <- mtcars[,1:6] 

РЕШЕНИЕ :

df_t <-t(df[,2:6])
as.numeric(unlist(df_t))

РЕЗУЛЬТАТ :

  [1]   6.000 160.000 110.000   3.900   2.620   6.000 160.000 110.000   3.900   2.875   4.000 108.000  93.000
 [14]   3.850   2.320   6.000 258.000 110.000   3.080   3.215   8.000 360.000 175.000   3.150   3.440   6.000
 [27] 225.000 105.000   2.760   3.460   8.000 360.000 245.000   3.210   3.570   4.000 146.700  62.000   3.690
 [40]   3.190   4.000 140.800  95.000   3.920   3.150   6.000 167.600 123.000   3.920   3.440   6.000 167.600
 [53] 123.000   3.920   3.440   8.000 275.800 180.000   3.070   4.070   8.000 275.800 180.000   3.070   3.730
 [66]   8.000 275.800 180.000   3.070   3.780   8.000 472.000 205.000   2.930   5.250   8.000 460.000 215.000
 [79]   3.000   5.424   8.000 440.000 230.000   3.230   5.345   4.000  78.700  66.000   4.080   2.200   4.000
 [92]  75.700  52.000   4.930   1.615   4.000  71.100  65.000   4.220   1.835   4.000 120.100  97.000   3.700
[105]   2.465   8.000 318.000 150.000   2.760   3.520   8.000 304.000 150.000   3.150   3.435   8.000 350.000
[118] 245.000   3.730   3.840   8.000 400.000 175.000   3.080   3.845   4.000  79.000  66.000   4.080   1.935
[131]   4.000 120.300  91.000   4.430   2.140   4.000  95.100 113.000   3.770   1.513   8.000 351.000 264.000
[144]   4.220   3.170   6.000 145.000 175.000   3.620   2.770   8.000 301.000 335.000   3.540   3.570   4.000
[157] 121.000 109.000   4.110   2.780

Answer 2

Возможно, используйте функцию apply. Если фрейм данных (df) имеет только 6 столбцов, вы можете просто опустить первый столбец с помощью df[,-1]. Затем примените функцию rbind к каждой строке (MARGIN = 1) и объедините значения в вектор с функцией c.

c(apply(df[,-1], MARGIN=1, rbind))

Воспроизводимый пример

Использование данных mtcars:

> df <- mtcars[1:6]
> head(df)
                   mpg cyl disp  hp drat    wt
Mazda RX4         21.0   6  160 110 3.90 2.620
Mazda RX4 Wag     21.0   6  160 110 3.90 2.875
Datsun 710        22.8   4  108  93 3.85 2.320
Hornet 4 Drive    21.4   6  258 110 3.08 3.215
Hornet Sportabout 18.7   8  360 175 3.15 3.440
Valiant           18.1   6  225 105 2.76 3.460

> x <- c(apply(df[,-1], 1, rbind))
> head(x,20)
 [1]   6.000 160.000 110.000   3.900   2.620   6.000 160.000 110.000   3.900   2.875
[11]   4.000 108.000  93.000   3.850   2.320   6.000 258.000 110.000   3.080   3.215