Base R
单个变量
data$x1 <- as.numeric(as.character(data$x1))
多个变量
i <- c(2, 3)
data[ , i] <- apply(data[ , i], 2,            # Specify own function within apply                    function(x) as.numeric(as.character(x)))
DPLYR
library(dplyr)
mtcars %>%  mutate(across(everything(), as.numeric))