引用R数据框中的列

Question

我在按名称引用数据框中的列时遇到问题。我已经开始提取没有NA的行的功能：

prepare <- function(dataframe, attr1,attr2){ 
subset_na_still_there <- dataframe[!is.na(attr1) & !is.na(attr2),] 
subset_na_still_there2 <- subset(dataframe, !is.na(attr1) & !is.na(attr2)) 
### someother code goes here 
} 

但是，返回的子集仍然包含NA。我没有得到任何错误。 这里是一个related question

编辑： 选择列，然后按编号引用它们开了窍：

prepare <- function(dataframe, attr1,attr2){ 
subset_cols <- dataframe[,c(attr1, attr2)] 
subset_gone <- subset_cols[!is.na(subset_cols[,1]) & !is.na(subset_cols[,2]),] 
} 

为什么第一个版本不会达到预期效果？

Answer 1

如何：

prepare <- function(x, attr1, attr2){ 
    x[!is.na(x[attr1]) & !is.na(x[attr2]),] 
} 

Answer 2

而不是创建自己的功能，尝试subset：

subset(mydata, !is.na(attr1) & !is.na(attr2)) 

如果你想获得与港定居在摆脱行的任何领域尝试

na.omit(mydata) 

Answer 3

df <- data.frame(att1=c(1,NA,NA,10),att2=c(NA,1,2,3),val=c("a","z","e","r")) 

df 
    att1 att2 val 
1 1 NA a 
2 NA 1 z 
3 NA 2 e 
4 10 3 r 

test <- function(df,att1,att2){ 
df_no_na <- df[!is.na(att1) & !is.na(att2),] 
df_no_na 
} 

test(df,df$att1,df$att2) 
    att1 att2 val 
4 10 3 r 

这是工作我。你确定NA吗？是is.na(df$att1)还是TRUE？