替换“。”由NA在数据帧中“。”也用作十进制

Question

我得到了一个数据帧，其中“。”既用作十进制标记，也用作NA。

A B C D 
1 . 1.2 6 
1 12 . 3 
2 14 1.6 4 

为了这个数据帧上工作，我需要获得：

A B C D 
1 NA 1.2 6 
1 12 NA 3 
2 14 1.6 4 

我应该如何处理，以保持小数，但变换单“”在C列？

这里是一个可重复的格式的数据：

data <- structure(list(A = c(1L, 1L, 2L), B = c(".", "12", "14"), C = c("1.2", 
    ".", "1.6"), D = c(6L, 3L, 4L)), .Names = c("A", "B", "C", "D"), 
    class = "data.frame", row.names = c(NA, -3L)) 

Answer 1

您可以使用type.convert并指定"."为您na.string：

df <- data ## Create a copy in case you need the original form 
df 
# A B C D 
# 1 1 . 1.2 6 
# 2 1 12 . 3 
# 3 2 14 1.6 4 

df[] <- lapply(df, function(x) type.convert(as.character(x), na.strings=".")) 
df 
# A B C D 
# 1 1 NA 1.2 6 
# 2 1 12 NA 3 
# 3 2 14 1.6 4 

注意参数是na.strings（与复数的“s”），这样你可以指定多个字符被处理如果您有任何值，则为NA值。

而且，实际这个问题的答案可能是简单地指定na.strings说法，当你第一次与read.table或read.csv读你的数据转化为R，或许。

让我们复制的来自R内的读取CSV过程：

x <- tempfile() 
write.csv(data, x, row.names = FALSE) 

read.csv(x) 
# A B C D 
# 1 1 . 1.2 6 
# 2 1 12 . 3 
# 3 2 14 1.6 4 

read.csv(x, na.strings = ".") 
# A B C D 
# 1 1 NA 1.2 6 
# 2 1 12 NA 3 
# 3 2 14 1.6 4 

Answer 2

假设你的数据帧data：

data[data == "."] <- NA 

应该工作。或者：

data <- sapply(data, as.numeric)