Hot Ones, a renowned American YouTube talk show, was conceived by Chris Schonberger and is expertly hosted by Sean Evans. The show is a production of First We Feast and Complex Media. At its core, Hot Ones orchestrates engaging interviews with celebrities, set against the backdrop of a progressively spicier array of chicken wings. This intriguing premise has birthed various offshoots, including Hot Ones: The Game Show on TruTV, a cable television network, as well as Truth or Dab, an inventive truth or dare-style contest featured on the First We Feast YouTube channel.

Inspired by the captivating world of Hot Ones, I embarked on an exploration into the Heat Levels of Hot Sauces using illuminating boxplots.

Loading packages, data, fonts and difining colors

library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.2     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.2     ✔ tibble    3.2.1
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.1     
## ── 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(showtext)
## Lade nötiges Paket: sysfonts
## Lade nötiges Paket: showtextdb
library(glue)
library(ggtext)
library(magick)
## Linking to ImageMagick 6.9.12.3
## Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fontconfig, x11
library(grid)
library(tidytuesdayR)

tuesdata <- tidytuesdayR::tt_load(2023, week = 32)
## --- Compiling #TidyTuesday Information for 2023-08-08 ----
## --- There are 3 files available ---
## --- Starting Download ---
## 
## 	Downloading file 1 of 3: `episodes.csv`
## 	Downloading file 2 of 3: `sauces.csv`
## 	Downloading file 3 of 3: `seasons.csv`
## --- Download complete ---
sauces <- tuesdata$sauces

# fonts and colors
font_add('fa-reg', 'c:/Users/info/OneDrive/Dokumente/fonts/Font Awesome 6 Free-Regular-400.otf')
font_add('fa-brands', 'c:/Users/info/OneDrive/Dokumente/fonts/Font Awesome 6 Brands-Regular-400.otf')
font_add('fa-solid', 'c:/Users/info/OneDrive/Dokumente/fonts/Font Awesome 6 Free-Solid-900.otf')
font_add_google("Permanent Marker", "pm")
showtext_auto()
col <- c("#F9CC17","#DD3E37","black")
col1 <- col[1]
col2 <- col[2]
bg <- col[3]

# text creation
twitter <- glue("<span style='color:{col1};font-family:fa-brands;'>&#xf099;</span>")
mastodon <- glue("<span style='color:{col1};font-family:fa-brands;'>&#xf4f6;</span>")
link <- glue("<span style='color:{col1};font-family:fa-solid;'>&#xf0c1;</span>")
data <- glue("<span style='color:{col1};font-family:fa-solid;'>&#xf1c0;</span>")
hash <- glue("<span style='color:{col1};font-family:fa-solid;'>&#x23;</span>")
space <- glue("<span style='color:{bg}'>-</span>")
space2 <- glue("<span style='color:{bg}'>--</span>") # can't believe I'm doing this

t <- "Heat Levels of Hot Sauces: A Tasty Data Exploration" # title
s <- "Tidy Tuesday 2023 | Week 32 | Hot One's" # subtitle
cap <- glue("{twitter}{space2}@web_design_fh{space2} # caption
	{space2}{mastodon}{space2}@frankhaenel @fosstodon.org{space2}
	{space2}{link}{space}{space2}www.frankhaenel.de<br>
	{data}{space2}wikipedia.org{space2}|
	{space2}{hash}{space2}tidytuesday")

Plot

        sauces %>% ggplot(aes(x=as.factor(season), y=log(scoville))) +
                geom_boxplot(color=col2,fill=col1,outlier.color = bg) +
                geom_jitter(shape=16, position=position_jitter(0.2), color=col2) +
        theme_bw() +
        theme(
                axis.line = element_line(color = col2),
                axis.line.x.top = element_line(color = bg),
                axis.line.y.right = element_line(color = bg),
                axis.title = element_text(color = col2,family = "pm"),
                axis.text = element_text(color = col1,family = "pm"),
                panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
                panel.background = element_rect(fill=bg),
                plot.background = element_rect(fill=bg),
                plot.title = element_text(color = col1,family = "pm"),
                plot.subtitle = element_text(color = col2,family = "pm"),
                plot.caption = element_markdown(color = col2,hjust = 0, lineheight = 1.3),
                plot.margin = margin(t = 40,  # Top margin
                             r = 10,  # Right margin
                             b = 10,  # Bottom margin
                             l = 10)) +
        labs(
        title = t,
        subtitle = s,
        caption = cap,
        x = "Season",
        y = "Logarithm of Scoville Heat Units"
        )
        logo <- image_read("C:/Users/info/OneDrive/Dokumente/632-6321331_hot-ones-logo-transparent-hd-png-download.png")
        grid::grid.raster(logo, x = 0.99, y = 0.99, just = c('right', 'top'), width = unit(1, 'inches'))
Boxplot depicting the heat levels of various hot sauces. The x-axis represents different seasons, while the y-axis displays the logarithm of Scoville Heat Units. The plot showcases the progression of spiciness across the seasons. A logo of Hot Ones is positioned at the top-right corner, adding visual context to the analysis.