R语言XRD数据集归一化：列命名修正与自动化处理问询

问题背景 #

我有一个持续更新的X射线衍射（XRD）数据集，需在R语言中处理。该数据集由多个xy文件合并为大表格，目标是将每个I_filename列归一化后生成名为I_filename_N的新列。目前已通过以下代码实现归一化，但存在两个问题：

• 生成的新列名为N$I_filename，不符合预期
• 新增列时需手动修改代码指定列序号

现有代码：

# 归一化函数定义
normalize <- function(x){(x - min(x)) / (max(x) - min(x))} 

# 手动指定列进行归一化
XRD_DATA$N <- as.data.frame(lapply(XRD_DATA[2], normalize))

单个xy文件结构示例：

theta_filename   I_filename
    5.00  12
    5.02  17
    5.04  15
    5.06  14
    5.08  18
    5.10  20
    5.12  17
    5.14  14
    5.16  17
    5.18  18
    5.20  15

问题1：修改代码使归一化后的新列名为I_filename_N #

避免将结果存入嵌套数据框，直接对目标列处理后赋值给拼接好的新列名：

# 针对单个指定列（示例为第2列）
target_col <- colnames(XRD_DATA)[2]
XRD_DATA[[paste0(target_col, "_N")]] <- normalize(XRD_DATA[[target_col]])

执行后会生成I_filename_N格式的列名，替代原来的N$I_filename。

问题2：自动化处理所有以I_开头的列 #

先筛选出所有列名以I_开头的列，再循环处理每一列自动生成归一化列：

基础R实现

# 筛选所有以I_开头的列名
i_cols <- grep("^I_", colnames(XRD_DATA), value = TRUE)

# 循环处理每一列
for(col in i_cols) {
  XRD_DATA[[paste0(col, "_N")]] <- normalize(XRD_DATA[[col]])
}

tidyverse/dplyr实现（更简洁）

如果习惯使用tidyverse生态，用dplyr的across函数可以一行完成：

library(dplyr)

XRD_DATA <- XRD_DATA %>%
  mutate(across(starts_with("I_"), ~normalize(.), .names = "{.col}_N"))

两种方式都能自动识别所有I_开头的列，后续新增列时无需修改代码，直接运行即可完成归一化并生成列名_N格式的新列。

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