如何将数据框中的 NaN 转换为 NA

Question

我希望并担心这只有一行答案，并且很尴尬不得不问它：

由于使用 reshape2 投射数据框，我有一个大数据框，其第一行如下：

  ukgridcode      x       y year     pm10 pm2.5      no2      nox  co so2 ozone benzene
1      56361 460500 1218500 2001 8.583796   NaN 2.375508 3.031918 NaN NaN   NaN     NaN
2      57051 460500 1217500 2001 8.584764   NaN 2.368387 3.022830 NaN NaN   NaN     NaN
3      57052 461500 1217500 2001 8.587392   NaN 2.383438 3.042039 NaN NaN   NaN     NaN
4      57054 463500 1217500 2001 8.590163   NaN 2.455386 3.133869 NaN NaN   NaN     NaN
5      57741 460500 1216500 2001 8.588822   NaN 2.375839 3.032340 NaN NaN   NaN     NaN
6      57742 461500 1216500 2001 8.592360   NaN 2.394949 3.056732 NaN NaN   NaN     NaN

我想将每个 NaN 变成 NA。到目前为止，我已经尝试过：

d2 <- d[is.nan(d)] <- NA
d2 <- d[!is.finite(d)] <- NA
d2 <- apply(d, 2, function (x) x[is.nan(x)] <- NA) # also tried row-wise (1)

但到目前为止没有成功。

感激地收到解决方案。

Answer 1

尝试

d[sapply(d, is.nan)] <- NA


#   ukgridcode      x       y year     pm10 pm2.5      no2      nox co so2 ozone benzene
# 1      56361 460500 1218500 2001 8.583796    NA 2.375508 3.031918 NA  NA    NA      NA
# 2      57051 460500 1217500 2001 8.584764    NA 2.368387 3.022830 NA  NA    NA      NA
# 3      57052 461500 1217500 2001 8.587392    NA 2.383438 3.042039 NA  NA    NA      NA
# 4      57054 463500 1217500 2001 8.590163    NA 2.455386 3.133869 NA  NA    NA      NA
# 5      57741 460500 1216500 2001 8.588822    NA 2.375839 3.032340 NA  NA    NA      NA
# 6      57742 461500 1216500 2001 8.592360    NA 2.394949 3.056732 NA  NA    NA      NA

或使用 data.table

library(data.table)
setDT(d)[, lapply(.SD, function(x) ifelse(is.nan(x), NA, x))]

或者看看@Rolands评论