Выравнивание заголовка, субтитров и заголовков для горизонтальной панели ggplot

Я хотел бы оставить выравнивание plot.title, plot.subtitle и plot.caption в горизонтальном ggplot2 barchart.

Пример:

library("ggplot2") # ggplot2 2.2
df <- data.frame(type=factor(c("Brooklyn",
                               "Manhatten and\n Queens")),
                 value=c(15,30))

# manual hjust for title, subtitle & caption
myhjust <- -0.2

ggplot(df,
       aes(x=type, y=value)) +
  geom_bar(stat='identity') +
  coord_flip() +
  labs(
    title = "This is a nice title",
    subtitle = "A subtitle",
    caption  = "We even have a caption. A very long one indeed.") +
  theme(axis.title=element_blank(),
        plot.title=element_text(hjust = myhjust),
        plot.subtitle=element_text(hjust = myhjust ),
        plot.caption=element_text(hjust = myhjust))

Как я могу выровнять все элементы 3 labs (plot.title, plot.subtitle и plot.caption), где начинается axis.text (красная вертикальная линия, "М" Манхэттена)?

Кроме того: почему фиксированный myhjust приводит к 3 различным горизонтальным позициям для plot.title, plot.subtitle и plot.caption?

Проблема

Ответы

Ответ 1

Этот вопрос относится к этой проблеме с github tidyverse/ggplot2: https://github.com/tidyverse/ggplot2/issues/3252

И это реализовано в ggplot2 (версия для разработчиков): https://github.com/tidyverse/ggplot2/blob/15263f7580d6b5100989f7c1da5d2f5255e480f9/NEWS.md

Темы получили два новых параметра, plot.title.position и plot.caption.position, которые можно использовать для настройки расположения заголовка/субтитра и заголовка графика относительно общего графика (@clauswilke, # 3252).

Чтобы следовать вашему примеру в качестве представителя:

# First install the development version from GitHub:
#install.packages("devtools") #If required
#devtools::install_github("tidyverse/ggplot2")

library(ggplot2)
packageVersion("ggplot2")
#> [1] '3.2.1.9000'

df <- data.frame(type=factor(c("Brooklyn","Manhatten and\n Queens")),
                 value=c(15,30))

ggplot(df, aes(x=type, y=value)) +
  geom_bar(stat='identity') +
  coord_flip() +
  labs(title = "This is a nice title",
       subtitle = "A subtitle",
       caption  = "We even have a caption. A very long one indeed.") +
  theme(plot.caption = element_text(hjust = 0, face= "italic"), #Default is hjust=1
        plot.title.position = "plot", #NEW parameter. Apply for subtitle too.
        plot.caption.position =  "plot") #NEW parameter

Created on 2019-09-04 by the reprex package (v0.3.0)

Ответ 2

Пока вы можете редактировать эти три гна, вы также можете просто:

library(gridExtra)
library(grid)

grid.arrange(
  textGrob("This is a nice title", 
           gp=gpar(fontsize=16, col="#2b2b2b"), 
           x=unit(0.005, "npc"), just=c("left", "bottom")),
  textGrob("A subtitle",  
           gp=gpar(fontsize=12, col="#2b2b2b"), 
           x=unit(0.005, "npc"), just=c("left", "bottom")),
  ggplot(df, aes(x=type, y=value)) +
    geom_bar(stat='identity') +
    coord_flip() +
    theme(axis.title=element_blank()),
  textGrob("We even have a caption. A very long one indeed.", 
           gp=gpar(fontsize=9, col="#2b2b2b"), 
           x=unit(0.005, "npc"), just=c("left", "bottom")),
  ncol=1,
  heights=c(0.075, 0.025, 0.85, 0.05)
)

Сделайте для него обертку, поместите ее в личный pkg. Boom. Готово.

library(ggplot2)
library(gridExtra)
library(grid)

df <- data.frame(type=factor(c("Brooklyn","Manhatten and\n Queens")), value=c(15,30))

ggplot(df, aes(x=type, y=value)) +
  geom_bar(stat='identity') +
  coord_flip() +
  theme(axis.title=element_blank()) +
  theme(plot.margin=margin(l=0, t=5, b=5))-> gg

flush_plot <- function(x, title, subtitle, caption) {
  tg <- function(label, ...) {
    textGrob(label,  x=unit(0, "npc"), just=c("left", "bottom"),
             gp=do.call(gpar, as.list(substitute(list(...)))[-1L])) }
  grid.arrange(
    tg(title, fontsize=16, col="#2b2b2b"),
    tg(subtitle, fontsize=12, col="#2b2b2b"), x,
    tg(caption, fontsize=9, col="#2b2b2b"),
    ncol=1, heights=c(0.075, 0.025, 0.85, 0.05)
  )
}

flush_plot(gg, "This is a nice title", "A subtitle", 
           "We even have a caption. A very long one indeed.")