Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/80.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 如何通过匹配元素的部分名称从列表中删除元素？_R_List - Fatal编程技术网
Fatal编程技术网
  • r/
  • R 如何通过匹配元素的部分名称从列表中删除元素？

R 如何通过匹配元素的部分名称从列表中删除元素？

r list

R 如何通过匹配元素的部分名称从列表中删除元素？,r,list,R,List,我有这样一个清单： foo<- list(c("foob.10.27808", "foob.11.31809","foob.12.35810","foob.13.39811", "foob.14.43812", "foob.15.47813", "foob.16.51814", "foob.17.<NA>", "foob.5.7803", "foob.6.11804", "foob.7.15805", "foob.8.19806"

我有这样一个清单：

    foo<- list(c("foob.10.27808", "foob.11.31809","foob.12.35810","foob.13.39811", 
         "foob.14.43812", "foob.15.47813", "foob.16.51814", "foob.17.<NA>", 
         "foob.5.7803", "foob.6.11804", "foob.7.15805", "foob.8.19806", 
         "foob.9.23807")     

foo实际上
foo$“foob.17.”实际上
foo$“foob.17.”

list(grep(".<NA>", foo[[1]], value = TRUE, invert = TRUE, fixed = TRUE))

## [[1]]
##  [1] "foob.10.27808" "foob.11.31809" "foob.12.35810" "foob.13.39811"
##  [5] "foob.14.43812" "foob.15.47813" "foob.16.51814" "foob.5.7803"  
##  [9] "foob.6.11804"  "foob.7.15805"  "foob.8.19806"  "foob.9.23807" 



foo2 <- as.list(foo[[1]])
Filter(function(x) !grepl(".<NA", x, fixed = TRUE), foo2)



foo3 <- setNames(as.list(seq_along(foo[[1]])), foo[[1]])
foo3[ grep(".<NA>", names(foo3), invert = TRUE, fixed = TRUE) ]



foo<- list(c("foob.10.27808", "foob.11.31809","foob.12.35810","foob.13.39811", 
         "foob.14.43812", "foob.15.47813", "foob.16.51814", "foob.17.<NA>", 
         "foob.5.7803", "foob.6.11804", "foob.7.15805", "foob.8.19806", 
         "foob.9.23807"))