From ba8aff77a4c61bca57f1af29e33e32867383e8d6 Mon Sep 17 00:00:00 2001 From: Simon Date: Thu, 20 Aug 2026 20:21:18 +0100 Subject: [PATCH] Refine battleship column spacing --- Chapter_6.Rmd | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Chapter_6.Rmd b/Chapter_6.Rmd index b357bb5..6a0bc80 100644 --- a/Chapter_6.Rmd +++ b/Chapter_6.Rmd @@ -62,7 +62,7 @@ n_phase <- nrow(dt) phase_axis <- seq_len(n_phase) phase_labels <- rownames(dt) 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 plot_left <- series_center[3] - max_ship_width / 2 plot_right <- series_center[3] + max_ship_width / 2