library(ggplot2)
library(patchwork)
p1 <- ggplot(cars) +
aes(speed, dist) +
geom_point(show.legend = F)
p2 <- p1 + aes(color = speed)
p3 <- p2 + aes(size = dist)
p4 <- p3 + aes(shape = speed > 15)
(p1 + p2) / (p3 + p4)
last_plot() +
plot_layout(heights = c(1,2), # ✅
widths = c(2,1)) # ⛔️
p1 + p2 + p3 + p4 +
plot_layout(ncol = 2,
heights = c(1,2), # ✅
widths = c(2,1)) # ✅
(p1 / p2) | (p3 / p4) +
plot_layout(heights = c(1,2), # ✅ partial...
widths = c(2,1))
Intro Thoughts
Status Quo
library(tidyverse)
Experiment