Simon/EACompanion
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Align battleships on shared coordinates #3

Merged
Simon merged 7 commits from chapter-update into main 2026-08-21 08:09:22 +00:00
Conversation 0 Commits 7 Files changed 1 +7 -7
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 9dc0427f33 - Show all commits

14
Chapter_6.Rmd
View file

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