R: comparaisons de noms de variables dynamiques

Question

J'ai recodé un tas de variables dans un ensemble de données, et j'ai donné le préfixe "r_" aux variables nouvellement recodées dans mon ensemble de données.

Je voudrais exécuter table sur les paires pour m'assurer que le recodage était correct. Quelque chose comme table(v1, r_v1), mais je dois le faire pour beaucoup de variables. Ils ne sont pas dans un ordre particulier, donc je ne pouvais pas utiliser l'indexation.

Voici un exemple reproductible de données que l'on peut utiliser (également toutes les astuces pour optimiser ce code sont appréciées!).

mtcars %>% select(c(disp,hp)) %>% 
mutate_all(funs(if_else(.>100,1,0))) %>% 
rename_(.dots=setNames(names(.), paste0('r_', names(.)))) %>% 
cbind(mtcars,.) 

Des idées?

Answer 1

Je voudrais simplement utiliser des noms de variables et simples pour la boucle. Appel des données modifiées dd,

orig = c("disp", "hp") 
trans = paste0("r_", orig) 

check_list = list() 
for (i in seq_along(orig)) { 
    check_list[[i]] = table(dd[[orig[i]]], dd[[trans[i]]]) 
    # or whatever other check you want to do 
} 

check_list 

Vous pouvez ensuite examiner les check_list contenu un à la fois.

Answer 2

Pour garder les choses dans le format bien rangé avec lequel vous avez commencé: bibliothèque (de purrr) bibliothèque (tidyr)

mtcars %>% 
select(disp,hp) %>% 
mutate_all(funs(r = if_else(.>100,1,0))) %>% 
mutate(index = row_number()) %>% 
gather(key = key, value = value, -index) %>% 
separate(key, c("Variable", "Type")) %>% 
mutate(Type = ifelse(is.na(Type), "Original", "Recode")) %>% 
spread(key = Type, value = value) %>% 
select(-index) %>% 
split(.$Variable) %>% 
map(~ select(.,-Variable)) %>% 
map(~ table(.))