From 9dc0427f33edcaf5de63d5660cbaa753ceed6ab0 Mon Sep 17 00:00:00 2001
From: Simon <simon@elisya.org>
Date: Thu, 20 Aug 2026 20:05:35 +0100
Subject: [PATCH] Align battleships on shared coordinates

---
 Chapter_6.Rmd | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/Chapter_6.Rmd b/Chapter_6.Rmd
index 9716609..99d7b4c 100644
--- a/Chapter_6.Rmd
+++ b/Chapter_6.Rmd
@@ -61,11 +61,11 @@ series_col <- ncol(dt)
 n_phase <- nrow(dt)
 phase_axis <- seq_len(n_phase)
 phase_labels <- rownames(dt)
-series_max <- apply(dt, 2, max)
-ship_gap <- max(dt) * 0.08
-series_left <- c(0, cumsum(series_max[-series_col] + ship_gap))
-series_center <- series_left + series_max / 2
-plot_right <- series_left[series_col] + series_max[series_col]
+series_center <- seq_len(series_col)
+max_ship_width <- 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
 
 par(las = 1, bty = "n", mar = c(1, 7, 3, 1), xpd = NA)
 plot(
@@ -81,7 +81,7 @@ for (s in seq_len(series_col)) {
   for (r in phase_axis) {
     chip_bottom <- (n_phase - r) + 0.55
     chip_top <- (n_phase - r) + 1.45
-    chip_width <- dt[r, s]
+    chip_width <- ship_widths[r, s]
 
     rect(
       series_center[s] - chip_width / 2,
@@ -102,7 +102,7 @@ text(
   cex = 0.9
 )
 text(
-  0,
+  plot_left,
   n_phase - phase_axis + 1,
   labels = phase_labels,
   pos = 2,