I have a data frame that looks somewhat like this:
df <- data.frame(0:2, 1:3, 2:4, 5:7, 6:8, 2:4, 0:2, 1:3, 2:4) colnames(df) <- rep(c(\'a\', \'b\', \
I'm not at the computer now, so can't test this, but... this might work:
do.call(cbind, lapply(names(df) function(x) do.call(rbind, df[, names(df) == x])) )