在R中计算不同长度时间序列的加权均值方法咨询

核心思路 #

把所有时间序列整合为列表，转换为数据框后按列（对应时间序列的位置）计算均值，自动忽略缺失值（短序列未覆盖的位置会自动补NA），无需手动逐个位置编写计算逻辑。

具体实现步骤（R语言） #

1. 整理时间序列为列表
   将你的5个时间序列a、b、c、d、e放入一个列表，方便统一处理：

ts_list <- list(a = a, b = b, c = c, d = d, e = e)

2. 转换为数据框
   转换后每一列对应时间序列的一个位置，短序列未覆盖的位置会自动填充NA：

ts_df <- as.data.frame(ts_list)

3. 计算每个位置的均值
   使用colMeans函数并设置na.rm = TRUE忽略缺失值，自动按每个位置的可用值数量计算均值：

position_means <- colMeans(ts_df, na.rm = TRUE)

比如第1位会用5个可用值计算平均，第2位用4个，以此类推，完全匹配你手动计算的逻辑。

计算整体加权均值 #

如果需要基于各位置的均值计算整体加权均值，只需定义权重向量后使用weighted.mean函数：

# 示例：根据需求设置每个位置的权重，长度需与position_means一致
weights <- c(0.15, 0.15, 0.1, 0.1, ...) 
weighted_total_mean <- weighted.mean(position_means, weights, na.rm = TRUE)

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