请问如何把dataframe转化为array

cionysus

从R自带的数据iris3我们可以看到,iris3是array,维数为50 4 3


> class(iris3)
[1] "array"
> dim(iris3)
[1] 50  4  3

现在我自己有一个dataframe名为price,想把price转化为类似iris3的结构,

我的原始数据在这里:chapter3.xls

下面是我的操作:



> library(xlsx)
> price=read.xlsx(file='chapter3.xls',sheetIndex = 1)
> head(price)
    time   region equipment   gdp investment agriculture
1 2015Q2 shanghai     100.0 107.0       96.9       102.1
2 2015Q1 shanghai     100.0 106.6       98.3       101.7
3 2014Q4 shanghai      99.8 107.0       98.9        97.7
4 2014Q3 shanghai      99.5 107.0      100.4        99.4
5 2014Q2 shanghai      99.2 107.1      100.7       104.2
6 2014Q1 shanghai      99.3 107.0      101.8        91.2
> 
> # convert dataframe into list
> price.list=split(price[,3:6],price$region)
> 
> class(price.list)
[1] "list"
> 
> price.array=as.array(price.list)
> 
> class(price.array)
[1] "array"
> 
> dim(price.array)
[1] 3

以上price.array的维数是3,我期望的price.array的维数应该是42 4 3,请问该怎么做?

suckbunny

array(unlist(price.list),dim = c(42,4,3),dimnames = list(NULL,colnames(price)[-c(1:2)],unique(price[,2])))

cionysus

[未知用户]

谢谢!这个办法果然可以!

我在追问个问题.刚我在看书的时候,看到plyr包的adply函数,如果不指定.fun=的参数的话,是把array转化为dataframe.


> price.array=array(unlist(price.list),dim = c(42,4,3),dimnames = list(NULL,colnames(price)[-c(1:2)],unique(price[,2])))
> 
> dim(price.array)
[1] 42  4  3
> 
> price.dataframe=adply(price.array,.margins=3)
> 
> class(price.dataframe)
[1] "data.frame"
> head(price.dataframe)
        X1 equipment   gdp investment agriculture
1 shanghai      99.6 108.5       96.6       100.4
2 shanghai      99.6 108.4       97.5       101.6
3 shanghai      99.7 108.7      100.2       100.2
4 shanghai      99.7 108.8      100.9       102.9
5 shanghai      99.6 108.9      101.1       102.1
6 shanghai      99.6 108.8      102.2       100.1
>

当时我就想当然的认为,那是不是laply函数不指定.fun=的参数的话,是不是把list转化为array?但结果表明不行.


> try1=laply(price.list)
Error in laply(price.list) : .fun is not a function.
> 
> try2=laply(price.list,.fun=array)
> try2
, , 1

     43         44         45         46         47         48        
[1,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[2,] NULL       NULL       NULL       NULL       NULL       NULL      
[3,] NULL       NULL       NULL       NULL       NULL       NULL      
     49         50         51         52         53         54        
[1,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[2,] NULL       NULL       NULL       NULL       NULL       NULL      
[3,] NULL       NULL       NULL       NULL       NULL       NULL      
     55   56   57   58   59   60   61   62   63   64   65   66   67  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     68   69   70   71   72   73   74   75   76   77   78   79   80  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     81   82   83   84  
[1,] NULL NULL NULL NULL
[2,] NULL NULL NULL NULL
[3,] NULL NULL NULL NULL

, , 2

     43   44   45   46   47   48   49   50   51   52   53   54   55  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     56   57   58   59   60   61   62   63   64   65   66   67   68  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     69   70   71   72   73   74   75   76   77   78   79   80   81  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     82   83   84  
[1,] NULL NULL NULL
[2,] NULL NULL NULL
[3,] NULL NULL NULL

, , 3

     43   44   45   46   47   48   49   50   51   52   53   54   55  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     56   57   58   59   60   61   62   63   64   65   66   67   68  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     69   70   71   72   73   74   75   76   77   78   79   80   81  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     82   83   84  
[1,] NULL NULL NULL
[2,] NULL NULL NULL
[3,] NULL NULL NULL

, , 4

     43   44   45   46   47   48   49   50   51   52   53   54   55  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     56   57   58   59   60   61   62   63   64   65   66   67   68  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     69   70   71   72   73   74   75   76   77   78   79   80   81  
[1,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[2,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
[3,] NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL
     82   83   84  
[1,] NULL NULL NULL
[2,] NULL NULL NULL
[3,] NULL NULL NULL

> 
> try3=laply(price.list,.fun=array,42,4,3)
Error in FUN(X[[i]], ...) : unused argument (3)
> 
> 
> try4=laply(price.list,.fun=array,42,4)
> try4
     1          2          3          4          5          6         
[1,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[2,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[3,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
     7          8          9          10         11         12        
[1,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[2,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[3,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
     13         14         15         16         17         18        
[1,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[2,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[3,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
     19         20         21         22         23         24        
[1,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[2,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[3,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
     25         26         27         28         29         30        
[1,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[2,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[3,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
     31         32         33         34         35         36        
[1,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[2,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[3,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
     37         38         39         40         41         42        
[1,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[2,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
[3,] Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42 Numeric,42
>

我想问下,是laply没有这个功能,还是我操作得不对?