如何禁止函数返回R中的“Null”？

Question

我写了一个R函数来返回满足特定需求的行，但是我遇到了输出格式的问题。

例如，某些值返回行：

xx.1 <- data.frame(aa= 1:5, bb = c("AA","BB","CC","DD","EE")) 
xx.2 <- c("AA","DD") 
ff_in <- function(x,y){ 
    if (toupper(x[2]) %in% y) {return(x)} 
} 
apply(xx.1,1,ff_in,xx.2) 

然而，输出的样子：

[[1]] 
aa bb 
"1" "AA" 

[[2]] 
NULL 

[[3]] 
NULL 

[[4]] 
aa bb 
"4" "DD" 

[[5]] 
NULL 

如何抑制R返回null，而返回的东西喜欢这个？

aa bb 
"1" "AA" 
"4" "DD" 

Answer 1

那岂不是更容易只是做：

xx.1[ toupper(xx.1[[2]]) %in% xx.2 , ] 

如果你需要它的功能，我敢肯定，这将是更快，也没有胁迫的不良副作用数据框到字符矩阵。

exncol <- function(df, coln, choices) df[ toupper(df[[coln]]) %in% choices , ] 
exncol(xx.1, 2, xx.2) 
    aa bb 
1 1 AA 
4 4 DD 

Answer 2

如何

do.call(rbind,apply(xx.1,1,ff_in,xx.2)) 

？它将所有结果逐行组合; rbind ing一个NULL矢量没有效果。