Cowplot plot_grid (): Judul dalam plot

Aug 26 2020

Saya mencoba memasukkan judul dalam grafik rakitan yang dibuat menggunakan plot_grid(). Saya mencoba kedua solusi yang diusulkan dalam cowplotpanduan referensi di sini oleh @Claus Wilke, dan solusi yang disarankan di sini sebagai bagian dari pertanyaan itu sendiri (mengekstrak judul dari ggplotobjek kosong ).

Dalam kedua kasus tersebut, saya dapat membuat objek dengan judul saja. Namun, ketika saya mencoba memasukkannya ke dalam grafik satu kolom bersama dengan dua objek lainnya, sesuatu yang aneh terjadi. Jika saya mencoba untuk memasukkannya di atas (misalnya menentukan plot_grid()parameter rel_heights(0.1,1,0.5), mirip dengan apa yang disarankan oleh tautan pertama yang saya posting di atas, keluarannya hanya menyertakan beberapa ruang kosong. Sebaliknya, Jika saya mencoba membalik urutan plot (yaitu termasuk judul di bawah) plot utama), hasilnya persis seperti yang seharusnya, dan judulnya diplot di bawah plot.

Ada ide mengapa ini terjadi? pengaturan saya tidak terlalu berbeda dari contoh yang dibuat dalam referensi yang saya sertakan, kecuali untuk orientasi grafik utama (yang di-grid sebagai kolom tunggal daripada dalam satu baris)

KODE SAYA


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

Ada ide mengapa ini terjadi? Saya mencoba membuat grafik dengan membangun plot kolom sebelumnya dan menambahkan judul pada langkah kedua, tetapi tidak berhasil. Di bawah ini, saya memberikan subsampel data.

Cowplot plot_grid (): Judul dalam plot

Jawaban