如何使用R语言将月度目标结合闰年规则拆分为每日目标

你提供的目标数据表结构如下：

核心逻辑不依赖手动维护月份天数映射表，通过R原生日期计算能力自动识别平/闰年2月天数、大小月天数，避免手动配置的计算误差。

前置说明 #

输入表默认包含3个核心字段，字段名不一致可自行替换代码中对应名称：

• year：4位数字格式的年份
• month：1-12数字格式的月份
• monthly_target：对应年月的月度目标数值

默认拆分规则为月度目标按当月自然日均匀分摊，如果需要按工作日拆分可参考后文的调整方案。

实现代码（推荐tidyverse版本，可读性更高） #

# 首次运行需安装依赖包
# install.packages(c("dplyr", "tidyr", "lubridate"))
library(dplyr)
library(tidyr)
library(lubridate)

# 1. 读入你自己的目标数据表，替换成你的文件读取代码即可
# target_df <- read.csv("你的目标表文件路径.csv")
# 这里构造和示例表结构一致的测试数据
target_df <- data.frame(
  year = c(2023, 2024, 2024, 2024),
  month = c(2, 2, 3, 4),
  monthly_target = c(2800, 2900, 3100, 3000)
)

# 2. 核心拆分逻辑
daily_target <- target_df %>%
  mutate(
    # 生成当月首日、末日日期，日期计算自动适配闰年规则
    month_start = ymd(paste(year, month, "01", sep = "-")),
    month_end = rollforward(month_start),
    total_days = day(month_end)
  ) %>%
  # 逐行生成当月完整自然日序列
  rowwise() %>%
  mutate(date = list(seq.Date(month_start, month_end, by = "day"))) %>%
  unnest(date) %>%
  # 计算每日目标值
  mutate(daily_target = monthly_target / total_days) %>%
  # 选择输出字段
  select(year, month, date, monthly_target, daily_target)

规则校验说明 #

代码自动适配所有日期规则，无需额外配置：

• 闰年2月自动识别为29天，平年2月自动识别为28天：比如测试数据中2023年（平年）2月共28天，2800的月度目标拆分后每日为100；2024年（闰年）2月共29天，2900的月度目标拆分后每日为100，计算逻辑正确
• 大小月自动适配：1/3/5/7/8/10/12月自动计算为31天，4/6/9/11月自动计算为30天

可选调整 #

如果不需要按自然日均匀拆分，而是按工作日拆分，可在生成日期序列后增加过滤逻辑，剔除周末、法定节假日后，用有效工作日天数作为分母计算每日目标即可。

无依赖base R版本（不需要安装第三方包） #

如果环境无法安装第三方包，可直接使用base R实现：

# 读入数据
# target_df <- read.csv("你的目标表文件路径.csv")

# 计算月份起止日期和总天数
target_df$month_start <- as.Date(paste(target_df$year, target_df$month, "01", sep = "-"))
target_df$month_end <- as.Date(format(target_df$month_start + 31, "%Y-%m-01")) - 1
target_df$total_days <- as.integer(format(target_df$month_end, "%d"))

# 拆分生成每日数据
daily_list <- Map(function(ys, ms, mt, ds, de, td){
  data.frame(
    year = ys,
    month = ms,
    date = seq.Date(ds, de, by = "day"),
    monthly_target = mt,
    daily_target = mt / td
  )
}, target_df$year, target_df$month, target_df$monthly_target, target_df$month_start, target_df$month_end, target_df$total_days)

daily_target <- do.call(rbind, daily_list)

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