R：獲得匹配的數據幀的列表值

Question

兩組數據：

people <- read.table(text=" 
pid 
1 
2 
3 
4 
", header=TRUE) 

comps <- read.table(text=" 
pid comp rank 
1 1 0 
1 3 1 
1 2 2 
2 4 0 
2 1 1 
2 3 2 
3 1 0 
3 2 1 
3 4 2 
", header=TRUE) 

試圖讓每個獨特pid數據幀與他們比較的列表，如：

pid comps 
1 1,3,2 
2 4,1,3 
3 1,2,4 

燦「T相當那裏..

Answer 1

你可以用aggregate做到這一點：

aggregate(comp~pid, comps, paste, collapse=",") 
# pid comp 
# 1 1 1,3,2 
# 2 2 4,1,3 
# 3 3 1,2,4