Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/84.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 从列表中选择字符（0）_R_List_Vector - Fatal编程技术网
Fatal编程技术网
  • r/
  • R 从列表中选择字符（0）

R 从列表中选择字符（0）

r list vector

R 从列表中选择字符（0）,r,list,vector,R,List,Vector,这是我得到的列表的dput（）输出（部分） L<-list(c("LumenVox LLC", "LumenVox LLC", "Voxware Inc", "LumenVox LLC", "Voxware Inc", "Voxant Inc"),character(0), character(0), character(0), character(0), c("HumanZyme Inc", "ZymeQuest Inc", "Zymetx Inc",

这是我得到的列表的dput（）输出（部分）

L<-list(c("LumenVox LLC", "LumenVox LLC", "Voxware Inc", "LumenVox LLC", 
        "Voxware Inc", "Voxant Inc"),character(0), character(0), character(0), 
        character(0), c("HumanZyme Inc", "ZymeQuest Inc", "Zymetx Inc", 
        "Zymetx Inc"))
[[1]]
[1] "LumenVox LLC" "LumenVox LLC" "Voxware Inc"  "LumenVox LLC" "Voxware Inc"  "Voxant Inc"  

[[2]]
character(0)

[[3]]
character(0)

[[4]]
character(0)

[[5]]
character(0)

[[6]]
[1] "HumanZyme Inc" "ZymeQuest Inc" "Zymetx Inc"    "Zymetx Inc"

L我们可以使用
Filter


Filter(Negate(length), L)




或者另一个选项是
sapply


L[!sapply(L, length)]


或者如@MartinMorgan所述，可以使用
长度（在最新的R版本中引入），这会更快


哦因此，字符（0）没有长度。谢谢最好使用
L[length（L）==0L）
，这样可以避免在R级别对循环元素进行迭代。我认为标记的dupe是不正确的，因为OP需要其他东西。

L[!lengths(L))