使用模式 mutate_at 重命名多个变量 [重复]

Question

我有一个包含许多具有相似名称的列的数据集。一些列的值以美分表示，而另一些列以美元表示，例如：

library (tidyverse) 

data<- tribble(
          ~col1_cents, ~col1,~col2_cents, ~col2,
          1000,           NA,       3000,    NA,
          NA,             20,         NA,  25.2,
          2000,           NA,       2030,    NA,
        )

对于一个变量，很容易将值除以100，然后将其分配给美元变量，并删除分变量例如：

data %>% mutate( if_else(is.na(col1),
                         col1_cents/100,
                         col1) %>% 
         select(-col1_cents)

对于数据集中以 _cents 结尾的所有变量，是否有一种通用的方法来执行此操作？我用 mutate_at 和 ends_with 尝试了这个，但没有 _cents 无法让它重命名为原始变量......

谢谢！

Answer 1

你可以使用mutate_at

library(dplyr)
data %>%  mutate_at(vars(ends_with("cents")), ~./100)

# A tibble: 3 x 4
#   col1_cents  col1 col2_cents  col2
#       <dbl> <dbl>      <dbl> <dbl>
#1         10    NA       30    NA  
#2         NA    20       NA    25.2
#3         20    NA       20.3  NA  

如果您想合并这两列，我们可以使用split.default 根据名称的相似性拆分列，使用purrr 中的imap_dfc 和coalesce 将它们合并在一起。

df1 <- data %>%  mutate_at(vars(ends_with("cents")), ~./100)

purrr::imap_dfc(split.default(df1, sub("_.*", "", names(df1))), 
 ~.x %>% mutate(!!.y := coalesce(.x[[2]], .x[[1]])) %>% select(.y))

#  col1  col2
#  <dbl> <dbl>
#1    10  30  
#2    20  25.2
#3    20  20.3