R data.frame 实际问题求助

complicated 发表于 2014-5-12 16:45
我想的哈，
最笨的办法写个循环
先把数据排好序

1. data=data.frame(PID=sample(LETTERS,30,T),admittime=Sys.Date()+1:30)
   
2. w=unique(data[,1])
   
3. newdata=matrix(,nc=2,nr=length(w))
   
4. for(i in 1:length(w)){ newdata[i,1]=as.character(w[i]);newdata[i,2]=paste(sort(data[,2][which(data[,1]%in%w[i])]),collapse=",") }  #collapse  易忽视的参数，用来连接向量  

复制代码

引个例子吧

reshap2应该可以，不过内存会变更大吧

1.       [,1] [,2]                              
   
2. [1,] "D"  "2014-05-13"                     
   
3. [2,] "J"  "2014-05-14,2014-05-25,2014-06-10"
   
4. [3,] "V"  "2014-05-15,2014-05-30"           
   
5. [4,] "T"  "2014-05-16"                     
   
6. [5,] "X"  "2014-05-17"                     
   
7. [6,] "A"  "2014-05-18,2014-05-21,2014-06-01"
   
8. [7,] "M"  "2014-05-19,2014-05-20,2014-05-22"
   
9. [8,] "P"  "2014-05-23,2014-05-31,2014-06-05"
   
10. [9,] "R"  "2014-05-24"                     
    
11. [10,] "U"  "2014-05-26,2014-05-27"           
    
12. [11,] "F"  "2014-05-28"                     
    
13. [12,] "N"  "2014-05-29"                     
    
14. [13,] "S"  "2014-06-02"                     
    
15. [14,] "K"  "2014-06-03,2014-06-08,2014-06-11"
    
16. [15,] "I"  "2014-06-04"                     
    
17. [16,] "Q"  "2014-06-06"                     
    
18. [17,] "C"  "2014-06-07"                     
    
19. [18,] "O"  "2014-06-09"  

复制代码

大概得到的结果

谢谢,我去试试看.

yywan0913 发表于 2014-5-12 17:13
引个例子吧

reshap2应该可以，不过内存会变更大吧

谢谢 yywan0913, 解决了. 我的电脑跑这个for loop 的速度很好.

yywan0913 发表于 2014-5-12 17:13
引个例子吧

reshap2应该可以，不过内存会变更大吧

谢谢 yywan0913, 解决了. 我的电脑跑这个for loop 的速度很好.

bluesmoonlight 发表于 2014-5-14 13:18
谢谢 yywan0913, 解决了. 我的电脑跑这个for loop 的速度很好.

厉害，我这电脑不行，昨天跑了一万多行，跑了一晚上来着。弄得都想安装数据库了

complicated 发表于 2014-5-12 16:45
我想的哈，
最笨的办法写个循环
先把数据排好序

1. data=data.frame(PID=sample(LETTERS,30,T),admittime=Sys.Date()+1:30)
   
2. aggregate(data,by=list(data[,1]),FUN=paste,collapse=",")

复制代码

借鉴新帖灵感，应用aggregate函数