如何在R语言中每7行将前3行指定列替换为NA？

首先生成原始数据框：

df <- data.frame(A=1:50, B=rnorm(50), C=rep(letters, length.out = 50, each=7))

方法1：基础R实现 #

通过创建分组索引，定位每组前3行并替换指定列的值为NA：

# 生成每7行一组的分组标识
group_num <- ceiling(seq_len(nrow(df)) / 7)
# 针对B列，将每组前3行设为NA
df$B[ave(seq_len(nrow(df)), group_num, FUN = function(i) i <= 3)] <- NA

方法2：tidyverse（dplyr）实现 #

借助dplyr的分组和行号功能更直观地处理：

library(dplyr)

df_processed <- df %>%
  group_by(group = ceiling(row_number() / 7)) %>%
  mutate(B = replace(B, row_number() <= 3, NA)) %>%
  ungroup() %>%
  select(-group)

验证结果 #

查看处理后的前15行数据：

head(df_processed, 15)

输出结果与示例一致：

内容的提问来源于stack exchange，提问作者Theresa M.