demo/stem_leaf.R

In deandevl/RplotterPkg: R Plotting Functions Using ggplot2

library(data.table)
library(here)
library(magrittr)
library(aplpack)
library(RplotterPkg)

# ----------------------Women in Boston marathon---------------------
# read the Boston marathon ages/times for women
data_path <- file.path(here(), "demo", "data", "boston_marathon.txt")
marthon_dt <- data.table::fread(data_path) %>%
  na.omit(.)

# stem and leaf for marathon times of women across ages
marathon_times_lst <- list(
  "age_2a0" = marathon_dt[age == 20,]$time,
  "age_30" = marathon_dt[age == 30,]$time,
  "age_40" = marathon_dt[age == 40,]$time,
  "age_50" = marathon_dt[age == 50,]$time,
  "age_60" = marathon_dt[age == 60,]$time
)
# display stem and leaf of women times across ages
RplotterPkg::stem_leaf_display(
  x = marathon_times_lst,
  heading_color = "#FF5500"
)

# display again showing cumulative depth of leaves
RplotterPkg::stem_leaf_display(
  x = marathon_times_lst,
  depths = TRUE,
  col_width = 3,
  font_sz = 8,
  heading_color = "#FF5500"
)

# ----------------Heaviest fish caught-----------------------
# read the fish data
data_path <- file.path(here(), "demo", "data", "heaviest_fish.txt")
heaviest_fish_dt <- data.table::fread(data_path)

# display stem and leaf of women times across ages
# data has an outlier with value 563, so set max value to 155 to exclude it.
RplotterPkg::stem_leaf_display(
  x = list("fish_weight" = heaviest_fish_dt$Weight),
  unit = 1,
  m = 1,
  max_val = 155,
  outliers = TRUE,
  col_width = 6,
  heading_color = "#FF5500"
)