Align battleships on shared coordinates #3
1 changed files with 1 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue