ggplot绘制脑区兴奋性/抑制性细胞百分比堆叠柱状图求助

你的代码问题出在两个核心点：

• 数据集是宽格式，没有将兴奋性/抑制性细胞作为独立的分类变量
• fill映射的是连续型的percent_inhibitory数值，导致ggplot自动使用渐变配色，而非按细胞类型分块着色

修正步骤与代码 #

需要先把数据转换为长格式（tidy data），让每一行对应一个脑区的一种细胞类型，再用细胞类型作为填充色的映射变量：

# 加载依赖包
library(ggplot2)
library(tidyr)

# 修正原始数据：total_cells改为数值型（原代码是字符型，会导致潜在问题）
dataframe <- data.frame(
  area = c("area1", "area2", "area3"),
  total_cells = c(30303, 57464, 28484),
  percent_excitatory = c(10, 45, 60),
  percent_inhibitory = c(90, 55, 40)
)

# 将宽格式数据转为长格式
data_long <- dataframe %>%
  pivot_longer(
    cols = starts_with("percent_"),
    names_to = "cell_type",
    names_prefix = "percent_", # 去掉列名里的"percent_"前缀
    values_to = "percentage"
  )

# 绘制目标堆叠百分比柱状图
ggplot(data_long, aes(x = area, y = percentage, fill = cell_type)) +
  geom_bar(position = "fill", stat = "identity") +
  scale_y_continuous(labels = scales::percent_format(scale = 1)) + # 适配0-100的百分比数值
  coord_flip() +
  labs(fill = "细胞类型", y = "占比", x = "脑区") # 自定义标签提升可读性

关键修改说明 #

1. 数据格式转换：用pivot_longer把原本分列的两种细胞百分比合并成一列分类变量cell_type，这是ggplot绘制分类堆叠图的核心要求
2. 填充色映射：将fill从连续型的percent_inhibitory改为分类变量cell_type，这样会自动使用离散配色区分两种细胞
3. 数值类型修正：把total_cells从字符型转为数值型，避免后续分析的潜在错误
4. 百分比标签适配：scale_y_continuous中添加scale=1，因为你的百分比数值是0-100的整数，默认的percent_format会把0-1的数值转为百分比，加scale=1才能正确显示10%、90%这类标签

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