Durchschnitt auf verketteten String mit einigen Bedingungen

Question

Ich möchte auf meine verkettete Zeichenfolge mit einigen Bedingungen zu mitteln. dies ist meine Daten:

id path events 

1 a, b 2, 3 
2 c, a 3, 4 
3 b  5 

Ich möchte durchschnittlich Reihen nehmen, die nicht haben einen bestimmten Weg, beispielsweise den Mittelwert der Zeilen, die nicht c hat (dh Zeile 1 und 3) zu tun ist (2 + 3 + 5)/3 = 3,33

und ähnlich für die anderen so meine gewünschte Ausgabe

path avg 
a  5 
b  3.5 
c  3.33 

vor, daß ich nicht verketteten Daten versucht wird und es funktionierte

output <- sapply(as.character(unique(df$path)), 
       function(x) mean(subset(df, !path %in% x)$events)) 

konnte aber nicht mit einer Idee für diese Situation kommen

Dies ist meine Daten

mydata <- data.frame(id =c(1,2,3), 
        path= c("a,b", "c,a", "b"), 
        events =c (("2,3"), ("3,4"), ("5"))) 

Answer 1

hier ein tidyverse Ansatz:

library(tidyverse) 

mydata %>% separate_rows(path, events, convert = TRUE) %>% # unnest rows 
    group_by(path) %>% # set grouping 
    summarise(avg = mean(.$events[!.$id %in% id])) # summarize groups 

## # A tibble: 3 × 2 
## path  avg 
## <chr> <dbl> 
## 1  a 5.000000 
## 2  b 3.500000 
## 3  c 3.333333 

Notiere die Verdichtungs .$[column name] verwendet beziehen auf die gesamte Spalte und nur [column name], um auf die Werte für die Gruppe zu verweisen.