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 <- 3.5
+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
@@ -102,7 +102,7 @@ text(
   cex = 0.9
 )
 text(
-  0,
+  plot_left,
   n_phase - phase_axis + 1,
   labels = phase_labels,
   pos = 2,