Compare commits
No commits in common. "ba8aff77a4c61bca57f1af29e33e32867383e8d6" and "9dc0427f33edcaf5de63d5660cbaa753ceed6ab0" have entirely different histories.
ba8aff77a4
...
9dc0427f33
1 changed files with 2 additions and 2 deletions
|
|
@ -62,7 +62,7 @@ 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_center <- seq_len(series_col)
|
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
|
ship_widths <- as.matrix(dt) / max(dt[, "Corrugated"]) * max_ship_width
|
||||||
plot_left <- series_center[3] - max_ship_width / 2
|
plot_left <- series_center[3] - max_ship_width / 2
|
||||||
plot_right <- series_center[3] + max_ship_width / 2
|
plot_right <- series_center[3] + max_ship_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,
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue