R语言按组填充面板数据空月份的技术求助

你的问题核心是：组内空月份的观测数和上一个非空月份完全一致，需要把非空月份的对应行填充到空月份，而不是简单的逐行向下填充。之前用fill()或na.locf()失效，是因为它们默认按行序逐行填充，只会把上一行的值带下来，没法匹配到对应位置的行。

具体实现方法（用dplyr） #

思路是先给每个组内的观测标记行号，让空月份的每一行能对应到上一个非空月份的同位置行，再按组+行号进行填充：

library(dplyr)

df_filled <- df %>%
  group_by(group) %>%
  # 给每个组内的观测添加行号，确保空月份的行能对应非空月份的同位置行
  mutate(row_id = row_number()) %>%
  group_by(group, row_id) %>%
  # 按组+行号向下填充，每个行号位置用上一个非空值填充
  fill(first_value, second_value, .direction = "down") %>%
  ungroup() %>%
  # 移除临时的row_id列
  select(-row_id)

# 验证结果
print(df_filled)

另一种思路（数据拼接法） #

如果确认每个空月份的观测数和上一个非空月份完全一致，也可以先提取每个组的非空月份数据作为模板，再按月份的观测数重复填充：

library(dplyr)
library(purrr)

# 提取每个组的非空月份数据作为填充模板
template_list <- df %>%
  group_by(group) %>%
  filter(!is.na(first_value)) %>%
  # 给每个非空月份的模板标记分组
  mutate(template_tag = cumsum(c(1, as.integer(month[-1] != month[-n()])))) %>%
  group_by(group, template_tag) %>%
  group_split()

# 遍历原数据的分组月份，匹配模板填充
df_filled <- df %>%
  group_by(group, month) %>%
  group_split() %>%
  map_dfr(function(x) {
    if (all(is.na(x$first_value))) {
      # 找到当前组的上一个非空模板
      target_template <- template_list %>%
        keep(~ .x$group[1] == x$group[1]) %>%
        keep(~ .x$month[1] < x$month[1]) %>%
        last()
      # 替换模板的月份为当前空月份
      target_template$month <- x$month[1]
      target_template
    } else {
      x
    }
  })

两种方法都能得到你想要的df_filled结果，第一种更简洁高效，适配你的场景。

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