dropping missing values while using dplyr group_by %>% summarise(??? = n())

sum(!is.na(ShotOutcome))