RStudio/R新手求助：为数据框中Blue值分块赋值的实现方法

针对你的需求，这里提供两种简洁易读的实现方法，适合R新手快速上手：

方法1：使用dplyr（tidyverse生态，代码更直观） #

如果还没安装dplyr包，先运行install.packages("dplyr")完成安装，之后用以下代码处理：

library(dplyr)

# 假设你的数据框名为df，执行以下代码生成目标列
df <- df %>%
  mutate(
    # 累计统计Blue的出现次数
    blue_count = cumsum(Color == "Blue"),
    # 根据计数结果赋值
    Color_block = case_when(
      Color != "Blue" ~ NA_integer_,
      blue_count <= 10 ~ 1L,
      TRUE ~ 2L
    )
  ) %>%
  # 可选：移除中间生成的blue_count辅助列
  select(-blue_count)

方法2：Base R写法（无需额外安装包） #

如果不想加载第三方包，直接用基础R代码即可实现：

# 假设你的数据框名为df
# 先统计每一行之前（含当前行）Blue的累计出现次数
blue_count <- cumsum(df$Color == "Blue")

# 初始化目标列为NA
df$Color_block <- NA_integer_
# 给前10次出现的Blue赋值1
df$Color_block[df$Color == "Blue" & blue_count <= 10] <- 1L
# 给第10次之后的Blue赋值2
df$Color_block[df$Color == "Blue" & blue_count > 10] <- 2L

两种方法都能实现需求：非Blue行保持NA，前10次出现的Blue标记为1，后续出现的Blue标记为2，代码逻辑清晰且无需复杂自定义函数。

内容的提问来源于stack exchange，提问作者New.researcher