Я хотел бы добавить подтекст (textGrob
) к grid
Viewport
-- возможно ли это?
Я понял, как добавить подтекст к одной диаграмме:
require(ggplot2)
require(gridExtra)
# make the data
timeSeries <- data.frame(date = seq(as.Date("2001-01-01"), as.Date("2012-01-01"), by = "mon"),
value = 1:133 + rnorm(133, 0, 10)
)
# make the ggplots
gpLine <- ggplot(timeSeries, aes(x = date, y = value)) +
geom_line()
gpBar <- ggplot(timeSeries, aes(x = date, y = value)) +
geom_bar(stat = 'identity')
# ggplot + subtext
grid.arrange(gpBar, sub = textGrob("why is this at the bottom?"))
... И я могу склеить две диаграммы, используя grid
Viewport
# two plots, one view
vplayout <- function(x,y) viewport(layout.pos.row = x, layout.pos.col = y)
pushViewport(viewport(layout = grid.layout(3,1)))
print(gpLine, vp = vplayout(1:2, 1))
print(gpBar, vp = vplayout(3, 1))
... но я не могу понять, как добавить текст в нижнюю часть полученного окна просмотра.
Grid
настолько завершен, я уверен, что должен быть способ, но он скрыт от меня.