R语言中ifelse()为何在test为FALSE时仍执行函数？如何解决转换警告？

问题重现 #

尝试从tibble的字符列中提取数字并转换为数值类型，用ifelse()对不含字母（或"+"）的值应用as.numeric()，代码能得到正确结果，但会返回「NAs introduced by coercion」的警告：

library(dplyr)

tibble(a = c("0", "0.1", "abc")) %>% 
  mutate(b = ifelse(!grepl("[a-zA-Z\\+]+", a), as.numeric(a), NA))

运行结果：

# A tibble: 3 × 2
  a         b
  <chr> <dbl>
1 0       0  
2 0.1     0.1
3 abc    NA  
Warning message:
Problem while computing `b = ifelse(grepl("[a-zA-Z\\+]+", a), NA, as.numeric(a))`.
ℹ NAs introduced by coercion 

警告原因 #

ifelse()的参数是整体计算的：它会先完整执行as.numeric(a)，把整个向量a（包括"abc"这类非数值字符）全部转换为数值，这一步就会因为无法转换"abc"而产生NA，触发强制转换警告。之后才会根据条件筛选，返回对应位置的结果——虽然最终结果符合预期，但计算过程中的警告已经产生了。

解决方法 #

方法1：用case_when()逐元素判断执行 #

case_when()会逐元素检查条件，只对符合条件的元素执行as.numeric()转换，不会触发不必要的警告：

library(dplyr)

tibble(a = c("0", "0.1", "abc")) %>% 
  mutate(b = case_when(!grepl("[a-zA-Z\\+]+", a) ~ as.numeric(a),
                       TRUE ~ NA_real_))

方法2：用purrr::map_dbl()逐元素处理 #

通过逐元素遍历向量，只对符合条件的元素做转换，避免整体转换带来的警告：

library(dplyr)
library(purrr)

tibble(a = c("0", "0.1", "abc")) %>% 
  mutate(b = map_dbl(a, ~ if (!grepl("[a-zA-Z\\+]+", .x)) as.numeric(.x) else NA_real_))

方法3：使用安全的数值转换函数readr::parse_number() #

如果你的需求是提取字符串中的数字（自动忽略非数字字符），parse_number()是更安全的选择，不会产生此类警告：

library(dplyr)
library(readr)

tibble(a = c("0", "0.1", "abc")) %>% 
  mutate(b = parse_number(a))

注：如果字符串包含部分数字（如"a123"），该函数会提取出数字部分（123），请根据实际需求选择。

方法4：屏蔽警告（不推荐） #

如果确认警告是无害的，只是想消除提示，可以用suppressWarnings()包裹代码：

library(dplyr)

tibble(a = c("0", "0.1", "abc")) %>% 
  mutate(b = suppressWarnings(ifelse(!grepl("[a-zA-Z\\+]+", a), as.numeric(a), NA)))

内容的提问来源于stack exchange，提问作者Paul