Căn chỉnh tiêu đề, tiêu đề phụ và chú thích cho thanh ngang ggplot

Question

Tôi muốn căn chỉnh plot.title, plot.subtitle và plot.caption trong thanh công cụ ggplot2 nằm ngang.

Ví dụ:

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)) 

Làm thế nào tôi có thể sắp xếp tất cả 3 yếu tố labs (plot.title, plot.subtitle và plot.caption) đến nơi axis.text bắt đầu (đỏ đường thẳng đứng, "M" của Manhattan)?

Ngoài ra: Tại sao kết quả myhjust cố định ở 3 vị trí ngang khác nhau cho plot.title, plot.subtitle và plot.caption?

Answer 1

Trong khi bạn có thể chỉnh sửa những ba grobs, bạn cũng có thể chỉ:

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) 
) 

Thực hiện một wrapper cho nó, đặt nó trong một pkg cá nhân. Boom. Làm xong.

---

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.")