Я хотел бы рассчитать средство кадра данных для каждого фактора, но только если выполнено определенное условие. Например, у меня есть этот фрейм данных:
> df <- data.frame(name = rep(c("A", "B", "C"), 20),
variable1 = rep(c(1, 1, 1, 1, 1, NA), 10),
variable2 = rep(c(2, NA, 2, 2, 2, 2), 10),
variable3 = rep(c(NA, 3, 3, 3, 3, 3), 10))
> table(df$name, df$variable1)
1
A 20
B 20
C 10
> table(df$name, df$variable2)
2
A 20
B 10
C 20
> table(df$name, df$variable3)
3
A 10
B 20
C 20
Я могу легко вычислить средства для каждой переменной с dplyr
следующим образом:
means <- df %>%
group_by(name) %>%
summarise_each(funs(mean(., na.rm = TRUE)))
> means
Source: local data frame [3 x 4]
name variable1 variable2 variable3
1 A 1 2 3
2 B 1 2 3
3 C 1 2 3
Однако, я хочу только вычислить средства, если есть 11 или более наблюдений, иначе положите NA
в соответствующие ячейки. Другими словами, результат должен выглядеть следующим образом:
name variable1 variable2 variable3
1 A 1 2 NA
2 B 1 NA 3
3 C NA 2 3