你可以用label创建一个annotation。确保通过改变plot.margin和clip的坐标来创建一些空间。你可以随意设置。下面是一个可重现的例子：

library(ggplot2)
ggplot(df)+aes(x=a,y=b,fill=b)+
  geom_bar(stat='identity') +
  coord_cartesian(clip = "off") +
  annotate("label", x = Inf, y = 20, hjust = -0.1, label = "TOTAL = 60", size = 3) +
  theme(plot.margin = unit(c(1,5,1,1), "lines"),
        legend.position = 'none')

创建于2022年12月12日，使用reprex v2.0.2
在加载ggtext时，可以使用richtext来旋转注解框，如下所示：

library(ggplot2)
library(ggtext)
ggplot(df)+aes(x=a,y=b,fill=b)+
  geom_bar(stat='identity') +
  coord_cartesian(clip = "off") +
  annotate("richtext", x = Inf, y = 20, vjust = 2, label = "TOTAL = 60", size = 3, angle = 90) +
  theme(plot.margin = unit(c(1,5,1,1), "lines"),
        legend.position = 'none')

创建于2022年12月12日，使用reprex v2.0.2