如何在ggplot图表右侧预留空间添加文本注释？

解决方法 #

你已经正确设置了右侧边距，注释无法显示的核心原因是ggplot默认会裁剪超出绘图面板区域的元素，只需要在theme()配置中新增clip = "off"即可实现需求。

修改后的完整代码如下：

trainingplot <- ggplot(aggreg.data, aes(x = trainingblock, y = performance)) +
  scale_y_continuous(name = "直线滑翔时间扣减时长（秒）", breaks = seq(-2, 6, 1)) +
  scale_x_discrete() +
  theme_pubr()+ 
  theme(legend.position="none",
       axis.title.x=element_blank(),
       plot.margin = unit(c(1,4,1 ,1), "cm"),
       clip = "off") + # 新增这一行关闭内容裁剪
  geom_hline(aes(yintercept = 0), linetype = "dashed", size=0.2) +
  annotate("text", x = 5.4, y = -0.4, label = "Course A", size=4) + 
  annotate("text", x = 5.4, y = 0.5, label = "Course B", size=4) +
  annotate("text", x = 5.4, y = 2, label = "Course C", size=4) 

补充说明：clip参数默认值为"on"，会自动隐藏所有超出绘图面板边界的元素，设置为"off"后，你预留的右侧边距区域就可以正常显示自定义注释内容。

内容的提问来源于stack exchange，提问作者Cmagelssen