Ranked Choice Voting in the 2025 Santa Fe Mayoral Race

rcv_long <- rcv_data |>
  tidyr::pivot_longer(
    cols = -candidate,
    names_to = c("round", ".value"),
    names_pattern = "round(\\d+)_(.*)"
  ) |>
  mutate(round = as.integer(round))

max_round <- max(rcv_long$round, na.rm = TRUE)

candidate_order <- rcv_data |>
  arrange(desc(round1_votes)) |>
  pull(candidate)

links_df <- purrr::map_dfr(seq_len(max_round - 1), function(r) {
  curr <- filter(rcv_long, round == r, votes > 0)
  nxt  <- filter(rcv_long, round == r + 1, votes > 0)
  eliminated <- setdiff(curr$candidate, nxt$candidate)

  bind_rows(
    # maintained votes
    curr |>
      filter(!candidate %in% eliminated) |>
      transmute(source = paste0(candidate, "_R", r),
                target = paste0(candidate, "_R", r + 1),
                value  = votes),
    # transfers — read directly from the transfer column
    nxt |>
      filter(transfer > 0) |>
      transmute(source = paste0(eliminated[1], "_R", r),
                target = paste0(candidate, "_R", r + 1),
                value  = transfer)
  )
})

nodes_df <- data.frame(name = unique(c(links_df$source, links_df$target))) |>
  mutate(candidate = gsub("_R\\d+$", "", name),
         round_num = as.integer(gsub(".*_R", "", name))) |>
  arrange(match(candidate, candidate_order), round_num)

links_df <- links_df |>
  mutate(IDsource = match(source, nodes_df$name) - 1,
         IDtarget = match(target, nodes_df$name) - 1)

color_domain   <- paste0('"', candidate_order, '"', collapse = ",")
color_range    <- paste0('"', candidate_colors[candidate_order], '"', collapse = ",")
color_scale_js <- paste0("d3.scaleOrdinal().domain([", color_domain, "]).range([", color_range, "])")

p <- networkD3::sankeyNetwork(
  Links = links_df,
  Nodes = nodes_df,
  Source = "IDsource",
  Target = "IDtarget",
  Value = "value",
  NodeID = "name",
  NodeGroup = "candidate",
  colourScale = htmlwidgets::JS(color_scale_js),
  sinksRight = TRUE,
  iterations = 0,
  fontSize = 12,
  nodeWidth = 25,
  width = 1200,
  height = 900
)

# Clean labels and make fully responsive
p <- htmlwidgets::onRender(p, '
function(el, x) {
  // Clean labels
  d3.select(el).selectAll(".node text").text(function(d) {
    if (d.name.endsWith("_R1")) {
      var name = d.name.replace(/_R1$/, "");
      var parts = name.trim().split(" ");
      return parts[parts.length - 1].toUpperCase();
    }
    return "";
  });
  
  // Get container and SVG - set to 100% immediately
  var container = el.closest(".html-widget-container") || el.parentElement;
  if (container) {
    container.style.width = "100%";
    container.style.maxWidth = "100%";
  }
  el.style.width = "100%";
  
  var svg = d3.select(el).select("svg");
  if (svg.empty()) return;
  
  // Function to update size - use 100% of container
  function updateSize() {
    // Get the width of the post content container
    var postContent = document.querySelector(".post-content") || 
                     document.querySelector(".container") ||
                     document.querySelector(".site-main") ||
                     document.body;
    var containerWidth = postContent.offsetWidth || window.innerWidth;
    
    // Also check the html-widget-container directly
    if (container && container.offsetWidth > 0) {
      containerWidth = Math.max(containerWidth, container.offsetWidth);
    }
    
    if (containerWidth > 0) {
      // Get aspect ratio from current SVG or use default
      var currentWidth = parseInt(svg.attr("width")) || containerWidth;
      var currentHeight = parseInt(svg.attr("height")) || 500;
      var aspectRatio = currentHeight / currentWidth;
      
      // Use full container width
      var newWidth = containerWidth;
      var newHeight = newWidth * aspectRatio;
      
      svg.attr("width", newWidth)
         .attr("height", newHeight);
      
      // Update the widget element size
      el.style.width = "100%";
      el.style.height = newHeight + "px";
    }
  }
  
  // Initial size update
  setTimeout(updateSize, 100);
  
  // Use ResizeObserver for better resize detection
  if (window.ResizeObserver) {
    var targetContainer = container || el.parentElement || document.body;
    var resizeObserver = new ResizeObserver(function(entries) {
      updateSize();
    });
    resizeObserver.observe(targetContainer);
  } else {
    // Fallback to window resize
    var resizeTimer;
    window.addEventListener("resize", function() {
      clearTimeout(resizeTimer);
      resizeTimer = setTimeout(updateSize, 100);
    });
  }
}
')
p