Bryan Chillogalli

Treemap activity Dropbox assignment

10/5/26

load the packages

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.2.1     ✔ readr     2.2.0
✔ forcats   1.0.1     ✔ stringr   1.6.0
✔ ggplot2   4.0.3     ✔ tibble    3.3.1
✔ lubridate 1.9.5     ✔ tidyr     1.3.2
✔ purrr     1.2.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(dslabs)

library(treemap)

takes the gapminder dataset and saves the result as population_2007. The %>% passes the data through each step: keep only 2007 rows, group them by continent, then add up each continent’s population.

population_2007 <- gapminder %>%
  filter(year == 2007) %>%
  group_by(continent) %>%
  summarise(total_population = sum(population, na.rm = TRUE), .groups = "drop")

call the data to check it

population_2007

# A tibble: 5 × 2
  continent total_population
  <fct>                <dbl>
1 Africa           948156290
2 Americas         911419886
3 Asia            3911346015
4 Europe           730984863
5 Oceania           34130212

use population_2007 to draw the chart. to do so give each continent its own rectangle, then change the sizes of each rectangle according to total population, and then add the title “World Population by Continent in 2007.”

treemap(
  population_2007,
  index = "continent",
  vSize = "total_population",
  title = "World Population by Continent in 2007"
)