如何根据列是否全部为数字（但采用字符格式）将整列转换为数字？

Question

我有一个非常大的数据集，有很多列，所以我不想手动将每一列从字符转换为数字，而是想自动完成。 由于列中的值是“0”、“1”、“2”...“9”，（“1”到“9”），我想象某种循环遍历每一列，检查是否该列全部为“0”、“1”、“2”...或“9”，然后将它们全部转换为数字。

做这个的最好方式是什么？

Answer 1

如果所有列值都是数字，则可以将值转换为数字。

df[] <- lapply(df, function(x) if(all(grepl('^\\d+$', x))) as.numeric(x) else x)

使用dplyr -

library(dplyr)

df <- df %>% mutate(across(where(~all(grepl('^\\d+$', .x))), as.numeric)) 

Answer 2

使用base R 。 我们不需要任何正则表达式 - 这可以使用type.convert自动转换为数字类型

df <- type.convert(df, as.is = TRUE)