Skip to main content
2 de 2
Erro ortográfico.
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

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

Rui Barradas
  • 19mil
  • 2
  • 14
  • 28