如何避免在强制引入新来港定居人士时发出警告

我通常更喜欢代码 R，这样我就不会得到警告，但我不知道如何避免得到一个警告时，使用 as.numeric转换字符向量。

例如:

x <- as.numeric(c("1", "2", "X"))

会给我一个警告，因为它是通过强制手段引入 NAs 的。我希望通过强制手段引入 NAs ——有没有办法告诉它“是的，这就是我想要做的”。还是我应该接受警告？

或者我应该在这个任务中使用不同的函数？

268279 次浏览
小开
最佳答案

使用 suppressWarnings():

suppressWarnings(as.numeric(c("1", "2", "X")))
[1]  1  2 NA

这会抑制警告。

小开

suppressWarnings()已被提及。另一种方法是首先手动将有问题的字符转换为 NA。对于您的特定问题，taRifx::destring正是这样做的。这样，如果从函数中获得了其他意想不到的警告，它就不会被抑制。

> library(taRifx)
> x <- as.numeric(c("1", "2", "X"))
Warning message:
NAs introduced by coercion
> y <- destring(c("1", "2", "X"))
> y
[1]  1  2 NA
> x
[1]  1  2 NA
小开

一般来说，抑制警告不是最好的解决方案，因为您可能希望在提供一些意外输入时得到警告。
下面的解决方案是在数据类型转换期间仅维护 NA 的包装器。不需要任何包。

    as.num = function(x, na.strings = "NA") {
stopifnot(is.character(x))
na = x %in% na.strings
x[na] = "0"
x = as.numeric(x)
x[na] = NA_real_
x
}
as.num(c("1", "2", "X"), na.strings="X")
#[1]  1  2 NA
小开

我稍微修改了一下 Jangorecki函数，因为在这种情况下，我们可能有各种不能转换成数字的值。在我的函数中，执行模板搜索，如果找不到模板，则返回 FALSE。！在 gperl 之前，它意味着我们需要那些与模板不匹配的向量元素。其余部分类似于 as.num函数。例如:

as.num.pattern <- function(x, pattern){
stopifnot(is.character(x))
na = !grepl(pattern, x)
x[na] = -Inf
x = as.numeric(x)
x[na] = NA_real_
x
}


as.num.pattern(c('1', '2', '3.43', 'char1', 'test2', 'other3', '23/40', '23, 54 cm.'))


[1] 1.00 2.00 3.43   NA   NA   NA   NA   NA

提交答案