library(tidyverse)
(example_data <- tribble(
~A, ~B, ~C, ~D,
4, 3, 6, 7,
2, 4, 5, 8,
4, 6, 7, 9,
5, 7, 6, 1
) %>% mutate(MEAN = rowMeans(.)))
(example_data2 <- example_data %>% mutate(
rcount = rowSums(. > .[["MEAN"]])
))
# A tibble: 4 x 6
A B C D MEAN rcount
<dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 4 3 6 7 5 2
2 2 4 5 8 4.75 2
3 4 6 7 9 6.5 2
4 5 7 6 1 4.75 3