Assignemnt 3: Pictogram Slides

library(tidyverse)

mapping <- tibble(
  Data_Type = c(
    "Category (nominal)",
    "Ordered category (ordinal)",
    "Quantity (numeric)",
    "Scale choice (design decision)",
    "Meaning / context (semantic)",
    "Optional emphasis"
  ),
  Chart_Aesthetic = c(
    "Row/column placement (y or x)",
    "Row order (top-to-bottom time order)",
    "Number of icons",
    "1 icon = fixed unit (ex: 10 million)",
    "Icon symbol (📱 = iPhones)",
    "Color / annotation / labels"
  )
)

mapping

iphone <- tibble(
  year = c("2007", "2010", "2015", "2020", "2023"),
  units_millions = c(1.3, 39.9, 231, 189, 223) # <-- replace with 10-K values
)

iphone_icons <- iphone |>
  mutate(n_icons = round(units_millions / 10)) |>
  uncount(n_icons) |>
  group_by(year) |>
  mutate(x = row_number())

ggplot(iphone_icons, aes(x = x, y = year)) +
  geom_text(label = "📱", size = 8) +
  labs(
    title = "iPhone Sales (Unit Sales, Apple 10-K)",
    subtitle = "Each 📱 ≈ 10 million iPhones sold"
  ) +
  theme_minimal(base_size = 16) +
  theme(
    panel.grid = element_blank(),
    axis.title = element_blank(),
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank()
  )