R语言如何将指定值批量填充到表格指定行号范围的对应列中

实现方案 #

你可以通过以下两种方式完成批量填充：

1. 循环实现（逻辑直观，适合小表）

首先预处理区间边界，再遍历填充：

# 注意：不要用`table`作为自定义变量名，它是R内置函数名，建议提前重命名为df
# 假设你的编码存储对象名为code_df，先提取编码为向量
area_codes <- code_df[, "Area Code (Origin)"]

# 构造每个区间的结束行，最后一个区间结束为原表格最后一行
end_rows <- c(row_values[-1] - 1, nrow(df))

# 初始化目标列
df$`Area Codes (Destinations)` <- character(nrow(df))

# 遍历填充每个区间
for (i in seq_along(area_codes)) {
  start_row <- row_values[i]
  end_row <- end_rows[i]
  df$`Area Codes (Destinations)`[start_row:end_row] <- area_codes[i]
}

2. 向量化实现（效率更高，适合大表）

用findInterval直接匹配行号对应的编码索引，一行即可完成填充：

area_codes <- code_df[, "Area Code (Origin)"]
df$`Area Codes (Destinations)` <- area_codes[findInterval(1:nrow(df), row_values)]

验证 #

填充完成后可以抽查区间确认正确性：

# 检查第一个编码填充的区间首尾
head(df[df$`Area Codes (Destinations)` == "E41000293", ])
tail(df[df$`Area Codes (Destinations)` == "E41000293", ])

# 检查第二个编码填充的区间开头
head(df[df$`Area Codes (Destinations)` == "E41000294", ])

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