R语言在右侧图例上方生成新的小标题

在R语言中，特别是在ggplot2包中创建图形时，如果你想要在右侧图例上方添加一个新的小标题，你可以通过`ggtitle`函数配合`theme`或`cowplot`包中的功能来实现。这里假设你已经有一个叫做`p2`的ggplot对象，并且你想在它的图例之上添加一个小标题，可以这样做：

# 首先确定你的主题是否允许添加图例标题，如不允许需要先更改
library(ggplot2)
library(cowplot)

# 假设你的图例标题已经是"Feature value"
custom_theme <- theme(
  strip.background = element_rect(fill = "white"),
  plot.margin = unit(c(-0.5, -0.5, 1, 0), "cm"), # 移动图例的位置
  legend.position = c(1, 0.8),   # 将图例放在顶部
  legend.key.size =unit(1, "lines") # 控制图例框大小
)

# 添加新的小标题
new_title <- ggtitle("Custom Legend Title")

# 使用cowplot合成图形，左侧p2，右侧新标题
plot_grid(p2 + custom_theme, new_title, nrow=1, rel_heights=c(1, 0.2))