如何使用 tidyverse 将数字（char）转换为数字（数字）

Question

Below is an example. There are three columns, two of them contain numbers but are in characters.

I wish to automatically convert numbers (in char) to numbers (in numeric) using tidyverse.

The actual data has 100s of columns with all in char, but it contains several columns which have values.

library(tidyverse)

tbl <- tibble(x = c("1", "2"),
              y = c("a", "b"),
              z = c("3", "4")
)

Answer 1

We can use

tbl |> mutate(across(.fns = ~ if(all(!is.na(as.numeric(.x)))) as.numeric(.x) else .x))

• output

# A tibble: 2 × 3
      x y         z
  <dbl> <chr> <dbl>
1     1 a         3
2     2 b         4

Answer 2

type.convert(tbl, as.is =TRUE)

# A tibble: 2 x 3
      x y         z
  <int> <chr> <int>
1     1 a         3
2     2 b         4