Znajdź najczęstszych kompletacji w ramach Vector przez Grupę

Question

Mam tabeli z dwoma kolumnami mianowicie id i 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)) 

Chcę znaleźć najczęstszą kombinacji (kolejność nie ma znaczenia) z 3 sztuk na id. Zasadniczo, n wybierz r, gdzie n = number of items within id i r = 3. Liczba pozycji na id jest różna - niektóre mają więcej niż 3, a niektóre mniej.

Jestem nowy dla R i czytać o combn i expand.grid, ale nie wiem jak z nich korzystać w moim przypadku (do pracy w obrębie każdego id).

"Find most frequent combination of values in a data.frame" to najbliższe pytanie, które znalazłem.

Edycja: Oczekiwana odpowiedź na przykładzie jest kombinacja "1, 2, 3", która pojawia się w ID 2 i 4.

Answer 1

Oto jeden pomysł z wykorzystaniem 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. Najwyższe liczby posortowane od najwyższego do najniższego.

EDYCJA: Właśnie zdałem sobie sprawę, że nie w pełni odpowiedziałem na twoje pytanie. Mam nadzieję, że dobrze ci się powiodło.

Answer 3

myślę, że to, co chcesz za pomocą zasady R (bez opakowania potrzebne):

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 

Gdy otrzymujemy macierz m, najczęstszą wiersz matrycy jest to, co chcesz:

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

#[1] 1 2 3