Align battleships on shared coordinates #3

Merged
Simon merged 7 commits from chapter-update into main 2026-08-21 08:09:22 +00:00
Showing only changes of commit ba8aff77a4 - Show all commits

View file

@ -62,7 +62,7 @@ n_phase <- nrow(dt)
phase_axis <- seq_len(n_phase) phase_axis <- seq_len(n_phase)
phase_labels <- rownames(dt) phase_labels <- rownames(dt)
series_center <- seq_len(series_col) series_center <- seq_len(series_col)
max_ship_width <- 5 max_ship_width <- 3.5
ship_widths <- as.matrix(dt) / max(dt[, "Corrugated"]) * max_ship_width ship_widths <- as.matrix(dt) / max(dt[, "Corrugated"]) * max_ship_width
plot_left <- series_center[3] - max_ship_width / 2 plot_left <- series_center[3] - max_ship_width / 2
plot_right <- series_center[3] + max_ship_width / 2 plot_right <- series_center[3] + max_ship_width / 2