使用Rmisc和ggplot绘制分类堆叠条形图无图例问题的解决

问题场景 #

你尝试用Rmisc包的multiplot结合ggplot2，绘制3组分类变量（C1、C4、C5）与二分类变量Hired的堆叠条形图，但遇到两个问题：

• 图表没有显示C1、C4、C5各类别的图例
• 所有条形都呈灰色

你的数据集包含9个分类变量和6个数值变量，其中C1有2个类别、C4有4个类别、C5有3个类别，初始代码如下：

install.packages("Rmisc")
library(Rmisc)
p1<-ggplot(hireouti, aes(x = Hired, fill = C1)) + geom_bar(position = 'stack', show.legend=TRUE)
p2<-ggplot(hireouti, aes(x = Hired, fill = C4)) + geom_bar(position = 'stack', show.legend=TRUE)
p3<-ggplot(hireouti, aes(x = Hired, fill = C5)) + geom_bar(position = 'stack', show.legend=TRUE)
multiplot(p1,p2,p3, cols = 3)

问题原因 #

核心问题在于：C1、C4、C5虽然代表分类含义，但实际存储为数值型变量。当ggplot2的fill参数接收数值型变量时，会默认使用连续颜色标尺，不会生成离散的分类图例，因此条形显示为单一灰色（连续色阶的默认表现），也不会出现分类标签的图例。

修正方案 #

只需要将fill参数中的变量用factor()转换为因子类型，让ggplot2识别这是离散分类变量，就能自动生成彩色堆叠条和对应的图例。修正后的代码如下：

library(Rmisc)
library(ggplot2) # 建议显式加载ggplot2，避免依赖自动加载的问题
p1<-ggplot(hireouti, aes(x = Hired, fill = factor(C1))) + geom_bar(position = 'stack', show.legend = TRUE)
p2<-ggplot(hireouti, aes(x = Hired, fill = factor(C4))) + geom_bar(position = 'stack', show.legend = TRUE)
p3<-ggplot(hireouti, aes(x = Hired, fill = factor(C5))) + geom_bar(position = 'stack', show.legend = TRUE)
multiplot(p1,p2,p3, cols = 3)

额外小建议：可以给因子变量添加更友好的标签，比如factor(C1, labels = c("类别A", "类别B"))，这样图例显示会更清晰。

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