引用 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))

如果您想删除 any 字段中带有 NA 的行，请尝试

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 吗？