Mean function select rows AND define conditions

General
2 

library(data.table)
data <- data.table(c(1,2,3,4,5,6,7,8,9,10),c(1,6,4,78,2,14,2,95,2,11))
mean( data$V2[5:9] )
mean( data$V2[ data$V2 > 2 ] )
mean( data$V2[5:9][data$V2[5:9]>2] )

library(tidyverse)
mean(slice(data,5:9) %>% pull(V2),na.rm = TRUE)
mean(filter(data,V2 > 2) %>% pull(V2),na.rm = TRUE)
mean(slice(data,5:9) %>% 
       filter(V2 > 2) %>% 
       pull(V2),na.rm = TRUE)
1 Like