how to change a 3D array to a 2D array 三维数组如何转换成想要的二维数组

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

a<- structure(c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24),
          .Dim=c(2,4,3))
> a
, , 1

     [,1] [,2] [,3] [,4]
[1,]    1    3    5    7
[2,]    2    4    6    8

, , 2

     [,1] [,2] [,3] [,4]
[1,]    9   11   13   15
[2,]   10   12   14   16

, , 3

     [,1] [,2] [,3] [,4]
[1,]   17   19   21   23
[2,]   18   20   22   24
转换成一个3*8维的矩阵，第一行是1,9,17第二行是2,10,18，第三行行是3,11,19。。。这样共有8个列。
求简单的转换命令！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：change array Hang CHAN Ray change 如何

我也进来看看哈                                                                        
                                       
                                                     
                                                     
                                             
                                                                 
                                                                                 

只想到写循环把他做出来。。

a<- structure(c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24),
              +               .Dim=c(2,4,3))

b=NULL

for (i in 1:4)
  {
  for ( j in 1:2)
    {
    b=cbind(b,a[j,i,])
    }
}

李骥北 发表于 2014-10-5 10:49
只想到写循环把他做出来。。

a

恩.循环肯定是可以做到的。不过自己也想到了其它更简单的命令。
> a<- structure(c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24),
+           .Dim=c(2,4,3))
> a
, , 1

     [,1] [,2] [,3] [,4]
[1,]    1    3    5    7
[2,]    2    4    6    8

, , 2

     [,1] [,2] [,3] [,4]
[1,]    9   11   13   15
[2,]   10   12   14   16

, , 3

     [,1] [,2] [,3] [,4]
[1,]   17   19   21   23
[2,]   18   20   22   24

> b=aperm(a,c(3,1,2))
> b
, , 1

     [,1] [,2]
[1,]    1    2
[2,]    9   10
[3,]   17   18

, , 2

     [,1] [,2]
[1,]    3    4
[2,]   11   12
[3,]   19   20

, , 3

     [,1] [,2]
[1,]    5    6
[2,]   13   14
[3,]   21   22

, , 4

     [,1] [,2]
[1,]    7    8
[2,]   15   16
[3,]   23   24

> c<-array(a,dim=c(3,8))
> c
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
[1,]    1    4    7   10   13   16   19   22
[2,]    2    5    8   11   14   17   20   23
[3,]    3    6    9   12   15   18   21   24

1. > matrix(as.numeric(a), nrow=8)
   
2.      [,1] [,2] [,3]
   
3. [1,]    1    9   17
   
4. [2,]    2   10   18
   
5. [3,]    3   11   19
   
6. [4,]    4   12   20
   
7. [5,]    5   13   21
   
8. [6,]    6   14   22
   
9. [7,]    7   15   23
   
10. [8,]    8   16   24

复制代码

qoiqpwqr 发表于 2014-10-6 19:33

学习了