如何用R语言按城市与星期几聚合月度日均数据？

原代码问题说明 #

1. wday()函数参数错误：该函数仅需传入日期列，不能将city_name作为参数传入
2. 缺少按city_name分组的逻辑：需要同时将城市名称和转换后的星期几作为分组维度

正确代码实现 #

首先确保加载dplyr和lubridate包（wday()是lubridate包的函数）：

library(dplyr)
library(lubridate)

m_wday_summary <- df %>%
  # 按城市名称 + 日期对应的星期几分组（label=TRUE输出周一/周二这类可读标签）
  group_by(city_name, wday = wday(Date, label = TRUE)) %>%
  # 对x1-x3批量计算均值、最小值、最大值
  summarise(across(x1:x3, 
                   list(mean = ~mean(.x, na.rm = TRUE),
                        min = ~min(.x, na.rm = TRUE),
                        max = ~max(.x, na.rm = TRUE))),
            .groups = "drop") # 可选参数：取消分组状态，返回普通数据框

示例结果说明 #

基于你提供的样本数据，运行后会得到如下结构的结果（仅展示部分行）：

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