故障使用reshape2 ::投功能

Question

我有一个大的数据集，R（2.8米行×4列），我试图以转做大量转。我试图使用reshape2 :: cast函数来执行转置，但它的内存不足。

问题1：有没有更好的方式做转置？

问题2：我试图砍数据建立成片，做了个转置，然后再组装起来。然而，我遇到了一个关于重组步骤的问题，cbind要求我事先知道我想加入哪些列。有没有一个巧妙的解决这个问题的方法？

bigtranspose<-function(dataset){ 
      n<-nrow(dataset) 
      i<-1 
      while (i<=n){ 
       #take 10 rows at a time and do the transpose 
       UB <- min(i+10, n) 
       small<-dataset[i:UB,] 
       smallmelt<-melt(small, id=c("memberID", "merchantID")) 
       t<-dcast(smallmelt, memberID~merchantID, na.rm=TRUE) 

       #stack the results together 
       if (!exists("finaldataset")) 
       finaldataset<-t 
       else 
       finaldataset<-rbind(finaldataset,t) 
       i <- i+10+1 
      } 
     } 

Answer 1

你可以使用t功能做转

mat <- matrix(1:(3e+06 * 4), ncol = 4) 
dim(mat) 
## [1] 3000000  4 

tmat <- t(mat) 
dim(tmat) 
## [1]  4 3000000 


# And it's fast 
system.time(tmat <- t(mat)) 
## user system elapsed 
## 0.05 0.03 0.08