Problem Set 1

Visualization

ggplot(gapminder, aes(x = gdpPercap, y = lifeExp)) +
  geom_point() +
  scale_x_log10() +
  labs (title = "GDP per Capita vs Life Expectancy",
       x = "GDP per Capita (log scale)",
       y = "Life Expectancy")

Descriptive Statistic

mean_lifeExp <- mean(gapminder$lifeExp)
mean_lifeExp

## [1] 59.47444

Phrase

print("I did it!")

## [1] "I did it!"

```markdown ## Descriptive Statistic

The mean life expectancy across all countries and years in the gapminder dataset is 59.4744394 years.