如何在R Studio的ggplot2中绘制季度收入分组柱状图？代码错误排查

以下是你的代码中存在的问题：

• 变量引用与赋值混乱：将dataframe_1赋值给elections后未使用，绘图时调用了不存在的elections_long变量，正确应该使用处理后的长格式数据dataframe_1_long。
• melt函数参数错误：melt函数的分组参数应为id.vars而非id，且第一个参数应该是原始数据框dataframe_1，而非Revenue（Revenue是列名，不是数据框）。正确写法应为melt(dataframe_1, id.vars = "Year")。
• 列名重命名对象错误：你修改了原始宽格式数据dataframe_1的列名，实际应该给melt生成的长格式数据dataframe_1_long重命名列名，对应季度和收入列。
• 填充颜色数量不足：目标图表包含4个季度，但你仅设置了2种填充颜色，需要补充为4种对应每个季度的颜色。
• 冗余代码：elections <- dataframe_1这行完全没用，可以删除。

修正后的代码示例 #

# 仅在未安装时执行安装
if (!require(ggplot2)) install.packages("ggplot2")
if (!require(reshape2)) install.packages("reshape2")

library(ggplot2)
library(reshape2)

# 将宽格式转换为长格式
dataframe_1_long <- melt(dataframe_1, id.vars = "Year")
# 重命名长格式数据的列名
names(dataframe_1_long) <- c("Year", "Quarter", "Revenue")

ggplot(dataframe_1_long, aes(x = Year, y = Revenue, fill = Quarter)) +
  geom_bar(stat="identity", position = position_dodge(width = 0.8)) + 
  ggtitle("Quarterly Revenue") +
  labs(y= "Quarterly Revenue", x = "Year") +
  # 补充4种对应季度的颜色
  scale_fill_manual(values = c("#53a0ed", "#f71d1d", "#f7d11d", "#1df71d")) +
  labs(fill = "Quarter")

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