如何将DataFrame转换为堆叠柱状图？求助解决绘图报错问题

问题原因说明 #

• 使用barplot()报错是因为该函数的height参数要求输入向量或矩阵，直接传入DataFrame会被识别为列表，不符合参数要求。
• 直接调用ggplot(dataframe)仅返回灰色矩形，是因为没有指定任何变量映射和绘图几何对象，只是创建了空的绘图画布。

以下是两种常用工具的解决方法，附带示例代码：

方法一：Base R 的 barplot() #

步骤： #

1. 将DataFrame转换为矩阵格式；
2. 调用barplot()并传入矩阵，设置堆叠相关参数。

示例代码： #

# 构造示例DataFrame（列作为X轴类别，行作为堆叠子组）
df <- data.frame(
  类别A = c(10, 20, 15),
  类别B = c(5, 15, 25),
  类别C = c(8, 12, 18)
)
# 为行添加子组名称（可选，用于图例）
rownames(df) <- c("子组1", "子组2", "子组3")

# 转换为矩阵
df_matrix <- as.matrix(df)

# 绘制堆叠柱状图
barplot(df_matrix,
        main = "堆叠柱状图（Base R）",
        xlab = "X轴类别（原DataFrame列名）",
        ylab = "数值",
        col = c("#FF9999", "#66B3FF", "#99FF99"), # 自定义堆叠颜色
        legend.text = rownames(df_matrix), # 图例使用子组名称
        args.legend = list(x = "topright")) # 调整图例位置

方法二：ggplot2 包 #

步骤： #

1. 将宽格式的DataFrame转换为长格式（tidy data）；
2. 指定X轴、数值、堆叠分组的映射关系，调用堆叠柱状图几何对象。

示例代码： #

# 加载所需包
library(ggplot2)
library(tidyr)

# 构造示例DataFrame（同Base R示例）
df <- data.frame(
  类别A = c(10, 20, 15),
  类别B = c(5, 15, 25),
  类别C = c(8, 12, 18)
)

# 转为长格式数据：添加子组列，将列名转为X轴类别，值转为数值列
df_long <- df %>%
  mutate(子组 = paste0("子组", row_number())) %>% # 生成子组名称
  pivot_longer(cols = -子组, names_to = "X轴类别", values_to = "数值")

# 绘制堆叠柱状图
ggplot(df_long, aes(x = `X轴类别`, y = 数值, fill = 子组)) +
  geom_bar(stat = "identity") + # stat="identity"表示直接用数值作为高度，默认堆叠
  labs(title = "堆叠柱状图（ggplot2）",
       x = "X轴类别（原DataFrame列名）",
       y = "数值") +
  scale_fill_manual(values = c("#FF9999", "#66B3FF", "#99FF99")) +
  theme_minimal()

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