This dataset contains information on lifestyle measures such as the amount of sunshine, pollution, and happiness levels for $44$ major cities around the world.

Drop rows in rankings with missing values.

The code contains all imports, loads the dataset, subsets the dataset, and displays the number of rows in the cleaned data.

# Import packages

suppressPackageStartupMessages$($library$($tidyverse$))$

# Load the dataset

rankings $<-$ read.csv$(\text{'}$rankings$\_$example.csv$\text{'})$

# Keep only certain features

rankings $<-$ rankings $|>$ select$($city$,$ pollution, obesity$\_$levels$)$

# Drop rows with missing values

rankingsClean $<-$ # Your code goes here

nrow$($rankingsClean$)$