Treemap Activity

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)

data(gapminder)

gapminder_2007 <- gapminder %>% filter(year == 2007)

continent_pop <- gapminder_2007 %>% group_by(continent) %>% summarise(total_population = sum(population))

library(RColorBrewer)
treemap(continent_pop,
  index = "continent",
  vSize = "total_population",
  type = "index",
  title = "World Population by Continent in 2007"
)