Question

我有以下数据，其中有n.a.值（R无法识别）

我正在尝试使用grepl

删除这些值

x <- x[!grepl("n.a.", x$Fixed.assets.EUR.Last.avail..yr),]

但我试图在所有列中应用它，而不是指定每个列名称和多行文本。

我目前拥有的是

x <- sapply(x[, c(1:4)], !grepl("n.a."))

产生错误但不起作用。

Error in match.fun(FUN) : 
  '!grepl("n.a.", x[, 1:4])' is not a function, character or symbol

数据

dput(x)[1:6, ]
  Fixed.assets.EUR.Last.avail..yr Fixed.assets.EUR.Year...1 Fixed.assets.EUR.Year...2
1                      34,827,809                38,549,311                29,035,369
2                         755,256                   658,200                   573,888
3                       2,639,824                 2,739,205                 3,230,890
4                       2,543,367                 2,317,132                 2,994,769
5                       1,608,004                 1,702,838                 1,763,244
6                         661,875                   661,082                   584,166
  Fixed.assets.EUR.Year...3
1                30,416,099
2                      n.a.
3                 2,841,046
4                   693,370
5                 2,024,666
6                   565,007

Answer 1

首先我要说的是，这里的最佳做法是在读入数据时指定na.strings = c("n.a.")参数。也就是说，这是一种使用grepl()删除任何以n.a.为字符串的行的方法。

x[-which(apply(x[,1:4],1,function(y) any(grepl("n.a.",y, fixed=TRUE)))),]

Answer 2

如果你想让R识别＆＃34; n.a。＆＃34;如果没有删除整行的NA值（因此只在一列中输出n.a.值的行中的实际值），您可以使用：

df[df=="n.a."] <- NA

否则，您最好使用@ Mako212的解决方案。

Answer 3

以下是2个备选方案

示例数据

set.seed(1)
df <- as.data.frame(matrix(sample(c("n.a.", "good"), 20, replace=TRUE), ncol=2, byrow=TRUE))
head(df)

    # V1   V2
# 1 n.a. n.a.
# 2 good good
# 3 n.a. good
# 4 good good
# 5 good n.a.
# 6 n.a. n.a.

将n.a.转换为NA，然后使用complete.cases

data <- replace(df, df == "n.a.", NA)
data[complete.cases(data),]

    # V1   V2
# 2 good good
# 4 good good
# 9 good good

使用rowSums

df[rowSums(df == "n.a.") == 0,]

    # V1   V2
# 2 good good
# 4 good good
# 9 good good

gre

3 个答案: