Basta acrescentar geom_vline
a cada gráfico. Mas é preciso ter atenção à interceção x
.
- No gráfico de barras é imediato, a abcissa entre as barras 1 e 2 é 1.5;
- no gráfico de linhas, deverá ser entre os pontos de abcissa 1 e 2 mas mais chagadochegado para o 2.
O código completo é o seguinte.
library(ggplot2)
library(gridExtra)
g_col <- ggplot(dt, aes(x = periodo, y = peso, fill = grupo)) +
geom_col(position = "dodge") +
geom_vline(xintercept = 1.5, linetype = "dashed")
g_point <- ggplot(dt, aes(x = periodo, y = atr, colour = grupo, group = grupo)) +
geom_point() +
geom_line() +
geom_vline(xintercept = 1.85, linetype = "dashed")
grid.arrange(g_point, g_col, nrow = 2)