Мне хотелось бы двух отдельных сюжетов. Я использую их в разных кадрах представления лучей, и я добавлю одну строку в другую (в конце концов, а не в примере ниже). Таким образом, я не хочу, чтобы презентация "пропускала" ( "прыгать"?) С одного слайда на следующий слайд. Я бы хотел, чтобы это выглядело так, что линия добавляется естественным образом. Следующий код, на мой взгляд, показывает проблему. Это тонкий, но не тот, как участок участка второго участка немного больше, чем на первом участке. Это происходит из-за метки оси y.
library(ggplot2)
dfr1 <- data.frame(
time = 1:10,
value = runif(10)
)
dfr2 <- data.frame(
time = 1:10,
value = runif(10, 1000, 1001)
)
p1 <- ggplot(dfr1, aes(time, value)) + geom_line() + scale_y_continuous(breaks = NULL) + scale_x_continuous(breaks = NULL) + ylab(expression(hat(z)==hat(gamma)[1]*time+hat(gamma)[4]*time^2))
print(p1)
dev.new()
p2 <- ggplot(dfr2, aes(time, value)) + geom_line() + scale_y_continuous(breaks = NULL) + scale_x_continuous(breaks = NULL) + ylab(".")
print(p2)
Я бы предпочел, чтобы у вас не было такого хакерского решения, как установка размера метки оси вручную или добавление пробелов по оси x (см. одну ссылку ниже), потому что я буду использовать эту технику в нескольких настройках, а метки могут изменение в любое время (я люблю воспроизводимость, поэтому хочу гибкое решение).
Я много искал и нашел следующее:
Указание ширины панели ggplot2
Как сделать графики согласованной ширины в ggplot (с легендами)?
https://groups.google.com/forum/#!topic/ggplot2/2MNoYtX8EEY
Как добавить ярлыки оси Y переменной размера в R с помощью ggplot2 без изменения ширины графика?
Они не работают для меня, главным образом потому, что мне нужны отдельные сюжеты, поэтому не обязательно выравнивать их по одному совместному сюжету, как в некоторых из вышеперечисленных решений.