如何仅将DataFrame某列的非NA值向下复制至下一行？

针对你的需求——只把indicator列中非NA值复制到紧接着的下一行（而非所有后续NA行），这里有两个高效的方法，适合你2万行的大数据集：

方法一：基础R（高效，适合大样本） #

首先要纠正你原代码里的关键错误：判断NA不能用!= NA，因为NA和任何值比较结果都是NA，which()会忽略这些NA，导致找不到正确的位置。我们需要用is.na()来检测缺失值。

步骤如下：

1. 找到indicator列所有非NA值的行索引
2. 过滤掉最后一行的非NA值（避免+1后超出数据集范围）
3. 将这些索引+1的行，赋值为对应非NA值

代码实现：

# 找到非NA值的行索引
non_na_rows <- which(!is.na(df$indicator))

# 过滤掉最后一行的非NA（防止索引越界）
valid_rows <- non_na_rows[non_na_rows < nrow(df)]

# 仅向下复制到紧邻的下一行
df$indicator[valid_rows + 1] <- df$indicator[valid_rows]

运行后你的示例数据会得到期望的结果：

date ID indicator
1  2011-02-01  A      <NA>
2  2011-02-02  A      <NA>
3  2011-02-03  A      <NA>
4  2011-02-04  A     2.025
5  2011-02-05  A     2.025
6  2011-02-01  B      <NA>
7  2011-02-02  B     6.777
8  2011-02-03  B     6.777
9  2011-02-04  B      <NA>
10 2011-02-05  B      <NA>

方法二：dplyr（tidyverse风格） #

如果你习惯用tidyverse工具，可以用dplyr::case_when()来实现逻辑判断，代码更直观：

library(dplyr)

df <- df %>%
  mutate(indicator = case_when(
    # 当前行的前一行是非NA值，就复制前一行的值
    !is.na(lag(indicator)) ~ lag(indicator),
    # 其他情况保持原数值
    TRUE ~ indicator
  ))

这个方法的逻辑是：检查每一行的前一行（lag(indicator)）是否非NA，如果是，就把当前行的indicator替换成前一行的值；否则保持原样。同样能精准实现“仅复制到紧邻下一行”的需求。

注意：不要用tidyr::fill() #

很多人会想到用fill(indicator, .direction = "down")，但这个函数会把非NA值持续填充到所有后续的NA行，不符合你“仅复制到下一行”的要求，所以不要用这个方法。

内容的提问来源于stack exchange，提问作者B-Z