R语言中基于动态创建的数据框循环添加列的技术问询

嘿，作为R新手能明确自己的思路真的很棒！我来帮你把这个需求落地成可运行的代码，完全按照你提到的「创建连续两行动态数据框+循环统计」的思路来，另外再补一个更高效的简化方案，方便你后续处理更大的数据~

首先，先把你提供的示例数据框搭出来：

# 构建你给出的示例数据
data_count <- data.frame(
  A = c(1, 5, 3, 3, 5),
  B = c(2, 6, 2, 4, 4),
  C = c(3, 5, 1, 5, 3),
  D = c(4, 4, 2, 6, 2)
)

假设我们要统计的特定值是4（你可以随时把这个值改成你需要的目标值），接下来一步步实现你的思路：

1. 先准备结果存储的容器 #

我们先建一个空的数据框来存每列的统计结果，之后可以把它合并到原数据里：

# 初始化结果数据框，用来记录每列的统计次数
result_counts <- data.frame(Column = colnames(data_count), Count = numeric(ncol(data_count)))

2. 遍历连续行对，创建动态数据框并统计 #

我们需要遍历所有连续的两行组合（比如第1-2行、第2-3行…总共会有nrow(data_count)-1组），对每组生成data_dynamic，然后检查每列是否两行都是目标值：

# 定义你要统计的特定值
target_value <- 4

# 循环遍历每一组连续行
for (i in 1:(nrow(data_count)-1)) {
  # 创建动态数据框：取第i行和第i+1行
  data_dynamic <- data_count[i:(i+1), ]
  
  # 对每一列检查，若两行都是目标值，就给对应列的计数+1
  for (col_idx in 1:ncol(data_count)) {
    if (all(data_dynamic[, col_idx] == target_value)) {
      result_counts$Count[col_idx] <- result_counts$Count[col_idx] + 1
    }
  }
}

3. 把统计结果添加为原数据框的新列 #

现在把统计好的次数作为新列加到原数据框里，这样就能直观看到每列的统计结果了：

# 循环给原数据框添加统计列，列名格式为「原列名_count」
for (col_name in colnames(data_count)) {
  # 找到对应列的统计次数
  count_val <- result_counts$Count[result_counts$Column == col_name]
  # 添加新列
  data_count[[paste0(col_name, "_count")]] <- count_val
}

运行完这些代码后，你看data_count就会多出A_count到D_count这几列啦！比如示例里：

• D列第1、2行都是4，所以D_count是1
• B列第4、5行都是4，所以B_count是1
• A和C列没有连续两行都是4的情况，所以它们的count值是0

额外推荐：更高效的简化方案 #

其实你不需要每次都创建动态数据框，R里有更简洁的写法，比如用dplyr包的lag函数（如果没装的话先跑install.packages("dplyr")安装）：

library(dplyr)

target_value <- 4

# 一行代码搞定所有列的统计
count_results <- data_count %>%
  summarise(across(everything(), ~sum(. == target_value & lag(.) == target_value, na.rm = TRUE)))

# 把统计结果转成适合合并的格式，再加到原数据框
count_results_t <- t(count_results) %>% as.data.frame()
colnames(count_results_t) <- "count"
count_results_t$Column <- rownames(count_results_t)

# 合并到原数据框，并重命名新列
data_count_with_counts <- cbind(data_count, count_results_t[match(colnames(data_count), count_results_t$Column), "count"])
colnames(data_count_with_counts)[5:8] <- paste0(colnames(data_count), "_count")

这个方法不用嵌套循环，代码更简洁，处理大数据的时候速度也会快很多，你可以根据自己的习惯选一种用~

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