求助一个简单的数据框操作问题

求助各位大神：假设有这样的一个数据框
      a   b  c    d    e
1    1   2  3    4   5
2    1   2  3    4
3    1   2  3
用R如何将每一行的最后一个值提取出来并生成一个新的数据框包含这些值
比如
     c    d     e
1                5
2         4
3   3

熊小贤 发表于 2013-5-28 15:36
非常感谢！！不过
diag()生成对角矩阵，若是每行最后一个不在一个对角线上 最后如何确定生成的矩阵呢
比 ...

1. # CODE YOURSELF!
   
2. 
   
3. tmp <- data.frame(a = c(1,1,1), b = c(2,2,2), c = c(3,3,NA), d = c(NA,4,NA), e = c(NA,NA,NA))
   
4. 
   
5. mtx <- t(apply(tmp, 1, function(x) {res = rep(NA, times = length(x)); res[sum(!is.na(x))] <- tail(x[!is.na(x)], 1); return(res)}))
   
6. 
   
7. > mtx
   
8. [,1] [,2] [,3] [,4] [,5]
   
9. [1,] NA NA 3 NA NA
   
10. [2,] NA NA NA 4 NA
    
11. [3,] NA 2 NA NA NA

复制代码

1. # Assuming the blanks are NAs
   
2. tmp <- data.frame(a = c(1,1,1), b = c(2,2,2), c = c(3,3,3), d = c(4,4, NA), e = c(5,NA,NA))
   
3. 
   
4. # set up the matrix to the desired dimension
   
5. mtx <- matrix(ncol = nrow(tmp), nrow = nrow(tmp))
   
6. 
   
7. # Assign values
   
8. diag(mtx[, ncol(mtx):1]) <- apply(tmp, 1, function(x) return(tail(x[!is.na(x)], n=1)))
   
9. 
   
10. # Is this what you want?
    
11. 
    
12. > mtx
    
13. [,1] [,2] [,3]
    
14. [1,] NA NA 5
    
15. [2,] NA 4 NA
    
16. [3,] 3 NA NA

复制代码

zhangyangsmith 发表于 2013-5-28 15:05

非常感谢！！不过
diag()生成对角矩阵，若是每行最后一个不在一个对角线上 最后如何确定生成的矩阵呢
比方说
      a   b  c    d    e
1    1   2  3
2    1   2  3    4
3    1   2  
生成
     a   b  c   d   e
1           3
2                4
3        2
这样