Hoạt động trên các hàng của một khung dữ liệu

Question

Tôi đã có khung dữ liệu trong R và tôi muốn thực hiện phép tính trên tất cả các cặp hàng. Có cách nào đơn giản hơn để thực hiện việc này hơn là sử dụng vòng lặp lồng nhau không?

Để làm cho bê tông này, hãy xem xét một khung dữ liệu với mười hàng, và tôi muốn tính toán sự khác biệt về điểm số giữa tất cả (45) cặp có thể.

> 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 

Tôi biết tôi có thể thực hiện phép tính này với vòng lặp lồng nhau, nhưng có cách nào tốt hơn (nhiều R-ish) hơn để làm điều đó không?

Answer 1

đây một giải pháp khác sử dụng 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,]] 

hoặc trực tiếp hơn

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

Để tính toán sự khác biệt, có lẽ bạn có thể sử dụng

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() là bạn bạn bè.

dist(df$Score) 

Bạn có thể đặt nó như là một ma trận:

as.matrix(dist(df$Score))