Перестройка кадр данных в R

У меня есть кадр данных, который выглядит следующим образом:Перестройка кадр данных в R

A1 A2 A3 A4 A5 A6 B1 B2 B3 B4 B5 B6 
A7 A8 A9 A10 A11 A12 B7 B8 B9 B10 B11 B12 
A13 A14 A15 A16 A17 A18 B13 B14 B15 B16 B17 B18 
A19 A20 A21 A22 A23 A24 B19 B20 B21 B22 B23 B24 
A25 A26 A27 A28 A29 A30 B25 B26 B27 B28 B29 B30 
A31 A32 A33 A34 A35 A36 B31 B32 B33 B34 B35 B36 
A37 A38 A39 A40 A41 A42 B37 B38 B39 B40 B41 B42 
A43 A44 A45 A46 A47 A48 B43 B44 B45 B46 B47 B48 
A49 A50 A51 A52 A53 A54 B49 B50 B51 B52 B53 B54 
A55 A56 A57 A58 A59 A60 B55 B56 B57 B58 B59 B60 
A61 A62 A63 A64 A65 A66 B61 B62 B63 B64 B65 B66 
A67 A68 A69 A70 A71 A72 B67 B68 B69 B70 B71 B72 
A73 A74 A75 A76 A77 A78 B73 B74 B75 B76 B77 B78 
A79 A80 A81 A82 A83 A84 B79 B80 B81 B82 B83 B84 
A85 A86 A87 A88 A89 A90 B85 B86 B87 B88 B89 B90 
A91 A92 A93 A94 A95 A96 B91 B92 B93 B94 B95 B96

Набор данных только 16 строк длиной, но имеет сотни столбцов. Значимые куски всегда шириной 6 колонок. Я хотел бы изменить структуру кадра данных, так что это выглядит следующим образом:

A1 A2 A3 A4 A5 A6 A7 A8 A9 A10 A11 A12 A13 A14 A15 A16 A17 A18 A19 A20 A21 A22 A23 A24 A25 A26 A27 A28 A29 A30 A31 A32 A33 A34 A35 A36 A37 A38 A39 A40 A41 A42 A43 A44 A45 A46 A47 A48 A49 A50 A51 A52 A53 A54 A55 A56 A57 A58 A59 A60 A61 A62 A63 A64 A65 A66 A67 A68 A69 A70 A71 A72 A73 A74 A75 A76 A77 A78 A79 A80 A81 A82 A83 A84 A85 A86 A87 A88 A89 A90 A91 A92 A93 A94 A95 A96 
B1 B2 B3 B4 B5 B6 B7 B8 B9 B10 B11 B12 B13 B14 B15 B16 B17 B18 B19 B20 B21 B22 B23 B24 B25 B26 B27 B28 B29 B30 B31 B32 B33 B34 B35 B36 B37 B38 B39 B40 B41 B42 B43 B44 B45 B46 B47 B48 B49 B50 B51 B52 B53 B54 B55 B56 B57 B58 B59 B60 B61 B62 B63 B64 B65 B66 B67 B68 B69 B70 B71 B72 B73 B74 B75 B76 B77 B78 B79 B80 B81 B82 B83 B84 B85 B86 B87 B88 B89 B90 B91 B92 B93 B94 B95 B96

В идеале, конечный продукт будет 96 столбцов в ширину, с одной строке для каждого «значимого фрагмента» данных.

Любые предложения приветствуются!

источник

2014-12-11 waxattax

Вы должны опубликовать лучшее описание оригинала. Укажите результат 'dim (dfrmname)' –

Я выбрал 1) превратить свои данные в трехмерном массиве 2) переставить размеры 3) вернуться к двумерного массива:

a <- as.matrix(df) 
n1 <- nrow(a) 
n2 <- ncol(a) 
dim(a) <- c(n1, 6, n2/6) 
a <- aperm(a, c(3, 2, 1)) 
dim(a) <- c(n2/6, 6 * n1)

источник

2014-12-11 01:15:40 flodel

У вас есть мой аванс, но вы увеличите мое уже значительное уважение к своим навыкам, если сможете расширить мышление, позволяющее вам решить, как переставить размеры. –

Спасибо. Честно говоря, мне пришлось попробовать несколько, прежде чем я придумал c (3, 2, 1). Я знал, что это должно работать так или иначе. Я ужасен на кубике рубика. – flodel

О, ты имеешь в виду, что я не единственный, кто пробует десять вариантов, чтобы придумать один хороший ответ? –

Один метод:

rbind(c (t (dfrm[1:6])), # t will turn rows into columns of matrix 
     c (t (dfrm[7:12]))) # c() will concatenate the columns

В зависимости от того, что вы хотите сделать с этим, возможно, потребуется, чтобы обернуть вокруг as.data.frame результата, так как он будет возвращать матрицу.

В примере была решена и теперь более общее решение предлагается:

t(sapply(seq(1, length(dfrm), by=6), function(n) c(t(dfrm[n:(n+5)])))) 
#--- 

    [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] 
[1,] "A1" "A2" "A3" "A4" "A5" "A6" "A7" "A8" "A9" "A10" "A11" "A12" "A13" 
[2,] "B1" "B2" "B3" "B4" "B5" "B6" "B7" "B8" "B9" "B10" "B11" "B12" "B13" 
    [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24] [,25] 
[1,] "A14" "A15" "A16" "A17" "A18" "A19" "A20" "A21" "A22" "A23" "A24" "A25" 
[2,] "B14" "B15" "B16" "B17" "B18" "B19" "B20" "B21" "B22" "B23" "B24" "B25" 
    [,26] [,27] [,28] [,29] [,30] [,31] [,32] [,33] [,34] [,35] [,36] [,37] 
[1,] "A26" "A27" "A28" "A29" "A30" "A31" "A32" "A33" "A34" "A35" "A36" "A37" 
[2,] "B26" "B27" "B28" "B29" "B30" "B31" "B32" "B33" "B34" "B35" "B36" "B37" 
    [,38] [,39] [,40] [,41] [,42] [,43] [,44] [,45] [,46] [,47] [,48] [,49] 
[1,] "A38" "A39" "A40" "A41" "A42" "A43" "A44" "A45" "A46" "A47" "A48" "A49" 
[2,] "B38" "B39" "B40" "B41" "B42" "B43" "B44" "B45" "B46" "B47" "B48" "B49" 
    [,50] [,51] [,52] [,53] [,54] [,55] [,56] [,57] [,58] [,59] [,60] [,61] 
[1,] "A50" "A51" "A52" "A53" "A54" "A55" "A56" "A57" "A58" "A59" "A60" "A61" 
[2,] "B50" "B51" "B52" "B53" "B54" "B55" "B56" "B57" "B58" "B59" "B60" "B61" 
    [,62] [,63] [,64] [,65] [,66] [,67] [,68] [,69] [,70] [,71] [,72] [,73] 
[1,] "A62" "A63" "A64" "A65" "A66" "A67" "A68" "A69" "A70" "A71" "A72" "A73" 
[2,] "B62" "B63" "B64" "B65" "B66" "B67" "B68" "B69" "B70" "B71" "B72" "B73" 
    [,74] [,75] [,76] [,77] [,78] [,79] [,80] [,81] [,82] [,83] [,84] [,85] 
[1,] "A74" "A75" "A76" "A77" "A78" "A79" "A80" "A81" "A82" "A83" "A84" "A85" 
[2,] "B74" "B75" "B76" "B77" "B78" "B79" "B80" "B81" "B82" "B83" "B84" "B85" 
    [,86] [,87] [,88] [,89] [,90] [,91] [,92] [,93] [,94] [,95] [,96] 
[1,] "A86" "A87" "A88" "A89" "A90" "A91" "A92" "A93" "A94" "A95" "A96" 
[2,] "B86" "B87" "B88" "B89" "B90" "B91" "B92" "B93" "B94" "B95" "B96"

источник

2014-12-11 00:40:43

Действительно. Я изначально написал c(), а затем изменил его на unlist(), и теперь он вернулся к c(). –

По какой-то причине я думал, что 't()' собирался возвратить dataframe. Глупо меня. –

Мой фактический кадр данных - сотни столбцов. У этого есть много из этих 6-столбцовых кусков. Я пробовал ваш код, но он не работал. Это потому, что ваш код специфичен для примера? Заранее спасибо! – waxattax

Перестройка кадр данных в R

ответ

Смежные вопросы