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 chegado 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) [![inserir a descrição da imagem aqui][1]][1] [1]: https://i.sstatic.net/WHoxW.png