переименовать столбцы в списке фреймов данных относительно имен списка df с аккуратными функциями

Question

Я хотел бы использовать tidyverse для переименования некоторых столбцов в списке с помощью Tibbles в соответствии с именами элементов, которые я использую в вызове функции карты. пример:

c("star","wars") %>% 
set_names() %>% 
map(~starwars %>% 
mutate(col_1 = .x) %>% #this as an example for the use of other functions that I have to use in the real data
select(col_1 ,everything()) %>% 
rename_at(vars(name:eye_color), list(~str_c(.,"_",.x)))) <- the issue

Результат:

$star
# A tibble: 87 x 15
   col_1 name_name height_height mass_mass hair_color_hair~
   <chr> <chr>             <int>     <dbl> <chr>           
 1 star  Luke Sky~           172        77 blond           
 2 star  C-3PO               167        75 NA              
 3 star  R2-D2                96        32 NA              
 4 star  Darth Va~           202       136 none            
 5 star  Leia Org~           150        49 brown           
 6 star  Owen Lars           178       120 brown, grey     
 7 star  Beru Whi~           165        75 brown           
 8 star  R5-D4                97        32 NA              
 9 star  Biggs Da~           183        84 black           
10 star  Obi-Wan ~           182        77 auburn, white   
# ... with 77 more rows, and 10 more variables:
#   skin_color_skin_color <chr>, eye_color_eye_color <chr>,
#   birth_year <dbl>, sex <chr>, gender <chr>, homeworld <chr>,
#   species <chr>, films <list>, vehicles <list>,
#   starships <list>

$wars
# A tibble: 87 x 15
   col_1 name_name height_height mass_mass hair_color_hair~
   <chr> <chr>             <int>     <dbl> <chr>           
 1 wars  Luke Sky~           172        77 blond           
 2 wars  C-3PO               167        75 NA              
 3 wars  R2-D2                96        32 NA              
 4 wars  Darth Va~           202       136 none            
 5 wars  Leia Org~           150        49 brown           
 6 wars  Owen Lars           178       120 brown, grey     
 7 wars  Beru Whi~           165        75 brown           
 8 wars  R5-D4                97        32 NA              
 9 wars  Biggs Da~           183        84 black           
10 wars  Obi-Wan ~           182        77 auburn, white   
# ... with 77 more rows, and 10 more variables:
#   skin_color_skin_color <chr>, eye_color_eye_color <chr>,
#   birth_year <dbl>, sex <chr>, gender <chr>, homeworld <chr>,
#   species <chr>, films <list>, vehicles <list>,
#   starships <list>

То, что я хочу создать:

$star
# A tibble: 87 x 15
   col_1 name_star height_star mass_star hair_color_star~
   <chr> <chr>             <int>     <dbl> <chr>           
 1 star  Luke Sky~           172        77 blond           
 2 star  C-3PO               167        75 NA              
 3 star  R2-D2                96        32 NA              
 4 star  Darth Va~           202       136 none            
 5 star  Leia Org~           150        49 brown           
 6 star  Owen Lars           178       120 brown, grey     
 7 star  Beru Whi~           165        75 brown           
 8 star  R5-D4                97        32 NA              
 9 star  Biggs Da~           183        84 black           
10 star  Obi-Wan ~           182        77 auburn, white   
# ... with 77 more rows, and 10 more variables:
#   skin_color_star <chr>, eye_color_star <chr>,
#   birth_year <dbl>, sex <chr>, gender <chr>, homeworld <chr>,
#   species <chr>, films <list>, vehicles <list>,
#   starships <list>

$wars
# A tibble: 87 x 15
   col_1 name_wars height_wars mass_wars hair_color_wars~
   <chr> <chr>             <int>     <dbl> <chr>           
 1 wars  Luke Sky~           172        77 blond           
 2 wars  C-3PO               167        75 NA              
 3 wars  R2-D2                96        32 NA              
 4 wars  Darth Va~           202       136 none            
 5 wars  Leia Org~           150        49 brown           
 6 wars  Owen Lars           178       120 brown, grey     
 7 wars  Beru Whi~           165        75 brown           
 8 wars  R5-D4                97        32 NA              
 9 wars  Biggs Da~           183        84 black           
10 wars  Obi-Wan ~           182        77 auburn, white   
# ... with 77 more rows, and 10 more variables:
#   skin_color_wars <chr>, eye_color_wars <chr>,
#   birth_year <dbl>, sex <chr>, gender <chr>, homeworld <chr>,
#   species <chr>, films <list>, vehicles <list>,
#   starships <list>

По какой-то причине rename_at смотрит на ".x" как "." исходя из названия столбцов, а не из карты. Как можно было использовать .x функции карты?

Answer 1

Одним из способов обхода проблемы является использование анонимной функции внутри rename_at() вместо формулы, чтобы избежать появления .x и . ссылки на один и тот же объект. Вы также можете использовать анонимную функцию для функции map() и тильду в rename_at().

c("star","wars") %>% 
     set_names() %>% 
     map(~starwars %>% 
              mutate(col_1 = .x) %>% 
              select(col_1 ,everything()) %>% 
              rename_at(vars(name:eye_color), function(var) str_c(var, "_", .x)))

$star
# A tibble: 87 x 15
   col_1 name_star height_star mass_star hair_color_star skin_color_star
   <chr> <chr>           <int>     <dbl> <chr>           <chr>          
 1 star  Luke Sky~         172        77 blond           fair           
 2 star  C-3PO             167        75 NA              gold           
 3 star  R2-D2              96        32 NA              white, blue    
 4 star  Darth Va~         202       136 none            white          
 5 star  Leia Org~         150        49 brown           light          
 6 star  Owen Lars         178       120 brown, grey     light          
 7 star  Beru Whi~         165        75 brown           light          
 8 star  R5-D4              97        32 NA              white, red     
 9 star  Biggs Da~         183        84 black           light          
10 star  Obi-Wan ~         182        77 auburn, white   fair           
# ... with 77 more rows, and 9 more variables: eye_color_star <chr>,
#   birth_year <dbl>, sex <chr>, gender <chr>, homeworld <chr>, species <chr>,
#   films <list>, vehicles <list>, starships <list>

$wars
# A tibble: 87 x 15
   col_1 name_wars height_wars mass_wars hair_color_wars skin_color_wars
   <chr> <chr>           <int>     <dbl> <chr>           <chr>          
 1 wars  Luke Sky~         172        77 blond           fair           
 2 wars  C-3PO             167        75 NA              gold           
 3 wars  R2-D2              96        32 NA              white, blue    
 4 wars  Darth Va~         202       136 none            white          
 5 wars  Leia Org~         150        49 brown           light          
 6 wars  Owen Lars         178       120 brown, grey     light          
 7 wars  Beru Whi~         165        75 brown           light          
 8 wars  R5-D4              97        32 NA              white, red     
 9 wars  Biggs Da~         183        84 black           light          
10 wars  Obi-Wan ~         182        77 auburn, white   fair           
# ... with 77 more rows, and 9 more variables: eye_color_wars <chr>,
#   birth_year <dbl>, sex <chr>, gender <chr>, homeworld <chr>, species <chr>,
#   films <list>, vehicles <list>, starships <list>

Для потомков rename_at() был заменен rename_with() в dplyr версия 1.0.0 (но никуда не девается). Код rename_with() будет выглядеть так:

... %>%
     rename_with(.fn = function(var) str_c(var, "_", .x), .cols = name:eye_color))

Answer 2

Альтернативой использованию ответа @ aosmith является принудительное выражение выражения defuse:

library(rlang)
c("star","wars") %>% 
  set_names() %>% 
  map(~starwars %>% 
        mutate(col_1 = .x) %>%
        select(col_1 ,everything()) %>% 
        rename_at(vars(name:eye_color), list(~str_c(.,"_",!!quo(.x)))))

Я думаю, что анонимная функция с разными символами определенно является более безопасным и ясным подходом, но это предназначено для демонстрации возможно.