совокупный

# aggregate by gender. Note: na.rm = TRUE
#summarize = new column sum

a1 <- data %>% group_by(gndr) %>% 
  summarise(n_stflife = n(), mean_stflife = mean(stflife, na.rm = TRUE))

a2 <- data %>% group_by(gndr, cntry) %>% 
  summarise(n_stflife = n(), mean_stflife = mean(stflife, na.rm = TRUE))
Diana H