Cowplot plot_grid (): Tiêu đề trong cốt truyện

Aug 26 2020

Tôi đang cố gắng đưa tiêu đề vào một biểu đồ lắp ráp được xây dựng bằng cách sử dụng plot_grid(). Tôi đã thử cả giải pháp được đề xuất trong cowplothướng dẫn tham khảo tại đây bởi @Claus Wilke và giải pháp được đề xuất ở đây như một phần của chính các câu hỏi (trích xuất tiêu đề từ một ggplotđối tượng trống ).

Trong cả hai trường hợp, tôi có thể xây dựng một đối tượng với tiêu đề một mình. Tuy nhiên, khi tôi cố gắng đưa nó vào biểu đồ một cột cùng với hai đối tượng khác, một điều kỳ lạ đã xảy ra. Nếu tôi cố gắng đưa nó lên trên cùng (ví dụ: chỉ định plot_grid()tham số rel_heights(0.1,1,0.5), tương tự như những gì liên kết đầu tiên tôi đã đăng ở trên đề xuất, đầu ra chỉ bao gồm một số khoảng trống. Ngược lại, nếu tôi cố gắng đảo ngược thứ tự của các ô (tức là bao gồm tiêu đề bên dưới các ô chính), đầu ra chính xác như nó phải có, và tiêu đề được vẽ bên dưới các ô.

Bất kỳ ý tưởng cho lý do tại sao điều này xảy ra? thiết lập của tôi không khác biệt đáng kể so với các ví dụ được thực hiện trong tài liệu tham khảo mà tôi đã đưa vào, ngoại trừ hướng của biểu đồ chính (được đánh lưới dưới dạng một cột duy nhất chứ không phải trong một hàng)

MÃ CỦA TÔI


# Building the main plots

# ----------
# Upper plot
# ----------

plot.new() ## clean up device

par(mar = c(2, 4, 2, 4), 
    mfrow=c(1,1))

plot(x = range(dato_reg$date[dato_reg$reg == 'ECA']), y = range(dato_reg$sector_any_food_l[dato_reg$sub_reg == 'ECA: W. Eur. and Balcans']), 
     type ="n", 
     ylab = "Number of Measures",
     #main = "Western Europe and Balcans", sub = "Food", xlab = "",
     #col = "blue", 
     bty = "n",
     xaxs="i",
     yaxs="i",
     xaxt = "n",
     cex.axis = 0.9,
     cex.lab = 0.8,
     cex.main = 0.9,
     fg = 'grey')
lines(x = dato_reg$date[dato_reg$sub_reg == 'ECA: W. Eur. and Balcans'], y = dato_reg$sector_any_food_l[dato_reg$sub_reg == 'ECA: W. Eur. and Balcans'], col = "darkgreen")
lines(x = dato_reg$date[dato_reg$sub_reg == 'ECA: W. Eur. and Balcans'], y = dato_reg$sector_any_food_r[dato_reg$sub_reg == 'ECA: W. Eur. and Balcans'], col = "maroon")

# Secondary axis
par(new = TRUE, mar = c(2, 4, 2, 4), 
    mfrow=c(1,1))
plot(x = dato_reg$date[dato_reg$sub_reg == 'ECA: W. Eur. and Balcans'], y = dato_reg$Tot_cov[dato_reg$sub_reg == 'ECA: W. Eur. and Balcans'], 
     type = "l", 
     xaxt = "n", yaxt = "n", # Set null superposition of axis on LHS
     ylab = "", xlab = "", 
     col = "black", lty = 2, lwd = 1.5,
     xaxs="i", yaxs="i", bty = "n", fg = 'grey')

markers <- c(0,400000,800000, 1200000)

axis(side = 4, at = markers, labels=format(markers, scientific=FALSE), fg = 'grey', cex.axis = 0.9, cex.lab = 0.8)
mtext("Total Number of Covid Cases", side = 4, line = 3, srt = -180, cex = 0.8)

legend("topleft", c("# Policies - Lib", "# Policies - Res", "Total Cases"),
       col = c("darkgreen", "maroon", 'black'), 
       lty = c(1, 1, 2),
       bty = "n", 
       cex = 0.7)

up_plot <- recordPlot()

# -----------
# Bottom plot
# -----------

plot.new() ## clean up device

par(mar = c(2, 4, 1, 4))
plot(x = dato_reg$date[dato_reg$sub_reg == 'ECA: W. Eur. and Balcans'], 
     y = dato_reg$delta_cases_week_sh[dato_reg$sub_reg == 'ECA: W. Eur. and Balcans'], 
     #main = 'Weekly variation of new cases',
     type = 'l',
     col = 'darkgrey',
     cex = 0.5,
     #xaxt = "n", yaxt = "n", # Set null superposition of axis on LHS
     ylab = "", xlab = "", 
     lty = 5, lwd = 1.2,
     xaxs="i", yaxs="i", bty = "n",
     cex.axis = 0.9,
     cex.lab = 0.8,
     cex.main = 0.9,
     fg = 'grey')

bot_plot <- recordPlot()

# ------------------------
# Building the title object
# ------------------------

# First method

tit <- ggdraw() + 
        draw_label(
                "Western Europe and Balcans",
                #fontface = 'bold',
                #fontfamily = 'Open Sans',
                x = 0,
                hjust = 0#,
                #vjust = 1
        ) +
    theme_delabj() #+

# Second Method
tit2 <- ggplot() + 
        labs(title = "Western Europe and Balcans") + 
        theme_delabj()
tit2 <- ggpubr::as_ggplot(get_title(tit2))

# Does not work
plot_grid(tit, up_plot, bot_plot,
          ncol = 1,
          rel_heights = c(0.1,1,0.5))

# Works
plot_grid(up_plot, bot_plot, tit
          ncol = 1,
          rel_heights = c(1,0.5,0.1))

Bất kỳ ý tưởng cho lý do tại sao điều này xảy ra? Tôi đã cố gắng xây dựng biểu đồ xây dựng biểu đồ cột trước đó và thêm tiêu đề ở bước thứ hai, nhưng không thành công. Dưới đây, tôi cung cấp một ví dụ con của dữ liệu.

Cowplot plot_grid (): Tiêu đề trong cốt truyện

Trả lời