如何在heatmap2中加粗一组标签或分支

# 导入heatmap2库
library(gplots)

# 创建一个示例矩阵
matrix_data <- matrix(1:16, nrow = 4)

# 创建一个示例标签向量
labels <- c("A", "B", "C", "D")

# 创建一个示例加粗标签向量
bold_labels <- c("A", "B", "C", "D")
bold_labels[c(1, 3)] <- "bold"  # 设置要加粗的标签位置为"bold"

# 创建一个示例颜色向量
colors <- ifelse(bold_labels == "bold", "red", "black")

# 绘制heatmap2图
heatmap2(matrix_data,
          ColSideColors = colors,  # 设置标签颜色
          key = TRUE,  # 显示图例
          keysize = 1,  # 图例大小
          key.title = "Bold Labels",  # 图例标题
          key.labels = bold_labels,  # 图例标签
          dendrogram = "none",  # 不显示树状图
          trace = "none"  # 不显示轮廓线
)