数据框分开合并

问题1
怎么由X，R两个数据框组合成这样的数据框呢



问题2
要是X,R是函数变量，怎么来写？
即X,R是未知的。。但知道他们是数据框而已，具体的数值不知道

1. before<c(99.54,96.52,99.36,92.83,91.71,95.35,96.09,99.27,94.76,84.8)
   
2. dead<c(60.27,59.67,43.91,58.99,35.4,44.71,49.81,31.69,22.91,81.49)
   
3. children_dead<-c(16.15,20.1,15.6,17.04,15.01,13.93,17.43,13.89,19.87,23.63)
   
4. data<-data.frame(before,-dead,-children_dead)
   
5. rank<-apply(data,2,rank)
   
6. R<-rank
   
7. X<-data

复制代码

对不起，刚才的函数没有粘全，完整的如下

  问题2，函数的方法
dtcbn=function(d1,d2) {
  vlen=ncol(d1)
  vname=NULL
  dt=NULL
  for (i in 1:vlen) {
    if(length(dt)==0) dt=data.frame(X[,i],R[,i]) else dt=data.frame(dt,X[,i],R[,i])
    vname=c(vname,paste("X",i,sep=""),paste("R",i,sep=""))
  }
  names(dt)=vname
  return(dt)
}

函数调用
dtcbn(X,R)

问题1，直接的方法
dt=data.frame(X[,1],R[,1],X[,2],R[,2],X[,3],R[,3])
names(dt)=c("X1","R1","X2","R2","X3","R3")

问题2，函数的方法
dtcbn=function(d1,d2) {
  vlen=ncol(d1)
  vname=NULL
  dt=NULL
  for (i in 1:vlen) {
    if(length(dt)==0) dt=data.frame(X[,i],R[,i]) else dt=data.frame(dt,X[,i],R[,i])
    vname=c(vname,paste("X",i,sep=""),paste("R",i,sep=""))
  }

函数调用
dtcbn(X,R)

  sapply(1:ncol(X), function(i) data.frame(X[,i],R[,i]))
这样跑不出来的？

lanyajia 发表于 2015-3-20 16:36
对不起，刚才的函数没有粘全，完整的如下

  问题2，函数的方法

能用批量函数写吗？简单点的

lanyajia 发表于 2015-3-20 16:36
对不起，刚才的函数没有粘全，完整的如下

  问题2，函数的方法

能用批量函数写吗？简单点的

1. rm( list = ls ( all = TRUE));

复制代码

可是输出结果却是这样的

1. RSR(ys,c(1,-1,-1))
   
2.        [,1]  [,2]  [,3]
   
3. [1,] 99.54 60.27 16.15
   
4. [2,] 96.52 59.67 20.10
   
5. [3,] 99.36 43.91 15.60
   
6. [4,] 92.83 58.99 17.04
   
7. [5,] 91.71 35.40 15.01
   
8. [6,] 95.35 44.71 13.93
   
9. [7,] 96.09 49.81 17.43
   
10. [8,] 99.27 31.69 13.89
    
11. [9,] 94.76 22.91 19.87
    
12. [10,] 84.80 81.49 23.63
    
13. [11,] 10.00  2.00  6.00
    
14. [12,]  7.00  3.00  2.00
    
15. [13,]  9.00  7.00  7.00
    
16. [14,]  3.00  4.00  5.00
    
17. [15,]  2.00  8.00  8.00
    
18. [16,]  5.00  6.00  9.00
    
19. [17,]  6.00  5.00  4.00
    
20. [18,]  8.00  9.00 10.00
    
21. [19,]  4.00 10.00  3.00
    
22. [20,]  1.00  1.00  1.00

复制代码

。。。。我无语了

直接调用 dtcbn(X,R) 已经自动完成了对X数据框和R矩阵的所有列处理，为什么还要用sapply?

lanyajia 发表于 2015-3-20 16:49
直接调用 dtcbn(X,R) 已经自动完成了对X数据框和R矩阵的所有列处理，为什么还要用sapply?

谢谢你的帮忙，我只是想减少代码量。。