Так что это очень актуально для этоговопрос и этоответ это отличное решение. Проблема в том, что когда я пытаюсь экспортировать график с помощью ggsave, фигурные скобки отсутствуют.

пример:

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)

Я не открыт для использования кнопки экспорта RStudio, так как она неправильно экспортирует размеры шрифтов моей темы и т. Д. Мне также нужно более высокое разрешение, чем 76 точек на дюйм. Мне нужно решение, чтобы добавить фигурные скобки к графике ggplot2 и иметь возможность сохранить его с помощью ggsave.