如何在R中计算银行利率连续变动之间的平均间隔天数？

假设你的数据集名为df，包含date（日期）和bank_rate（银行利率）两列，下面提供两种适合R新手的实现方法：

方法1：合并相同利率的所有时间段计算平均 #

如果数据中存在利率重复出现的情况（比如利率下调后又回升），这种方法会把相同利率的所有持续时间合并后计算平均：

1. 先确保日期列是R能识别的日期格式（根据你的实际日期格式调整format参数，比如"%d/%m/%Y"对应日/月/年格式）：

df$date <- as.Date(df$date, format = "%Y-%m-%d")

2. 用dplyr包分组计算每个利率的起止日期和持续天数（没装dplyr先运行install.packages("dplyr")）：

library(dplyr)

# 分组统计每个利率的首次、末次出现日期，计算持续天数
rate_durations <- df %>%
  group_by(bank_rate) %>%
  summarise(
    start_date = min(date),
    end_date = max(date),
    duration_days = as.numeric(end_date - start_date)
  )

# 计算平均持续天数
average_duration <- mean(rate_durations$duration_days)

方法2：计算每次连续变动的间隔天数（更贴合需求） #

如果需要计算每次利率变动前后的间隔（比如从利率A变到B的天数，B变到C的天数，再求这些天数的平均），步骤如下：

1. 先按日期排序数据，确保时间顺序正确：

df <- df %>% arrange(date)

2. 标记出利率发生变化的行，提取所有变动节点的日期：

df <- df %>%
  mutate(
    # 标记当前行利率是否和上一行不同
    rate_changed = bank_rate != lag(bank_rate, default = first(bank_rate))
  )

# 提取所有变动节点的日期（包括第一个日期作为起始点）
change_dates <- df$date[df$rate_changed | row_number() == 1]

3. 计算相邻变动节点的天数差，再求平均值：

# 计算日期差并转为数值（天数）
duration_days <- diff(change_dates) %>% as.numeric()

# 得到平均间隔天数
average_duration <- mean(duration_days)

新手注意事项 #

• 确认日期格式匹配：如果转换日期时出错，检查format参数是否和你的数据日期格式一致（比如"%d-%b-%Y"对应"01-Jan-2023"这种格式）
• 数据必须按日期排序：否则计算的时间差会出错
• 如果运行代码提示找不到函数，先安装对应的包（比如dplyr）

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