Finden häufigste Kombination in einem Vektor von Gruppen

Question

ich eine Tabelle mit zwei Spalten haben nämlich id und item:

df <- data.frame(id=c(1,1,2,2,2,2,3,3,3,4,4,4,4,4),item=c(1,2,3,1,2,3,4,1,2,3,1,2,1,2)) 

ich die häufigste Kombination finden wollen (Reihenfolge spielt keine Rolle) von 3 Artikel pro id. Also im Grunde, n wählen r wo n = number of items within id und r = 3. Die Anzahl der Artikel pro id variiert - einige haben mehr als 3, manche weniger.

Ich bin neu zu R und lese über combn und expand.grid, aber ich weiß nicht, wie man sie in meinem Fall (innerhalb jedes id) zu verwenden.

"Find most frequent combination of values in a data.frame" ist die nächste Frage, die ich gefunden habe.

EDIT: Die erwartete Antwort basierend auf dem Beispiel ist die Kombination "1, 2, 3", die in ID erscheint 2 und 4.

Answer 1

Hier ist eine Idee mit dplyr

df1 <- df %>% 
     group_by(id) %>% 
     arrange(item) %>% 
     summarise(new = paste(unique(combn(item, length(unique(item)), toString)), collapse = '/')) 
df1 
# A tibble: 4 × 2 
#  id            new 
# <dbl>           <chr> 
#1  1           1, 2 
#2  2      1, 2, 3/1, 3, 3/2, 3, 3 
#3  3           1, 2, 4 
#4  4 1, 1, 2/1, 1, 3/1, 2, 2/1, 2, 3/2, 2, 3 

names(sort(table(unlist(strsplit(df1$new, '/'))), decreasing = TRUE)[1]) 
#[1] "1, 2, 3" 

Answer 2

library(dplyr) 
grouped <- df %>% group_by(id,item) %>% summarize(count = n()) %>% arrange(desc(count)) 

Voila. Die höchsten Zählungen werden vom höchsten zum niedrigsten sortiert.

EDIT: Nur realisiert, dass ich Ihre Frage nicht vollständig beantwortet habe. Ich hoffe, ich habe dir einen guten Start gegeben.

Answer 3

Ich denke, das ist, was Sie Basis R verwenden möchten (kein Paket erforderlich):

a <- aggregate(item~id, df, unique) 
a <- lapply(a$item, 'length<-', max(lengths(a$item))) 
m <- matrix(unlist(a), ncol=3, byrow = T) 
m <- t(apply(m,1,function(x) sort(x,na.last = T))) 

#  [,1] [,2] [,3] 
#[1,] 1 2 NA 
#[2,] 1 2 3 
#[3,] 1 2 4 
#[4,] 1 2 3 

Sobald wir Matrix erhalten m, die häufigste Reihe der Matrix ist was Sie wollen:

t <- table(apply(m, 1, paste, collapse = "/")) 
as.numeric(strsplit(names(which.max(t)), "/")[[1]]) 

#[1] 1 2 3