---
title: "Disney Night & theme-night boosts"
subtitle: "Data with the Stars · An Artometrics project"
date: 2026-11-03
format:
  html:
    toc: true
    embed-resources: true
    theme: cosmo
  pdf:
    documentclass: article
    geometry: margin=1in
execute:
  echo: false
  warning: false
  message: false
---

**Finding.** Finals +0.73 vs own season mean; Disney +0.12; Latin Night -0.42; premieres -1.02.

```{r}
#| label: setup
#| include: false
source("R/_setup.R")
```

## Charts

```{r}
#| label: 11_disney_hist
#| fig-cap: "11_disney_hist"
#| echo: false
# Rebuild chart with ggplot2 from bundled CSVs / story data.csv
story_dir <- file.path(root, "public/downloads/stories", "11_theme_night_boosts")
df <- read_csv(file.path(story_dir, "data.csv"), show_col_types = FALSE)
# Prefer a pre-defined plot expression file if present; else smart default
plot_r <- file.path(root, "reports/qmd/R/plots", "11_disney_hist.R")
if (file.exists(plot_r)) {
  source(plot_r, local = TRUE)
  # expects object `p`
} else {
  # Default: if typical named mean columns, bar them
  num_cols <- names(df)[sapply(df, is.numeric)]
  chr_cols <- names(df)[sapply(df, function(z) is.character(z) || is.factor(z))]
  ycol <- intersect(c("mean","wins","delta","boost","composite","accuracy","n","perfects","share","lift","pro_mean","resid","streak","guest_mean","field_mean","pts"), num_cols)
  ycol <- if (length(ycol)) ycol[[1]] else num_cols[[1]]
  xcol <- intersect(c("dance_style","pro","celebrity","judge","bucket","theme_key","hometown_state","checkpoint","label","song","professional","role","era","bin","metric"), chr_cols)
  xcol <- if (length(xcol)) xcol[[1]] else if (length(chr_cols)) chr_cols[[1]] else NULL
  if (!is.null(xcol)) {
    dd <- df
    if (nrow(dd) > 20) dd <- dd[1:20,]
    dd[[xcol]] <- as.character(dd[[xcol]])
    dd <- dd[!duplicated(dd[[xcol]]), , drop = FALSE]
    dd[[xcol]] <- factor(dd[[xcol]], levels = rev(unique(dd[[xcol]])))
    p <- ggplot(dd, aes(.data[[ycol]], .data[[xcol]], fill = .data[[ycol]])) +
      geom_col() + scale_fill_gradient(low = "#A8DADC", high = "#6B4CE6") +
      labs(title = "11_disney_hist", x = ycol, y = NULL) + theme_dwts() + theme(legend.position = "none")
  } else {
    p <- ggplot(df, aes(.data[[num_cols[[1]]]])) + geom_histogram(bins = 30, fill = "#6B4CE6", color = "white") +
      labs(title = "11_disney_hist") + theme_dwts()
  }
}
save_both(p, "11_disney_hist")
p
```

[PNG](charts/11_disney_hist.png){download="11_disney_hist.png"} · [SVG](charts/11_disney_hist.svg){download="11_disney_hist.svg"}


```{r}
#| label: 11_theme_boost
#| fig-cap: "11_theme_boost"
#| echo: false
# Rebuild chart with ggplot2 from bundled CSVs / story data.csv
story_dir <- file.path(root, "public/downloads/stories", "11_theme_night_boosts")
df <- read_csv(file.path(story_dir, "data.csv"), show_col_types = FALSE)
# Prefer a pre-defined plot expression file if present; else smart default
plot_r <- file.path(root, "reports/qmd/R/plots", "11_theme_boost.R")
if (file.exists(plot_r)) {
  source(plot_r, local = TRUE)
  # expects object `p`
} else {
  # Default: if typical named mean columns, bar them
  num_cols <- names(df)[sapply(df, is.numeric)]
  chr_cols <- names(df)[sapply(df, function(z) is.character(z) || is.factor(z))]
  ycol <- intersect(c("mean","wins","delta","boost","composite","accuracy","n","perfects","share","lift","pro_mean","resid","streak","guest_mean","field_mean","pts"), num_cols)
  ycol <- if (length(ycol)) ycol[[1]] else num_cols[[1]]
  xcol <- intersect(c("dance_style","pro","celebrity","judge","bucket","theme_key","hometown_state","checkpoint","label","song","professional","role","era","bin","metric"), chr_cols)
  xcol <- if (length(xcol)) xcol[[1]] else if (length(chr_cols)) chr_cols[[1]] else NULL
  if (!is.null(xcol)) {
    dd <- df
    if (nrow(dd) > 20) dd <- dd[1:20,]
    dd[[xcol]] <- as.character(dd[[xcol]])
    dd <- dd[!duplicated(dd[[xcol]]), , drop = FALSE]
    dd[[xcol]] <- factor(dd[[xcol]], levels = rev(unique(dd[[xcol]])))
    p <- ggplot(dd, aes(.data[[ycol]], .data[[xcol]], fill = .data[[ycol]])) +
      geom_col() + scale_fill_gradient(low = "#A8DADC", high = "#6B4CE6") +
      labs(title = "11_theme_boost", x = ycol, y = NULL) + theme_dwts() + theme(legend.position = "none")
  } else {
    p <- ggplot(df, aes(.data[[num_cols[[1]]]])) + geom_histogram(bins = 30, fill = "#6B4CE6", color = "white") +
      labs(title = "11_theme_boost") + theme_dwts()
  }
}
save_both(p, "11_theme_boost")
p
```

[PNG](charts/11_theme_boost.png){download="11_theme_boost.png"} · [SVG](charts/11_theme_boost.svg){download="11_theme_boost.svg"}


```{r}
#| label: 11_theme_means
#| fig-cap: "11_theme_means"
#| echo: false
# Rebuild chart with ggplot2 from bundled CSVs / story data.csv
story_dir <- file.path(root, "public/downloads/stories", "11_theme_night_boosts")
df <- read_csv(file.path(story_dir, "data.csv"), show_col_types = FALSE)
# Prefer a pre-defined plot expression file if present; else smart default
plot_r <- file.path(root, "reports/qmd/R/plots", "11_theme_means.R")
if (file.exists(plot_r)) {
  source(plot_r, local = TRUE)
  # expects object `p`
} else {
  # Default: if typical named mean columns, bar them
  num_cols <- names(df)[sapply(df, is.numeric)]
  chr_cols <- names(df)[sapply(df, function(z) is.character(z) || is.factor(z))]
  ycol <- intersect(c("mean","wins","delta","boost","composite","accuracy","n","perfects","share","lift","pro_mean","resid","streak","guest_mean","field_mean","pts"), num_cols)
  ycol <- if (length(ycol)) ycol[[1]] else num_cols[[1]]
  xcol <- intersect(c("dance_style","pro","celebrity","judge","bucket","theme_key","hometown_state","checkpoint","label","song","professional","role","era","bin","metric"), chr_cols)
  xcol <- if (length(xcol)) xcol[[1]] else if (length(chr_cols)) chr_cols[[1]] else NULL
  if (!is.null(xcol)) {
    dd <- df
    if (nrow(dd) > 20) dd <- dd[1:20,]
    dd[[xcol]] <- as.character(dd[[xcol]])
    dd <- dd[!duplicated(dd[[xcol]]), , drop = FALSE]
    dd[[xcol]] <- factor(dd[[xcol]], levels = rev(unique(dd[[xcol]])))
    p <- ggplot(dd, aes(.data[[ycol]], .data[[xcol]], fill = .data[[ycol]])) +
      geom_col() + scale_fill_gradient(low = "#A8DADC", high = "#6B4CE6") +
      labs(title = "11_theme_means", x = ycol, y = NULL) + theme_dwts() + theme(legend.position = "none")
  } else {
    p <- ggplot(df, aes(.data[[num_cols[[1]]]])) + geom_histogram(bins = 30, fill = "#6B4CE6", color = "white") +
      labs(title = "11_theme_means") + theme_dwts()
  }
}
save_both(p, "11_theme_means")
p
```

[PNG](charts/11_theme_means.png){download="11_theme_means.png"} · [SVG](charts/11_theme_means.svg){download="11_theme_means.svg"}


## Data

Analysis CSV: [data.csv](../../public/downloads/stories/11_theme_night_boosts/data.csv){download="11_theme_night_boosts-data.csv"}

Source tables: `performances.csv`, `scores.csv`, `contestants.csv`, `seasons.csv` under `/downloads/`.