如何通過強制引入NAs時避免警告

Question

我通常更喜歡編碼R，以免得到警告，但我不知道如何避免在使用as.numeric轉換字符向量時發出警告。

例如：

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

能不能給我一個警告，因爲它推出來港受到脅迫。我希望通過強制方式引入新加坡 - 有沒有辦法告訴它「是這就是我想要做的事情」。或者我應該接受警告嗎？

或者我應該爲這項任務使用不同的功能？

Answer 1

使用suppressWarnings()：

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

這抑制了警告。

Answer 2

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 

Answer 3

一般來說，抑制警告並不是最好的解決方案，因爲您可能希望在提供某些意外輸入時發出警告。
下面的解決方案是在數據類型轉換過程中僅維護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