R 如何为由三个子组组成的两个独立组的图例添加标题？

我有

蓝色表示一组，而红色表示另一组。如您所见，每组有三个

WHO==1,2,3

等级

我想简化图形。是否可以为“蓝色字符串”和“红色字符串”添加标题

预期产出：

当前脚本

ggplot(b, 
       aes(x=woTERT, y=wTERT, shape=tert_group, col=tert_group, fill=tert_group)) +
  geom_abline(intercept=0, slope=1) +
  geom_point(size = 6) +
  scale_color_manual(values = c("#2C77BF","#E38072","#2C77BF","#E38072","#2C77BF","#E38072"),
                     name = "",
                     labels = c("WHO-I, TERTp-wt", "WHO-I, TERT-alt", "WHO-II, TERTp-wt", "WHO-II, TERT-alt", "WHO-III, TERTp-wt", "WHO-III, TERTp-alt")) +
  scale_fill_manual(values = alpha(c("#2C77BF","#E38072","#2C77BF","#E38072","#2C77BF","#E38072"),.5),
                    name = "",
                    labels = c("WHO-I, TERTp-wt", "WHO-I, TERT-alt", "WHO-II, TERTp-wt", "WHO-II, TERT-alt", "WHO-III, TERTp-wt", "WHO-III, TERTp-alt")) +
  scale_shape_manual(name="",
                     values = c(21,21,22,22,24,24),
                     labels = c("WHO-I, TERTp-wt", "WHO-I, TERT-alt", "WHO-II, TERTp-wt", "WHO-II, TERT-alt", "WHO-III, TERTp-wt", "WHO-III, TERTp-alt")) +
  scale_x_continuous(name = "WHO w/o TERT: Predticed risk of recurrence",
                     labels = paste0(seq(0,100,10),"%"),
                     breaks = seq(0,1,.1),
                     limits = c(0,1)) +
  scale_y_continuous(name = "WHO +TERT: Predticed risk of recurrence",
                     labels = paste0(seq(0,100,10),"%"),
                     breaks = seq(0,1,.1))

我尝试了不同的

name=“TERTp wt\nTERT alt”

方法，但这与图例文本不一致

资料

b这有助于：

library(ggplot2)
#Code
ggplot(b, 
       aes(x=woTERT, y=wTERT, shape=tert_group, col=tert_group, fill=tert_group)) +
  geom_abline(intercept=0, slope=1) +
  geom_point(size = 6) +
  scale_color_manual(values = c("#2C77BF","#E38072","#2C77BF","#E38072","#2C77BF","#E38072"),
                     name = "TERTp-wt\n\nTERT-alt",
                     labels = c("WHO-I, TERTp-wt", "WHO-I, TERT-alt", "WHO-II, TERTp-wt", "WHO-II, TERT-alt", "WHO-III, TERTp-wt", "WHO-III, TERTp-alt")) +
  scale_fill_manual(values = alpha(c("#2C77BF","#E38072","#2C77BF","#E38072","#2C77BF","#E38072"),.5),
                    name = "TERTp-wt\n\nTERT-alt",
                    labels = c("WHO-I, TERTp-wt", "WHO-I, TERT-alt", "WHO-II, TERTp-wt", "WHO-II, TERT-alt", "WHO-III, TERTp-wt", "WHO-III, TERTp-alt")) +
  scale_shape_manual(name="TERTp-wt\n\nTERT-alt",
                     values = c(21,21,22,22,24,24),
                     labels = c("WHO-I, TERTp-wt", "WHO-I, TERT-alt", "WHO-II, TERTp-wt", "WHO-II, TERT-alt", "WHO-III, TERTp-wt", "WHO-III, TERTp-alt")) +
  scale_x_continuous(name = "WHO w/o TERT: Predticed risk of recurrence",
                     labels = paste0(seq(0,100,10),"%"),
                     breaks = seq(0,1,.1),
                     limits = c(0,1)) +
  scale_y_continuous(name = "WHO +TERT: Predticed risk of recurrence",
                     labels = paste0(seq(0,100,10),"%"),
                     breaks = seq(0,1,.1))+
  theme(legend.position = 'top')+
  theme(legend.title = element_text(face='bold',size=9))

输出：


library(ggplot2)
#Code
ggplot(b, 
       aes(x=woTERT, y=wTERT, shape=tert_group, col=tert_group, fill=tert_group)) +
  geom_abline(intercept=0, slope=1) +
  geom_point(size = 6) +
  scale_color_manual(values = c("#2C77BF","#E38072","#2C77BF","#E38072","#2C77BF","#E38072"),
                     name = "TERTp-wt\n\nTERT-alt",
                     labels = c("WHO-I, TERTp-wt", "WHO-I, TERT-alt", "WHO-II, TERTp-wt", "WHO-II, TERT-alt", "WHO-III, TERTp-wt", "WHO-III, TERTp-alt")) +
  scale_fill_manual(values = alpha(c("#2C77BF","#E38072","#2C77BF","#E38072","#2C77BF","#E38072"),.5),
                    name = "TERTp-wt\n\nTERT-alt",
                    labels = c("WHO-I, TERTp-wt", "WHO-I, TERT-alt", "WHO-II, TERTp-wt", "WHO-II, TERT-alt", "WHO-III, TERTp-wt", "WHO-III, TERTp-alt")) +
  scale_shape_manual(name="TERTp-wt\n\nTERT-alt",
                     values = c(21,21,22,22,24,24),
                     labels = c("WHO-I, TERTp-wt", "WHO-I, TERT-alt", "WHO-II, TERTp-wt", "WHO-II, TERT-alt", "WHO-III, TERTp-wt", "WHO-III, TERTp-alt")) +
  scale_x_continuous(name = "WHO w/o TERT: Predticed risk of recurrence",
                     labels = paste0(seq(0,100,10),"%"),
                     breaks = seq(0,1,.1),
                     limits = c(0,1)) +
  scale_y_continuous(name = "WHO +TERT: Predticed risk of recurrence",
                     labels = paste0(seq(0,100,10),"%"),
                     breaks = seq(0,1,.1))+
  theme(legend.position = 'top')+
  theme(legend.title = element_text(face='bold',size=9))