Então isso é muito relevante para issoPergunta, questão e istoresponda é uma excelente solução. O problema é que, quando tento exportar o gráfico usando ggsave, as chaves não estão presentes.

exemplo:

library(ggplot2)
library(grid)
library(pBrackets) 
x <- c(runif(10),runif(10)+2)
y <- c(runif(10),runif(10)+2)
the_plot <- qplot(x=x,y=y) +
  scale_x_continuous("",breaks=c(.5,2.5),labels=c("Low types","High types") ) +
  theme(axis.ticks = element_blank(),
        axis.ticks.length = unit(.85, "cm"))
the_plot
grid.locator(unit="native") 
bottom_y <- 284 
grid.brackets(220, bottom_y,   80, bottom_y, lwd=2, col="red")
grid.brackets(600, bottom_y,  440, bottom_y, lwd=2, col="red")
ggsave("test.png",width = 4, height = 2.5)

Não estou aberto a usar o botão de exportação do RStudio, pois ele não exporta corretamente os tamanhos de fonte do meu tema, etc. Também preciso de uma resolução maior que 76 dpi. Preciso de uma solução para adicionar chaves em um gráfico do ggplot2 e poder salvá-lo usando o ggsave.