R语言跨年度按月聚合后绘制X轴为月份的Plotly柱状图问题

• 聚合逻辑错误：仅使用month(Week)作为分组依据，没有区分年份，会把2020年和2021年的同月数据合并求和，不符合分年份统计的需求
• 绘图调用不存在的列：aggregate生成的结果默认列名为month(Week)，不存在你代码中调用的Month列，因此x轴无法正常渲染内容

第一步：修正聚合逻辑 #

library(lubridate)
# 先清除Week为NA的行，避免计算报错
re_clean <- re[!is.na(re$Week), ]
# 同时按年份、月份分组聚合
bymonth <- aggregate(First ~ year(Week) + month(Week), data = re_clean, FUN = sum)
# 重命名列方便后续调用
colnames(bymonth) <- c("年份", "月份", "First求和值")
# 生成格式化的年月标签作为x轴显示内容，格式为"2020-01"
bymonth$年月标签 <- paste0(bymonth$年份, "-", sprintf("%02d", bymonth$月份))

第二步：修正plotly绘图代码 #

library(plotly)
p <- plot_ly() %>% 
  add_bars(data = bymonth, x = ~年月标签, y = ~First求和值, name = "First", 
           marker = list(color = "#3E5B84")) %>%
  layout(xaxis = list(title = "年月"), yaxis = list(title = "First求和结果"))
# 查看图表
p

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