आर

Question

में बढ़त सूची बनाना

मैं इस तरह डेटा है:

ID=c(rep("ID1",3), rep("ID2",2), "ID3", rep("ID4",2)) 
item=c("a","b","c","a","c","a","b","a") 

data.frame(ID,item) 

ID1 a 
ID1 b 
ID1 c 
ID2 a 
ID2 c 
ID3 a 
ID4 b 
ID4 a 

और मैं इसे इस तरह किनारों की एक सूची के रूप में की आवश्यकता होगी: ID1 से आ रही

a;b 
b;c 
a;c 
a;c 
b;a 

पहले तीन किनारों चौथे, आईडी 2 से, आईडी 3 में कोई किनार नहीं है, इसलिए आईडी 4 से उस और पांचवें से कुछ भी नहीं है। इसे पूरा करने के तरीके पर कोई विचार? पिघल/डाली?

Answer 1

res <- do.call(rbind,with(df, tapply(item, ID, 
     FUN=function(x) if(length(x)>=2) t(combn(x,2))))) 
    paste(res[,1], res[,2], sep=";") 
#[1] "a;b" "a;c" "b;c" "a;c" "b;a" 

Answer 2

मुझे लगता है कि चाहते हैं वहाँ इस के लिए एक सरल igrpah समाधान होना चाहिए, लेकिन यहां data.table पैकेज का उपयोग

library(data.table) 
setDT(df)[, if(.N > 1) combn(as.character(item), 2, paste, collapse = ";"), ID] 

#  ID V1 
# 1: ID1 a;b 
# 2: ID1 a;c 
# 3: ID1 b;c 
# 4: ID2 a;c 
# 5: ID4 b;a 

Answer 3

यहाँ को और अधिक विश्वसनीय समाधान का उपयोग करता है एक सरल उपाय है की कोशिश करो अन्य समाधान के रूप में एक ही कोर तर्क:

library(plyr) 
library(dplyr) 

ID=c(rep("ID1",3), rep("ID2",2), "ID3", rep("ID4",2)) 
item=c("a","b","c","a","c","a","b","a") 

dfPaths = data.frame(ID, item) 
dfPaths2 = dfPaths %>% 
    group_by(ID) %>% 
    mutate(numitems = n(), item = as.character(item)) %>% 
    filter(numitems > 1) 


ddply(dfPaths2, .(ID), function(x) t(combn(x$item, 2)))