강제로 NA를 도입 할 때 경고를 피하는 방법

일반적으로 경고를받지 않도록 R을 코딩하는 것을 선호하지만 as.numeric문자형 벡터를 변환하는 데 사용할 때 경고가 표시되지 않도록하는 방법을 모르겠습니다 .

예를 들면 :

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

강제로 NA를 도입했기 때문에 경고를 줄 것입니다. 강제로 NA를 도입하고 싶습니다. "예, 이것이 제가하고 싶은 일입니다"라고 말할 수있는 방법이 있습니까? 아니면 경고와 함께 살아야합니까?

아니면이 작업에 다른 기능을 사용해야합니까?

사용 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