r - 如何在巨大的数据框中用零替换 NaN 值？

Question

我尝试NaN使用以下脚本将值替换为零：

rapply( data123, f=function(x) ifelse(is.nan(x),0,x), how="replace" )
# [31]   0.00000000  -0.67994832   0.50287454   0.63979527   1.48410571  -2.90402836

NaN 值显示为零，但当我输入数据框的名称并尝试查看它时，该值仍为 NaN。

data123$contri_us
# [31]          NaN  -0.67994832   0.50287454   0.63979527   1.48410571  -2.90402836

我不确定该rapply命令是否实际上在数据框中应用了调整，或者只是按照所示替换了值。

知道如何将NaN值实际更改为零吗？

Answer 1

与. is.nan_ is.na所以，让我们解决这个问题！

is.nan.data.frame <- function(x)
do.call(cbind, lapply(x, is.nan))

data123[is.nan(data123)] <- 0

Answer 2

事实上，在 R 中，这个操作非常简单：

如果矩阵 'a' 包含一些 NaN，则只需使用以下代码将其替换为 0：

a <- matrix(c(1, NaN, 2, NaN), ncol=2, nrow=2)
a[is.nan(a)] <- 0
a

如果数据框 'b' 包含一些 NaN，则只需使用以下代码将其替换为 0：

#for a data.frame: 
b <- data.frame(c1=c(1, NaN, 2), c2=c(NaN, 2, 7))
b[is.na(b)] <- 0
b

is.nan请注意它是矩阵与is.na数据框时的区别。

正在做

#...
b[is.nan(b)] <- 0
#...

产生：Error in is.nan(b) : default method not implemented for type 'list'因为 b 是一个数据框。

注意：针对小而令人困惑的错别字进行了编辑

Answer 3

以下应该做你想要的：

x <- data.frame(X1=sample(c(1:3,NaN), 200, replace=TRUE), X2=sample(c(4:6,NaN), 200, replace=TRUE))
head(x)
x <- replace(x, is.na(x), 0)
head(x)

Answer 4

这是一个tidyverse解决方案。我已经用NaN和生成了样本数据NA。第一列是完全完整的。

df <- tibble(x = LETTERS[1:5],
             y = c(1:3, NaN, 4),
             z = c(rep(NaN, 3), NA, 5))

> df
# A tibble: 5 x 3
  x         y     z
  <chr> <dbl> <dbl>
1 A         1   NaN
2 B         2   NaN
3 C         3   NaN
4 D       NaN    NA
5 E         4     5

然后我们可以将mutate_allwithreplace应用于数据框：

> df %>% 
+   mutate_all(~replace(., is.nan(.), 0))
# A tibble: 5 x 3
  x         y     z
  <chr> <dbl> <dbl>
1 A         1     0
2 B         2     0
3 C         3     0
4 D         0    NA 
5 E         4     5

我们已经NaN用零替换了值，既没有触及NA值也没有触及x列。