Эффективный способ указания нескольких переменных индикатора на строку с помощью составного ключа?

Question

Мои объекты индикатора и значения имеют составные ключи, которые сопоставляются друг с другом, есть эффективный способ агрегирования значений в объект-индикатор?

Учитывая "пустой" индикатор dataframe:

indicator <- data.frame(Id1=c(1,1,2,2,3,3,4,4), Id2=c(10,11,10,12,10,12,10,12),Ind_A=rep(0,8),Ind_B=rep(0,8)) 

    Id1 Id2 Ind_A Ind_B 
1  1  10  0  0 
2  1  11  0  0 
3  2  10  0  0 
4  2  12  0  0 
5  3  10  0  0 
6  3  12  0  0 
7  4  10  0  0 
8  4  12  0  0 

и dataframe значений:

values <- data.frame(Id1=c(1,1,1,2,2,3,3,4,4,4),Id2=c(10,10,11,10,12,10,12,10,10,12),Indicators=c('Ind_A','Ind_B','Ind_A','Ind_B','Ind_A','Ind_A','Ind_A','Ind_A','Ind_B','Ind_A')); 

    Id1 Id2 Indicators 
1  1  10  Ind_A 
2  1  10  Ind_B 
3  1  11  Ind_A 
4  2  10  Ind_B 
5  2  12  Ind_A 
6  3  10  Ind_A 
7  3  12  Ind_A 
8  4  10  Ind_A 
9  4  10  Ind_B 
10  4  12  Ind_A 

Я хочу закончить с:

Id1  Id2 Ind_A Ind_B 
    1  10  1  1 
    1  11  1  0 
    2  10  0  1 
    2  12  1  0 
    3  10  1  0 
    3  12  1  0 
    4  10  1  1 
    4  12  1  0 

Answer 1

Вы можете использовать dcast для преобразования набора данных «values» из формата «long» в «wide».

library(reshape2) 
dcast(values, Id1+Id2~Indicators, value.var='Indicators', length) 
# Id1 Id2 Ind_A Ind_B 
#1 1 10  1  1 
#2 1 11  1  0 
#3 2 10  0  1 
#4 2 12  1  0 
#5 3 10  1  0 
#6 3 12  1  0 
#7 4 10  1  1 
#8 4 12  1  0 

Как показано выше, вы не можете создать второй набор данных, но если вам нужно изменить значение в одном наборе данных на основе значения в других,

indicator$Ind_A <- (do.call(paste, c(indicator[1:2], 'Ind_A')) %in% 
       do.call(paste, values))+0L 
indicator$Ind_B <- (do.call(paste, c(indicator[1:2], 'Ind_B')) %in% 
       do.call(paste, values))+0L