Skip to contents

Draws the selected intermediate (stagnant) trajectory as a short spine on the left and fans out, from its handoff year, one curved link to every final trajectory its terminal cohort reached (the full destination split), each link's width scaled by the papers that landed there and labelled tr::cNgN (n). It answers, visually, "where did this trajectory go?" – not just the dominant absorber but the complete dispersion. Styling follows the other flow plots (plot_trajectory_lines_2d(), plot_trajectory_confluence()): a Set2/hue palette keyed by final group, a year-aware x-axis, and the shared year_range / axis_text_size / palette controls.

Usage

plot_trajectory_dispersion(
  destination,
  title = NULL,
  label_size = 4.5,
  year_range = NULL,
  axis_text_size = NULL,
  palette = NULL,
  min_n = 0
)

Arguments

destination

Output of sniff_trajectory_destination(). Uses its destination table (g_final, n) and source_info.

title

Plot title. Defaults to a source -> N finals summary.

label_size

Text size for the in-plot labels (default: 4.5).

year_range

Optional c(from, to) years fixing the time axis, as in plot_trajectory_lines_2d(). NULL (default) fits the drawn data; a wider range only extends the axis.

axis_text_size

Font size of the x-axis (year) tick labels; NULL (default) keeps the built-in size.

palette

Optional named colour vector overriding the default hues (keyed by final group cNgN). NULL (default) uses the package's Set2 (<= 8) / hue scheme.

min_n

Minimum papers a final must receive to be drawn (default 0, all impacted finals). Raise it to hide the long tail of tiny destinations.

Value

A ggplot object.

Examples

if (FALSE) { # \dontrun{
flow <- sniff_trajectory_braid(docs_per_group)
d <- sniff_trajectory_destination(flow, "tr1")
plot_trajectory_dispersion(d)
} # }