Angenommen, wir haben einen numerischen data.framefoo und wollen die Summe von jeweils zwei Spalten finden:

foo <- data.frame(x=1:5,y=4:8,z=10:14, w=8:4)
bar <- combn(colnames(foo), 2, function(x) foo[,x[1]] + foo[,x[2]])
bar
#     [,1] [,2] [,3] [,4] [,5] [,6]
#[1,]    5   11    9   14   12   18
#[2,]    7   13    9   16   12   18
#[3,]    9   15    9   18   12   18
#[4,]   11   17    9   20   12   18
#[5,]   13   19    9   22   12   18

Alles ist in Ordnung, mit Ausnahme der Spaltennamen, die fehlenbar. Ich möchte Spaltennamen vonbar um die zugehörigen Spalten in anzuzeigenfooZum Beispiel in diesem Beispiel:

colnames(bar) <- apply(combn(colnames(foo),2), 2, paste0,collapse="")
colnames(bar)
#[1] "xy" "xz" "xw" "yz" "yw" "zw"

Das ist einfach, aber ich möchte die Spaltenbeschriftung in derselben durchführenbar <- combn(...) Befehl. Gibt es irgendeinen Weg?