R语言ggplot绘制折线图异常显示为柱状图问题求助

你的代码和分组逻辑确实存在问题，具体问题和修正方法如下：

核心问题点 #

• group_by(dc$year, dc$month)完全无效：一方面在dplyr管道里用dc$引用列是错误写法（应该直接写列名），另一方面分组后没有做任何聚合计算，也没把分组后的数据传给ggplot，ggplot仍然使用原始数据dc。
• 未将year和month合并为连续时间轴：直接用数值型year做x轴，同一年的不同月份数据会重叠在同一个x位置，导致折线无法按时间顺序连接，视觉上可能呈现类似“柱状”的效果。

修正后的代码 #

步骤1：处理数据（构造时间轴+聚合） #

先把年月合并成完整日期，再按月份聚合销售额（假设你需要每月总销售额，若已有月度数据可跳过聚合步骤）：

library(dplyr)
library(ggplot2)

# 生成日期列并聚合月度销售额
dc_processed <- dc %>%
  # 将年月转为日期格式（默认每月1号，不影响折线顺序）
  mutate(date = as.Date(paste(year, month, "01", sep = "-"))) %>%
  # 按日期分组，计算每月总销售额
  group_by(date) %>%
  summarise(total_sales = sum(sales)) %>%
  ungroup()

步骤2：绘制折线图 #

用处理好的连续时间轴画图：

ggplot(data = dc_processed) +
  geom_line(aes(x = date, y = total_sales), col = "red", lwd = 1) +
  geom_point(aes(x = date, y = total_sales)) +
  # 可选：优化x轴日期显示格式
  scale_x_date(date_labels = "%Y-%m", date_breaks = "1 month")

额外提示 #

• 如果你的sales已经是月度数值（无需聚合），可以跳过group_by和summarise，直接构造date列后画图。
• 在dplyr管道中使用group_by时，直接写列名即可，不用加数据框名$，管道会自动识别当前处理的数据框。

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