Cowplot plot_grid (): Titel im Plot
Aug 26 2020
Ich versuche, einen Titel in ein zusammengesetztes Diagramm aufzunehmen, das mit erstellt wurde plot_grid(). Ich habe sowohl die im cowplotReferenzhandbuch hier von @Claus Wilke vorgeschlagene Lösung als auch die hier als Teil der Fragen selbst vorgeschlagene Problemumgehung (Extrahieren des Titels aus einem leeren ggplotObjekt) ausprobiert .
In beiden Fällen kann ich ein Objekt nur mit dem Titel erstellen. Wenn ich jedoch versuche, es zusammen mit zwei anderen Objekten in ein einspaltiges Diagramm aufzunehmen, passiert etwas Seltsames. Wenn ich versuche, es oben einzufügen (z. B. plot_grid()Parameter angeben rel_heights(0.1,1,0.5), ähnlich wie der erste Link, den ich oben gepostet habe, enthält die Ausgabe nur Leerzeichen. Umgekehrt, wenn ich versuche, die Reihenfolge der Diagramme umzukehren (dh den Titel unten einzuschließen) die Hauptdarstellungen), die Ausgabe ist genau so, wie sie sein sollte, und der Titel wird unter den Darstellungen dargestellt.
Irgendeine Idee, warum das passiert? Mein Setup unterscheidet sich nicht wesentlich von den Beispielen in den Referenzen, die ich aufgenommen habe, mit Ausnahme der Ausrichtung des Hauptdiagramms (das als einzelne Spalte und nicht als einzelne Zeile gerastert wird).
MEIN CODE
# 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))
Irgendeine Idee, warum das passiert? Ich habe versucht, das Diagramm zu erstellen, das zuvor das Säulendiagramm erstellt und den Titel in einem zweiten Schritt hinzugefügt hat, aber ohne Erfolg. Im Folgenden stelle ich eine Teilstichprobe der Daten zur Verfügung.
DATEN
dato_reg <- structure(list(date = structure(c(18263, 18264, 18265, 18266,
18267, 18268, 18269, 18270, 18271, 18272, 18273, 18274, 18275,
18276, 18277, 18278, 18279, 18280, 18281, 18282, 18283, 18284,
18285, 18286, 18287, 18288, 18289, 18290, 18291, 18292, 18293,
18294, 18295, 18296, 18297, 18298, 18299, 18300, 18301, 18302,
18303, 18304, 18305, 18306, 18307, 18308, 18309, 18310, 18311,
18312, 18313, 18314, 18315, 18316, 18317, 18318, 18319, 18320,
18321, 18322, 18323, 18324, 18325, 18326, 18327, 18328, 18329,
18330, 18331, 18332, 18333, 18334, 18335, 18336, 18337, 18338,
18339, 18340, 18341, 18342, 18343, 18344, 18345, 18346, 18347,
18348, 18349, 18350, 18351, 18352, 18353, 18354, 18355, 18356,
18357, 18358, 18359, 18360, 18361, 18362, 18363, 18364, 18365,
18366, 18367, 18368, 18369, 18370, 18371, 18372, 18373, 18374,
18375, 18376, 18377, 18378, 18379, 18380, 18381, 18382, 18383,
18384, 18385, 18386, 18387, 18388, 18389, 18390, 18391, 18392,
18393, 18394, 18395, 18396, 18397, 18398, 18399, 18400, 18401,
18402, 18403, 18404, 18405, 18406, 18407, 18408, 18409, 18410,
18411, 18412, 18413, 18414, 18415, 18416, 18417, 18418, 18419,
18420, 18421, 18422, 18423, 18424, 18425, 18426, 18427, 18428,
18429, 18430, 18431, 18432, 18433, 18434, 18435, 18436, 18437,
18438, 18439, 18440, 18441, 18442, 18443, 18444, 18445, 18446,
18447, 18448, 18449, 18450, 18451, 18452, 18453, 18454, 18455,
18456, 18457, 18458), class = "Date", format.stata = "%td"),
reg = c("ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA",
"ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA", "ECA"
), sub_reg = c("ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans",
"ECA: W. Eur. and Balcans", "ECA: W. Eur. and Balcans"),
sector_any_food_l = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3,
3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5,
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
5, 5, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4), sector_any_food_r = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 2, 2,
2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 4, 4, 4, 4, 4, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1), sector_any_med_l = c(0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 2, 2, 2, 2, 2,
2, 2, 4, 4, 4, 4, 7, 7, 7, 9, 7, 7, 7, 7, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 10, 10,
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 8, 8, 9, 9, 9, 9, 9, 9, 11, 11, 11, 11,
11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11,
11, 11, 11, 11, 11, 11, 11, 11), sector_any_med_r = c(0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 2, 2,
2, 2, 2, 3, 5, 5, 5, 5, 6, 7, 7, 8, 10, 12, 13, 14, 15, 18,
19, 19, 24, 24, 24, 25, 26, 28, 30, 31, 31, 31, 32, 34, 35,
36, 38, 38, 38, 40, 41, 42, 41, 41, 41, 41, 41, 41, 40, 41,
41, 41, 41, 41, 41, 42, 44, 44, 44, 44, 44, 44, 45, 45, 45,
46, 46, 46, 46, 46, 46, 45, 45, 45, 46, 45, 45, 44, 44, 43,
43, 42, 42, 43, 43, 43, 43, 43, 43, 42, 41, 42, 42, 42, 42,
40, 40, 40, 40, 41, 41, 41, 43, 44, 44, 44, 44, 44, 43, 38,
39, 40, 39, 39, 39, 39, 39, 39, 39, 39, 40, 39, 39, 39, 39,
40, 41, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 43, 42, 42
), Tot_cov = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 2, 3, 3, 4, 8, 9, 9, 14, 18, 20,
28, 29, 30, 30, 32, 41, 43, 43, 46, 50, 52, 53, 57, 64, 66,
77, 78, 80, 101, 145, 245, 324, 435, 593, 899, 1179, 1526,
2267, 2855, 3499, 4528, 5957, 7667, 9682, 12008, 14502, 17207,
21948, 25650, 33781, 40850, 48336, 57182, 65965, 78327, 92443,
109238, 104109, 119291, 133670, 150189, 166726, 186787, 207880,
229033, 247545, 268153, 292001, 317213, 340228, 366347, 391125,
408620, 431075, 455340, 480191, 506435, 531235, 553995, 597601,
616404, 636598, 660851, 694167, 716686, 735861, 756772, 774963,
796650, 814188, 835028, 855914, 872891, 886168, 902710, 921151,
934798, 954629, 968834, 981640, 991798, 1002663, 1016059,
1038908, 1053239, 1067231, 1079238, 1087868, 1097826, 1111055,
1122862, 1135539, 1148532, 1152011, 1160828, 1168828, 1178849,
1189528, 1199234, 1215186, 1222710, 1228846, 1235014, 1242656,
1251069, 1263659, 1271301, 1280131, 1285518, 1289965, 1006491,
1011167, 1015849, 1021596, 1030570, 1034475, 1038257, 1043582,
1048289, 1053243, 1058091, 1063284, 1067521, 1068086, 1073092,
1077711, 1082519, 1087033, 1090777, 1094066, 1097409, 1101924,
1107192, 1111933, 1116564, 1121333, 1124695, 1127855, 1132052,
1135751, 1139260, 1143411, 1147672, 1151121, 1153914, 1157815,
1163128, 1167502, 1172161, 1177010, 1181115, 1184497, 1189332,
1194167), delta_cases_week_sh = c(NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, 6.15, 6.15, 6.15, 6.15, 6.15, 6.15,
6.15, 1.02097902097902, 1.02097902097902, 1.02097902097902,
1.02097902097902, 1.02097902097902, 1.02097902097902, 1.02097902097902,
0.294117647058824, 0.294117647058824, 0.294117647058824,
0.294117647058824, 0.294117647058824, 0.294117647058824,
0.294117647058824, 2.25133689839572, 2.25133689839572, 2.25133689839572,
2.25133689839572, 2.25133689839572, 2.25133689839572, 2.25133689839572,
9.35608552631579, 9.35608552631579, 9.35608552631579, 9.35608552631579,
9.35608552631579, 9.35608552631579, 9.35608552631579, 4.91439688715953,
4.91439688715953, 4.91439688715953, 4.91439688715953, 4.91439688715953,
4.91439688715953, 4.91439688715953, 3.61151987110634, 3.61151987110634,
3.61151987110634, 3.61151987110634, 3.61151987110634, 3.61151987110634,
3.61151987110634, 2.18097278915526, 2.18097278915526, 2.18097278915526,
2.18097278915526, 2.18097278915526, 2.18097278915526, 2.18097278915526,
1.30624242601752, 1.30624242601752, 1.30624242601752, 1.30624242601752,
1.30624242601752, 1.30624242601752, 1.30624242601752, 0.658109956784521,
0.658109956784521, 0.658109956784521, 0.658109956784521,
0.658109956784521, 0.658109956784521, 0.658109956784521,
0.363328034068481, 0.363328034068481, 0.363328034068481,
0.363328034068481, 0.363328034068481, 0.363328034068481,
0.363328034068481, 0.24245404589266, 0.24245404589266, 0.24245404589266,
0.24245404589266, 0.24245404589266, 0.24245404589266, 0.24245404589266,
0.133501787648649, 0.133501787648649, 0.133501787648649,
0.133501787648649, 0.133501787648649, 0.133501787648649,
0.133501787648649, 0.0834565412298084, 0.0834565412298084,
0.0834565412298084, 0.0834565412298084, 0.0834565412298084,
0.0834565412298084, 0.0834565412298084, 0.0625291317023914,
0.0625291317023914, 0.0625291317023914, 0.0625291317023914,
0.0625291317023914, 0.0625291317023914, 0.0625291317023914,
0.0449483257607112, 0.0449483257607112, 0.0449483257607112,
0.0449483257607112, 0.0449483257607112, 0.0449483257607112,
0.0449483257607112, 0.0348509652307993, 0.0348509652307993,
0.0348509652307993, 0.0348509652307993, 0.0348509652307993,
0.0348509652307993, 0.0348509652307993, 0.0290414713215884,
0.0290414713215884, 0.0290414713215884, 0.0290414713215884,
0.0290414713215884, 0.0290414713215884, 0.0290414713215884,
0.0250526276453955, 0.0250526276453955, 0.0250526276453955,
0.0250526276453955, 0.0250526276453955, 0.0250526276453955,
0.0250526276453955, 0.0240567914961615, 0.0240567914961615,
0.0240567914961615, 0.0240567914961615, 0.0240567914961615,
0.0240567914961615, 0.0240567914961615, 0.0247184338499397,
0.0247184338499397, 0.0247184338499397, 0.0247184338499397,
0.0247184338499397, 0.0247184338499397, 0.0247184338499397,
0.0240095369396734, 0.0240095369396734, 0.0240095369396734,
0.0240095369396734, 0.0240095369396734, 0.0240095369396734,
0.0240095369396734, 0.0231936536897942, 0.0231936536897942,
0.0231936536897942, 0.0231936536897942, 0.0231936536897942,
0.0231936536897942, 0.0231936536897942, 0.0233031474558156,
0.0233031474558156, 0.0233031474558156, 0.0233031474558156,
0.0233031474558156, 0.0233031474558156, 0.0233031474558156,
-0.709567845919194)), row.names = c(NA, -196L), class = c("tbl_df",
"tbl", "data.frame"))
Antworten
2 Jonni Aug 27 2020 at 00:36
Versuche dies. Es fügt den Titel als Beschriftung hinzu und entfernt ihn von der Position rel_heights. Beachten Sie auch, dass die rel_heights gleich 1 sind.
titnew = "Western Europe and Balcans"
plot_grid(up_plot, bot_plot, ncol = 1, labels = titnew, label_y = 1, rel_heights = c(.65,.35))