基于R语言根据lk变量动态修改数据中statue字段的实现方案

第一步：构造示例数据集 #

先还原你提供的数据集：

df <- data.frame(
  statue = c("t", "n", "n", "n", "t", "n", "t", "t", "n", "t"),
  cost = c(43, 5, 27, 26, 39, 12, 42, 38, 39, 25),
  income = c(21, 17, 21, 35, 38, 22, 13, 32, 15, 38)
)

# 生成1-9的随机变量lk
lk <- sample(1:9, 1)

第二步：按规则动态修改statue字段 #

通过条件判断+排序筛选实现需求，核心逻辑是先计算需要转换的条数，再按指定字段排序定位目标行：

# 统计当前statue为"t"的数量
t_count <- sum(df$statue == "t")

if (lk > t_count) {
  # 情况1：将部分"n"转为"t"
  convert_num <- lk - t_count
  # 筛选statue为"n"的行，按cost升序排序后取前convert_num条的原始索引
  target_rows <- df[df$statue == "n", ]
  sorted_idx <- rownames(target_rows)[order(target_rows$cost)][1:convert_num]
  df[sorted_idx, "statue"] <- "t"
} else {
  # 情况2：将部分"t"转为"n"
  convert_num <- t_count - lk
  # 筛选statue为"t"的行，按income降序排序后取前convert_num条的原始索引
  target_rows <- df[df$statue == "t", ]
  sorted_idx <- rownames(target_rows)[order(-target_rows$income)][1:convert_num]
  df[sorted_idx, "statue"] <- "n"
}

代码说明 #

• t_count：先统计当前statue为"t"的总条数，作为分支判断的核心依据
• 情况1：当lk大于t_count时，计算需要从"n"转"t"的条数，筛选所有"n"行按cost从小到大排序，取前指定条数修改
• 情况2：当lk小于等于t_count时，计算需要从"t"转"n"的条数，筛选所有"t"行按income从大到小排序，取前指定条数修改
• 使用rownames获取原始数据集索引，避免排序后索引混乱的问题

测试验证 #

• 若lk=7且t_count=5：convert_num=2，会将cost最小的两个"n"行（第2、6行）的statue改为"t"
• 若lk=3且t_count=5：convert_num=2，会将income最大的两个"t"行的statue改为"n"

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