Fatal编程技术网
  • r/
  • R 在列表中收集所有其他向量并合并为一个向量

R 在列表中收集所有其他向量并合并为一个向量

r

R 在列表中收集所有其他向量并合并为一个向量,r,R,考虑以下列表： rows <- structure(list(`1` = 1:40, `2` = 41:79, `3` = 80:118, `4` = 119:157, `5` = 158:196, `6` = 197:235, `7` = 236:274, `8` = 275:313, `9` = 314:352, `10` = 353:392), .Names = c("1", "2", "3", "4", "5", "6"

考虑以下列表：

rows <- structure(list(`1` = 1:40, `2` = 41:79, `3` = 80:118, `4` = 119:157, 
           `5` = 158:196, `6` = 197:235, `7` = 236:274, `8` = 275:313, 
           `9` = 314:352, `10` = 353:392), 
      .Names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10"))
如何生成包含
行中所有其他值的第二个向量（即，当
I可以使用时）


myFunc <- function(i) setdiff(unlist(rows), rows[[i]])



myFunc

> setdiff(1:length(rows), i)
[1]  2  3  4  5  6  7  8  9 10



> rows[[setdiff(1:length(rows), i)]]
Error in rows[[setdiff(1:length(rows), i)]] : 
  recursive indexing failed at level 2



myFunc <- function(i) setdiff(unlist(rows), rows[[i]])