将多列永久转换为数字 - dplyr

Question

我在这里遵循dplyr-解决方案： converting multiple columns from character to numeric format in r 将多个字符列转换为数字。

代码

is_all_numeric <- function(x) 
{
  !any(is.na(suppressWarnings(as.numeric(na.omit(x))))) & is.character(x)
}
df %>%
   mutate_if(is_all_numeric,as.numeric) #%>%
   str()

完美运行。但是，如果我尝试使用

将其分配给df（即永久更改列类型）

df <- df %>%
   mutate_if(is_all_numeric,as.numeric) #%>%
   str()

df 变为 Null。因此，我想知道发生了什么以及如何使用这些代码行永久地制作数字格式？

MRE

df <- tribble(~date, ~value,
        "2017-01-01", 1,
        "2017-01-02", 2,
        "2017-01-02", 3,
        "2017-01-03", 4,
        "2017-01-03", NA,
        "2017-01-04", 6,
        "2017-01-09", 9) %>% 
  arrange(date) %>% 
  mutate(to_date=cumsum(value))

Answer 1

改用这个——across 在 7 年前写问题中的链接时不存在：

df %>% mutate(across(.fns = type.convert))

或仅使用基础 R：

replace(df, TRUE, lapply(df, type.convert))

Answer 2

按照 akruns 的回答，这只是为了解释你的问题是什么。

注意

df <- str(df)
df
NULL

所以你遇到的错误是你复制了一个解决方案而不了解它的每个部分。

寻找解决方案的一个好技巧是

1. 测试并查看它是否有效
2. 使用“帮助”查看每个部分的作用（最好是每个部分）。
3. 试试看你能不能再做一个小例子来说明你理解它是如何工作的

在我们的例子中，您可以使用 help("mutate_if") 并立即声明 [lifecycle: Superseded]，表明存在一个新的更好的实现（akruns 回答），并且通读您发现没有任何可疑之处（不返回 NULL），所以下一部分是 help("str") 或 help("%>%")。在第一个您将在 return 下看到的

str 出于效率原因，不返回任何内容。明显的副作用是输出到终端。

说明问题出在这个函数上。