purrr петля через колонки одного dataframe и условно заменить значения из другого dataframe

Question

Со следующими данными ...

library(tidyverse) 

df_fac <- data_frame("author_1" = c("Ted", "Fred", NA, "Jim", "Tim"), 
       "role_1" = c("Faculty", "Faculty", "Staff", "Faculty", "Faculty"), 
       "author_2" = c(NA, "Will", NA, "Bill", NA), 
       "role_2" = c("Staff", "Faculty", "Staff", "Faculty", "Staff")) 

df_all <- data_frame("author_1" = c("Ted", "Fred", "Simon", "Jim", "Tim"), 
        "role_1" = c("Faculty", "Faculty", "Staff", "Faculty", "Faculty"), 
        "author_2" = c("Sam", "Will", "Noah", "Bill", "Luther"), 
        "role_2" = c("Staff", "Faculty", "Staff", "Faculty", "Staff")) 

Если «автор» столбцы в df_fac являются NA, я хотел бы, чтобы они наполняются в с соответствующим значением столбца от df_all с использованием функции map от purrr. Это то, что я в настоящее время обойтись без цикла:

df_test <- df_fac %>% 
    mutate(`author_1` = ifelse(is.na(`author_1`), df_all$`author_1`, `author_1`)) %>% 
    mutate(`author_2` = ifelse(is.na(`author_2`), df_all$`author_2`, `author_2`)) 

С map_df я могу сделать это Перебор столбцов в df_fac, но не в df_all (Как вы можете видеть, что только автор колонки 1).

df_test <- map_df(select(df_fac, matches("author.\\d$")), ~ { 
    ifelse(is.na(.), df_all$`author_1`, .) 
}) 

Есть ли способ иметь map_df перебрать select(df_all, matches("author.\\d$")) в то время как он перебирает select(df_fac, matches("author.\\d$"))?

В примере с игрушкой df_test должен иметь одинаковые столбцы и значения автора как df_all. Я пробовал:

df_test <- map_df(1:length(select(df_fac, matches("author.\\d$"))), ~ { 
    ifelse(is.na(select(df_fac, matches("author.\\d$"))[.]), 
    select(df_all, matches("author.\\d$"))[.], 
    select(df_fac, matches("author.\\d$"))[.]) 
}) 

Броски Error in bind_rows_(x, .id) : not compatible with STRSXP

df_test <- pmap_chr(list(is.na(select(df_fac, matches("author.\\d$"))), 
         select(df_all, matches("author.\\d$")), 
         select(df_fac, matches("author.\\d$"))), 
        ifelse) 

Броски Error: Element 2 has length 2, not 1 or 10.

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

Answer 1

Вы можете использовать map2_df для циклического перемещения по двум спискам одновременно. Использование dplyr::coalsece поможет заменить отсутствующие значения. Я использовал select, чтобы убедиться, что столбцы в df_all были такими же и в том же порядке, что и df_fac.

map2_df(df_fac, select(df_all, one_of(names(df_fac))), ~coalesce(.x, .y)) 

То же самое с помощью pmap:

pmap_df(list(df_fac, select(df_all, one_of(names(df_fac)))), coalesce) 

Вы можете использовать ifelse с map2, а также, наряду с формулой обозначения для обозначения двух различных списков, которые вы используете.

map2_df(df_fac, select(df_all, one_of(names(df_fac))), 
     ~ifelse(is.na(.x), .y, .x))