A usual way would be to bring data in long format and use facet_wrap
/facet_grid
to create multiple small plots. You can use ncol
and nrow
to specify how to format the plots.
library(tidyverse)
data1 %>%
pivot_longer(cols = var1:var2) %>%
mutate(year = factor(year)) %>%
ggplot() + aes(year, value, color = name, group = name) +
geom_line() + facet_wrap(~country, ncol = 2)
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…