仅将 as.numeric 映射到数据框的特定列

Question

我有一些格式如下的数据，其中所有列的类型均为chr。

#> # A tibble: 3 x 4
#>   id    age   name  income
#>   <chr> <chr> <chr> <chr> 
#> 1 1     18    jim   100   
#> 2 2     21    bob   200   
#> 3 3     16    alice 300

我只想在某些列上使用as.numeric()。最好，我想定义一个列名向量，然后使用 purrr:map 将 as.numeric() 映射到这些列：

numeric_variables <- c("id", "age", "income")

我怎样才能map那个？

我想要的输出如下所示：

df
#> # A tibble: 3 x 4
#>      id   age name  income
#>   <dbl> <dbl> <chr>  <dbl>
#> 1     1    18 jim      100
#> 2     2    21 bob      200
#> 3     3    16 alice    300

下面的数据输入代码。

library(purrr)
df <- data.frame(stringsAsFactors=FALSE,
          id = c(1, 2, 3),
         age = c(18, 21, 16),
        name = c("jim", "bob", "alice"),
      income = c(100, 200, 300)
)
df <- map_df(df, as.character)
df

^{由reprex package (v0.3.0) 于 2020-02-15 创建}

Answer 1

我们可以使用mutate_at

library(dplyr)
df %>%
  mutate_at(vars(numeric_variables), as.numeric) %>%
  as_tibble
# A tibble: 3 x 4
#     id   age name  income
#  <dbl> <dbl> <chr>  <dbl>
#1     1    18 jim      100
#2     2    21 bob      200
#3     3    16 alice    300

或者更容易

df %>%
    type.convert(as.is = TRUE)

---

或map

library(purrr)
df %>%
   map_if(names(.) %in% numeric_variables, as.numeric) %>%
   bind_cols
# A tibble: 3 x 4
#     id   age name  income
#  <dbl> <dbl> <chr>  <dbl>
#1     1    18 jim      100
#2     2    21 bob      200
#3     3    16 alice    300

或者如果我们使用复合赋值运算符（%<>%），这可以就地赋值

library(magrittr)
df %<>%
   map_if(names(.) %in% numeric_variables, as.numeric) %<>%
   bind_cols
str(df)
#tibble [3 × 4] (S3: tbl_df/tbl/data.frame)
# $ id    : num [1:3] 1 2 3
# $ age   : num [1:3] 18 21 16
# $ name  : chr [1:3] "jim" "bob" "alice"
#  $ income: num [1:3] 100 200 300

Answer 2

您可以使用map_at

df[] <- purrr::map_at(df, numeric_variables, as.numeric)
df
# A tibble: 3 x 4
#     id   age name  income
#  <dbl> <dbl> <chr>  <dbl>
#1     1    18 jim      100
#2     2    21 bob      200
#3     3    16 alice    300