按分组计算众议院得票率三年滚动均值遇NA问题求助

核心问题 #

你把year加入了group_by的分组变量里，这会导致每个分组仅包含单个年份的数据。滚动窗口大小设为3时，没有足够的数据点计算均值，结果自然全是NA。

修正代码 #

方法1：使用rollmean

test_fixed <- votemargin %>%
  group_by(state_po, cd) %>%
  arrange(year, .by_group = TRUE) %>%  # 按年份排序，保证时间序列顺序正确
  mutate(rollavg3 = rollmean(house_votemargin, k = 3, fill = NA, align = 'right')) %>%
  ungroup()

方法2：使用rollapply

test_fixed2 <- votemargin %>%
  group_by(state_po, cd) %>%
  arrange(year, .by_group = TRUE) %>%
  mutate(rollavg3 = rollapply(house_votemargin, width = 3, FUN = mean, fill = NA, align = 'right')) %>%
  ungroup()

关键注意事项 #

• 每个state_po + cd的分组里，必须至少有3个年份的观测值，否则前两个年份的rollavg3仍会是NA（这是滚动计算的正常现象）。
• 如果数据存在年份缺失，先补全连续年份的空值再计算，比如用tidyr::complete(year = full_seq(year, 1))，避免滚动均值基于非连续数据计算。

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