---
title: "Style specialists: who owns the salsa, cha-cha, and paso?"
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.** Derek Hough leads residuals on Salsa (+1.575); Derek Hough leads paso (+0.903).

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

## Charts

```{r}
#| label: 18_latin_vs_smooth
#| fig-cap: "18_latin_vs_smooth"
#| echo: false
# Rebuild chart with ggplot2 from bundled CSVs / story data.csv
story_dir <- file.path(root, "public/downloads/stories", "18_style_specialists")
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", "18_latin_vs_smooth.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 = "18_latin_vs_smooth", 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 = "18_latin_vs_smooth") + theme_dwts()
  }
}
save_both(p, "18_latin_vs_smooth")
p
```

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


```{r}
#| label: 18_paso
#| fig-cap: "18_paso"
#| echo: false
# Rebuild chart with ggplot2 from bundled CSVs / story data.csv
story_dir <- file.path(root, "public/downloads/stories", "18_style_specialists")
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", "18_paso.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 = "18_paso", 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 = "18_paso") + theme_dwts()
  }
}
save_both(p, "18_paso")
p
```

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


```{r}
#| label: 18_specialists
#| fig-cap: "18_specialists"
#| echo: false
# Rebuild chart with ggplot2 from bundled CSVs / story data.csv
story_dir <- file.path(root, "public/downloads/stories", "18_style_specialists")
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", "18_specialists.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 = "18_specialists", 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 = "18_specialists") + theme_dwts()
  }
}
save_both(p, "18_specialists")
p
```

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


## Data

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

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