R语言生成factorData005.fact指定柱状图时标签添加失败求助

现有数据集 #

给定数据集factorData005.fact内容如下：

[1] one star    three stars zero star   four stars  three stars three stars zero star  
 [8] four stars  one star    zero star   three stars four stars  three stars zero star  
 [15] three stars three stars one star    one star    three stars four stars  four stars 
 [22] zero star   three stars four stars  four stars  zero star   one star    zero star  
 [29] zero star   three stars zero star   three stars zero star   zero star   zero star  
 [36] three stars three stars zero star   three stars zero star   zero star   zero star  
 [43] zero star   four stars  zero star   three stars four stars  zero star   three stars
 [50] zero star   four stars  zero star   three stars four stars  three stars three stars
 [57] zero star   three stars zero star   four stars  three stars one star    four stars 
 [64] three stars zero star   four stars  zero star   zero star   zero star   zero star  
 [71] three stars three stars three stars four stars  zero star   four stars  zero star  
 [78] three stars four stars  zero star   zero star   zero star   three stars three stars
 [85] three stars three stars zero star   three stars four stars  three stars one star   
 [92] three stars three stars zero star   four stars  three stars zero star   zero star  
 [99] three stars zero star  
Levels: zero star three stars four stars one star

问题描述 #

我希望生成上述目标柱状图，但编写的R代码中标签未添加成功，代码如下：

factorData005.fact <- factor(factorData005.fact, levels = c("zero star", "three stars", "four stars", "one star"))
df <- data.frame(value = factorData005.fact)
p3 <- ggplot(df, aes(x=value)) + 
  geom_bar(fill=c("red", "green", "cyan", "purple")) + 
  scale_shape_manual(labels=c("zero star", "three stars", "four stars", "one star"))
print(p3)

问题分析与修正代码 #

问题点 #

1. scale_shape_manual是用于调整散点图点形状的函数，和柱状图的标签、填充颜色完全无关，属于用错函数。
2. 直接给geom_bar的fill传颜色向量，无法让ggplot将颜色与类别一一对应，必须通过映射关系实现。

修正后的代码 #

library(ggplot2)

# 保持因子顺序设置（原代码这部分无需修改）
factorData005.fact <- factor(factorData005.fact, levels = c("zero star", "three stars", "four stars", "one star"))
df <- data.frame(value = factorData005.fact)

p3 <- ggplot(df, aes(x = value, fill = value)) + 
  geom_bar() +
  # 正确设置填充颜色与对应标签
  scale_fill_manual(
    values = c("red", "green", "cyan", "purple"),
    labels = c("零星", "三星", "四星", "一星")  # 可根据需求替换为原英文标签
  ) +
  # 可选：添加坐标轴与图例标题，优化图表可读性
  labs(
    x = "星级",
    y = "数量",
    fill = "星级分类"
  ) +
  theme_minimal()  # 可选：应用简洁主题美化图表

print(p3)

关键说明 #

• 将fill映射到value变量，让ggplot识别每个类别对应的颜色规则。
• 使用scale_fill_manual是控制柱状图填充颜色和图例标签的正确方式，既可以指定颜色，也能自定义显示的标签文本。
• 若不需要图例，可添加guides(fill = "none")参数隐藏；若要修改x轴默认标签，直接在labs的x参数中设置即可。

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