Tables by Sections of Dataset, R

Language: Layout:

dat <- data.frame(SOCCER = sample(0:1, 10, replace = TRUE),
                  BASEBALL = sample(0:1, 10, replace = TRUE),
                  TEST_1_PASS = sample(0:1, 10, replace = TRUE),
                  TEST_2_PASS = sample(0:1, 10, replace = TRUE))

df_list <- lapply(list(c("SOCCER", "BASEBALL"), c("TEST_1_PASS", "TEST_2_PASS")), function(cols)
                   reshape(cbind(PLAYER = row.names(dat), dat[cols]), 
                           varying = cols, v.names = "VALUE", 
                           times = cols, timevar = "INDICATOR", 
                           idvar = "PLAYER", ids = NULL,
                           new.row.names = 1:1E4, direction = "long")
           )

# CROSS JOIN (ALL COMBINATION PAIRINGS)
final_df <- Reduce(function(x,y) merge(x, y, by="PLAYER", suffixes=c("_SPORT", "_EXAM")), df_list)

# RUN TABLES FOR EACH SUBSET COMBINATION
tables_list <- with(final_df, by(final_df, list(INDICATOR_SPORT, INDICATOR_EXAM), function(sub)
                                  table(sport = sub$VALUE_SPORT, pass = sub$VALUE_EXAM)
                                )
                   )    
tables_list

[ + ] Show input
Absolute running time: 0.35 sec, cpu time: 0.54 sec, memory peak: 31 Mb, absolute service time: 0,35 sec