R Numerical data

sum(Pop_2024$Total_population)

[1] 66488828

mean(Pop_2024$Life_expectancy_at_birth)

[1] 58.075

mean(Pop_2024$Global_fertility_rate)

[1] 4.533333

Pop_2024 <- Pop_2024 %>%

```summary

Pop_2024 %>%
  group_by(northern_region) %>%
  summarise(mean(Life_expectancy_at_birth), median(Life_expectancy_at_birth))

Pop_2024 %>%
  group_by(northern_region) %>%
  summarise(mean(Life_expectancy_at_birth), median(Life_expectancy_at_birth))

Pop_2024 %>%
  mutate(is_outlier)

Pop_2024 %>%
  filter(!is_outlier) %>%
  arrange(desc(Life_expectancy_at_birth))