如何基于日期的日区间修改R列表数值（日1-7时数值翻倍）

首先需要将字符串格式的日期转换为R的日期对象，才能提取日部分进行条件判断，以下是具体实现步骤：

方法一：基础R原生实现 #

# 将字符串日期转为R标准日期对象（原格式为dd/mm/yyyy）
list1$date <- as.Date(list1$date, format = "%d/%m/%Y")

# 生成逻辑索引：判断日期的日部分是否在1-7之间
day_idx <- as.integer(format(list1$date, "%d")) >= 1 & as.integer(format(list1$date, "%d")) <= 7

# 对符合条件的value1、value2执行翻倍操作
list1$value1[day_idx] <- list1$value1[day_idx] * 2
list1$value2[day_idx] <- list1$value2[day_idx] * 2

# 查看结果
list1$value1
# [1] 200 400 600 200 400 600 100 200 300 100 400
list1$value2
# [1] 2000 4000 6000 2000 4000 6000 1000 2000 3000 1000 4000

方法二：用lubridate包简化日期处理 #

如果习惯使用tidyverse工具链，lubridate包可以更简洁地提取日期组件：

library(lubridate)

# 自动识别dd/mm/yyyy格式并转为日期对象
list1$date <- dmy(list1$date)

# 生成逻辑索引
day_idx <- day(list1$date) %>% between(1, 7)

# 修改数值
list1$value1[day_idx] <- list1$value1[day_idx] * 2
list1$value2[day_idx] <- list1$value2[day_idx] * 2

两种方法均能得到你预期的输出结果。

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