如何在R中将月度数据拆解为周度数据？两种实现方案问询

完全可以实现你提出的两种月度数据转周度数据的需求，以下是基于你提供的数据集的具体实现代码，使用tidyverse和lubridate包处理数据与日期：

首先加载所需工具包并导入数据集：

library(tidyverse)
library(lubridate)

# 导入你提供的数据集
df <- structure(list(`Row Labels` = c("X6", "X7", "X8", "X9"), 
                     `2022-11-01` = c(100, 200, 300, 400), 
                     `2022-12-01` = c(160, 200, 300, 400), 
                     `2023-01-01` = c(500, 550, 600, 650)), 
                class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -4L))

方法一：基于当月第一个周一生成周序列 #

该方法会先定位每个月的第一个周一，再生成从该周一到月末的所有周一日期，最后将对应月度数据分配到这些周中：

# 将宽表转换为长格式，便于按月份处理
df_long <- df %>%
  pivot_longer(cols = -`Row Labels`, names_to = "month_date", values_to = "month_value") %>%
  mutate(month_date = ymd(month_date))

# 生成周一序列并关联数据
method1_result <- df_long %>%
  group_by(`Row Labels`, month_date) %>%
  mutate(
    first_day = floor_date(month_date, "month"),
    # 计算当月第一个周一：若当月第一天是周一则直接使用，否则调整到下一个周一
    first_monday = first_day + days(ifelse(wday(first_day, week_start = 1) == 1, 0, 1 - wday(first_day, week_start = 1))),
    # 生成从第一个周一到月末的所有周一日期
    week_dates = list(seq(first_monday, ceiling_date(month_date, "month") - days(1), by = "week"))
  ) %>%
  unnest(week_dates) %>%
  select(`Row Labels`, week_date = week_dates, value = month_value) %>%
  ungroup()

# 查看结果
print(method1_result)

方法二：基于月份起止日期生成覆盖的周序列 #

该方法会直接生成对应月份时间范围内覆盖的所有周（以周一为周起始），再将月度数据分配到这些周中：

# 生成月份覆盖的所有周一序列并关联数据
method2_result <- df_long %>%
  group_by(`Row Labels`, month_date) %>%
  mutate(
    month_start = floor_date(month_date, "month"),
    month_end = ceiling_date(month_date, "month") - days(1),
    # 生成月份起始日和结束日所在周的周一序列
    first_week_monday = floor_date(month_start, "week", week_start = 1),
    last_week_monday = floor_date(month_end, "week", week_start = 1),
    week_dates = list(seq(first_week_monday, last_week_monday, by = "week"))
  ) %>%
  unnest(week_dates) %>%
  select(`Row Labels`, week_date = week_dates, value = month_value) %>%
  ungroup()

# 查看结果
print(method2_result)

可选调整：平均拆分月度数据 #

如果需要将月度数据平均拆分到对应周中（而非直接赋值），可以在unnest后添加一行代码：

mutate(value = value / n())

将其插入到group_by代码块的末尾，即可让每个周获得月度数据的均分份额。

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