如何使堆叠条形图的Y轴刻度标签颜色匹配对应条形颜色？

嘿，我来帮你实现Y轴刻度标签颜色和堆叠条形的对应颜色匹配！下面分两种常用场景给你方案，包括你提到的基础绘图方式，以及Shiny里更常用的ggplot2实现：

一、基础绘图（对应你提供的代码风格） #

如果坚持用基础R绘图，我们可以手动控制Y轴的刻度标签颜色，步骤如下：

• 首先，确保你的堆叠条形图数据是按类别整理好的，用barplot()生成堆叠图时，先保存条形位置：

# 示例数据，模拟堆叠条形的类别和颜色
categories <- c("A", "B", "C")
chs <- c("#FF6B6B", "#4ECDC4", "#45B7D1")
stack_data <- matrix(c(10, 20, 15, 12, 18, 22), ncol=3)

# 绘制堆叠条形图，保存条形位置
bp <- barplot(stack_data, col=chs, xlab="Quarter", ylab="DC", main="Disposition by quarter")

• 移除默认的Y轴，然后自定义带有对应颜色的Y轴标签：

# 移除默认Y轴
axis(2, labels=FALSE)

# 获取Y轴刻度位置和标签（根据你的实际数据调整）
y_ticks <- seq(0, max(colSums(stack_data)), by=5)
y_labels <- categories
# 给每个标签设置对应颜色
for(i in seq_along(y_labels)){
  axis(2, at=y_ticks[i], labels=y_labels[i], col.axis=chs[i], las=1, cex.axis=0.75)
}

二、Shiny + ggplot2 实现（更灵活推荐） #

在Shiny里用ggplot2做堆叠条形图，结合ggtext包可以轻松实现带颜色的Y轴标签，步骤如下：

• 先安装并加载所需包：

library(shiny)
library(ggplot2)
library(ggtext)

• 准备示例数据（替换成你的RHSSP数据即可）：

set.seed(123)
RHSSP <- expand.grid(quarter=paste0("Q", 1:4), disposition=c("A", "B", "C"))
RHSSP$value <- sample(5:25, nrow(RHSSP), replace=TRUE)
chs <- c("A"="#FF6B6B", "B"="#4ECDC4", "C"="#45B7D1") # 颜色与类别映射

• 编写Shiny应用代码：

ui <- fluidPage(
  plotOutput("stack_plot")
)

server <- function(input, output) {
  output$stack_plot <- renderPlot({
    # 创建基础堆叠条形图
    p <- ggplot(RHSSP, aes(x=quarter, y=value, fill=disposition)) +
      geom_col(position="stack") +
      scale_fill_manual(values=chs) +
      labs(title="Disposition by quarter", x="Quarter", y="DC") +
      theme_minimal() +
      # 启用ggtext解析Y轴标签
      theme(
        axis.text.y = element_markdown(),
        axis.title.y = element_text(size=12)
      )
    
    # 生成带对应颜色的Y轴标签文本
    y_labels <- sapply(names(chs), function(x) {
      paste0("<span style='color:", chs[x], "'>", x, "</span>")
    })
    
    # 替换Y轴刻度标签（根据你的实际数值调整breaks）
    p + scale_y_continuous(breaks=c(10,20,30), labels=y_labels)
  })
}

shinyApp(ui, server)

小提示：如果你的Y轴是数值刻度而非类别标签，需要先计算每个堆叠分段的Y轴范围，再对应设置对应区间的标签颜色，这样就能精准匹配每个条形段的颜色啦。

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