Ggplot2 title padding? как настроить?

Кажется, что есть какая-то прокладка вокруг названия, которую я не могу понять, как изменить, какие-то мысли?

xy <- data.frame(x=1:10, y=10:1)
plot <- ggplot(data = xy)+ geom_point(aes(x = x, y = y))
plot <- plot + opts(plot.background = theme_rect(colour = 'purple', fill = 'pink', size = 3, linetype='dashed'))
plot
plot + opts(title = 'Graph Title')
plot

Если вы запустите это, держите листок бумаги на своем экране (старая школа, я знаю) в соответствии с верхней частью G и T от названия, а затем запустите сюжет еще раз, вы увидите, что у вас есть серый над вашей бумагой. Которое я могу только предположить, указывает на некоторую прокладку вокруг названия? Или аналогично, если вы запустите его без заголовка и держите бумагу (вверху) в соответствии с концом розового фона, затем запустите ее с заголовком, верхняя часть G и T будут ниже бумаги.

Пример по существу из https://github.com/hadley/ggplot2/wiki/Graph-Panel-Attributes

Это говорит о том, что существует опция высоты линии, но она ничего не делает http://www.inside-r.org/packages/cran/ggplot2/docs/theme_text

1 ответ

Итак, вот взлом:

p <- plot + opts(title = 'Graph Title')
p <- ggplot_gtable(ggplot_build(p))
p$heights[[2]] <- p$heights[[2]]-unit(0.5, "lines")
grid.draw(p)

Этот код удаляет дополнение.

Но я бы рекомендовал отправить запрос функции: https://github.com/hadley/ggplot2/issues?milestone=

licensed under cc by-sa 3.0 with attribution.