डेटा फ्रेम के पंक्तियों के जोड़े पर संचालित

Question

मुझे आर में डेटा फ्रेम मिला है, और मैं पंक्तियों के सभी जोड़े पर गणना करना चाहता हूं। लूप के लिए नेस्टेड का उपयोग करने से ऐसा करने का कोई आसान तरीका है?

इस कंक्रीट को बनाने के लिए, दस पंक्तियों के साथ डेटा फ्रेम पर विचार करें, और मैं सभी (45) संभावित जोड़े के बीच स्कोर के अंतर की गणना करना चाहता हूं।

> data.frame(ID=1:10,Score=4*10:1) 
    ID Score 
1 1 40 
2 2 36 
3 3 32 
4 4 28 
5 5 24 
6 6 20 
7 7 16 
8 8 12 
9 9  8 
10 10  4 

मैं जानता हूँ कि मैं पाश के लिए एक नेस्टेड के साथ इस गणना कर सकता है, लेकिन वहाँ एक बेहतर (अधिक आर-ish) जिस तरह से यह करने के लिए है?

Answer 1

यहाँ एक और समाधान combn का उपयोग कर अंतर की गणना करने के लिए, शायद आप इस्तेमाल कर सकते हैं:

df <- data.frame(ID=1:10,Score=4*10:1) 
cm <- combn(df$ID,2) 
delta <- df$Score[cm[1,]]-df$Score[cm[2,]] 

या अधिक सीधे

df <- data.frame(ID=1:10,Score=4*10:1) 
delta <- combn(df$ID,2,function(x) df$Score[x[1]]-df$Score[x[2]]) 

Answer 2

outer(df$Score,df$Score,"-") 

Answer 3

colmx = matrix(rep(df[,2], 10), ncol=10, byrow=F) 
rowmx = matrix(rep(df[,2], 10), ncol=10, byrow=T) 
delta = colmx - rowmx 

Answer 4

जिले() है आप दोस्त

dist(df$Score) 

आप एक मैट्रिक्स के रूप में यह डाल कर सकते हैं:

as.matrix(dist(df$Score))