So das ist sehr relevant für dieseFrag und dasAntworte ist eine ausgezeichnete Lösung. Das Problem ist, dass die geschweiften Klammern nicht vorhanden sind, wenn ich versuche, den Plot mit ggsave zu exportieren.

Beispiel

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)

Ich bin nicht bereit, die RStudio-Exportschaltfläche zu verwenden, da sie die Schriftgrößen meines Themas usw. nicht ordnungsgemäß exportiert. Ich benötige außerdem eine höhere Auflösung als 76 dpi. Ich benötige eine Lösung, um einer ggplot2-Grafik geschweifte Klammern hinzuzufügen und sie mit ggsave speichern zu können.