Es mucho más simple calcular la mediana por cada grupo y luego determinar que hacer si el grupo tiene más o menos ocurrencias de las esperadas. Voy a usar mtcars
y enuncio el mismo problema, calcular solo la mediana de wt
de los cyl
que tienen más de 10 filas:
mtcars %>%
group_by(cyl) %>%
summarise(wt_median = median(wt), n=n()) %>%
mutate(wt_median = ifelse(n>10, wt_median, NA))
# A tibble: 3 x 3
cyl wt_median n
<dbl> <dbl> <int>
1 4 2.2 11
2 6 NA 7
3 8 3.76 14
Básicamente calculamos la mediana para todos los grupos y con n()
obtenemos la cantidad de casos por grupo, finalmente setamos en NA
la mediana de los grupos con menos ocurrencias de las deseadas.
También si lo que buscas es simplemente, calcular y filtrar puedes hacer:
mtcars %>%
group_by(cyl) %>%
summarise(wt_median = median(wt), n=n()) %>%
filter(n>10)
# A tibble: 2 x 3
cyl wt_median n
<dbl> <dbl> <int>
1 4 2.2 11
2 8 3.76 14