Michelson's speed of light as a frequency polygon

<script lang="ts">
  import {
    GeomFreqpoly,
    GeomRule,
    GGPlot,
    Labs,
    ThemeFivethirtyeight,
  } from "@ggsvelte/svelte";

  import { michelson } from "./data.js";
</script>

<GGPlot data={michelson} aes={{ x: "velocity" }} width={640} height={400}>
  <ThemeFivethirtyeight />
  <Labs
    title="Michelson measures the speed of light, 1879"
    subtitle="Frequency polygon through bin centers — same data as the histogram"
    x="Velocity (km/s − 299,000)"
    y="Runs"
  />
  <GeomFreqpoly binwidth={40} linewidth={1.4} />
  <GeomRule
    xintercept={734.5}
    linewidth={1.2}
    aes={{ color: { value: "#d14d41" } }}
  />
</GGPlot>