Cowplot plot_grid (): Arsa içindeki başlık

Aug 26 2020

Kullanılarak oluşturulmuş birleştirilmiş grafiğe bir başlık eklemeye çalışıyorum plot_grid(). İçinde önerilen çözüm, hem güvenilir cowplotbaşvuru kılavuzunda burada @Claus Wilke ile ve önerilen çözüm burada (boş başlığını ekstre soru kendisinin bir parçası olarak ggplotnesne).

Her iki durumda da, sadece başlıkla bir nesne oluşturabiliyorum. Ancak, onu diğer iki nesneyle birlikte tek sütunlu bir grafiğe dahil etmeye çalıştığımda garip bir şey oluyor. En üste eklemeye çalışırsam (örneğin , yukarıda yayınladığım ilk bağlantının önerdiğine benzer şekilde plot_grid()parametre belirtmek) rel_heights(0.1,1,0.5), çıktı yalnızca biraz boşluk alanı içerir. Tersine, grafiklerin sırasını tersine çevirmeye çalışırsam (yani aşağıdaki başlığı dahil) Ana grafikler), çıktı tam olarak olması gerektiği gibidir ve başlık, grafiklerin altında çizilir.

Bunun neden olduğuna dair herhangi bir Fikir var mı? benim kurulumum, ana grafiğin yönü (tek bir satır yerine tek bir sütun olarak ızgaralı) dışında, dahil ettiğim referanslarda yapılan örneklerden dikkate değer ölçüde farklı değil

KODUM


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

Bunun neden olduğuna dair herhangi bir Fikir var mı? Daha önce sütun grafiğini oluşturan grafiği oluşturmaya ve başlığı ikinci adımda eklemeye çalıştım, ancak başarılı olamadım. Aşağıda, verilerin bir alt örneğini sunuyorum.

Cowplot plot_grid (): Arsa içindeki başlık

Yanıtlar