R：動的変数名の比較

Question

データセットに一連の変数を記録し、新たにコード化された変数にデータセットの接頭辞 "r_"を付けました。

tableをペアで実行して、記録が正しいことを確認します。 table(v1, r_v1)のようなものですが、私は多くの変数のためにそれを行う必要があります。彼らは特定の順序ではないので、私はインデックスを使用することができませんでした。

ここでは、使用できるデータの再現可能な例を示します（このコードを最適化するヒントもありがたいです）。

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

Answer 1

私は変数名と単純なforループを使用します。あなたはその後、一度にcheck_list内容1を調べることができます変更されたデータ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 

を呼び出します。あなたが開始したと整頓形式で物事を保つために

Answer 2

： ライブラリ（purrr） ライブラリ（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(.))