q1 <- quantile(emissions_by_country$total_emission, 0.25) q3 <- quantile(emissions_by_country$total_emission, 0.75) iqr <- (q3 - q1)