具有不同颜色文本标签的 R forestplot（） 函数

问：

森林图（使用 R forestplot（） 函数）有没有办法在图的左侧有不同颜色的文本标签？

即我希望情节看起来像这样：

带有不同颜色的左手标签。我可以绘制两个森林图并将它们粘贴在一起，但我更喜欢一种解决方案，该解决方案允许所有元素在单个图上正确排列（有 9 个标签需要在一组中是一种颜色，~20 个标签需要在另一组中是另一种颜色）

如果有，我将如何使用 forestplot（） 函数和库来获取它？

编辑以添加可重现的代码片段：

编辑：提供最少的代码示例

library(forestplot)
library(tidyr)

cohort <- data.frame(Age = c(43, 39, 34, 55, 70, 59, 44, 83, 76, 44, 
                             75, 60, 62, 50, 44, 40, 41, 42, 37, 35, 55, 46), 
                     Group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
                                         1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), levels = c("1","2"), class = "factor"))

age.lm <- lm(Age ~ Group, data = cohort)

age.data <- summary(age.lm)$coefficients[2,]

age.data <- rbind(c(0,0,0,1,"Group 1", "n=15"),
                  c(age.data[1], age.data[1]-age.data[2]*1.95, 
                  age.data[1]+age.data[2]*1.95, age.data[4], "Group 2", "n=7"))

colnames(age.data) <- c("mean","lower","upper","p-val","labeltext","numbers")

age.data <- data.frame(age.data)


age.data$mean <- as.numeric(age.data$mean)
age.data$lower <- as.numeric(age.data$lower)
age.data$upper <- as.numeric(age.data$upper)


age.plot <- forestplot(age.data,
           labeltext = c(labeltext,numbers),
           boxsize = 0.1,
           xlog = FALSE,
           clip=c(-20,20),
           xticks=c(-20,-10,0,10,20),
           txt_gp = fpTxtGp(ticks=gpar(cex=1)),
           align=c("l","c","l"))
           

这个片段生成了一个单色图，但我希望左侧的标签是不同的颜色。

编辑：最初看起来 fpColors（） 可能会提供此功能，但它使用指定的颜色为行中的所有文本元素着色，而不仅仅是左侧的文本标签。