如何在R中存储scale函数的缩放参数供后续使用

你当前使用的scale()函数返回的结果本身就内置了缩放用到的均值和标准差参数，只需提取对应的属性值即可存入新数据集，具体实现如下： #

单字段缩放参数提取（匹配你当前的代码场景） #

# 1. 先接收scale返回的完整结果（包含属性值）
scaled_vec <- scale(df$Monto_Trx_RECEP, center = TRUE, scale = TRUE)
# 2. 将缩放后的数值赋值回原数据框列，as.numeric可清除冗余属性避免后续运算异常
df$Monto_Trx_RECEP <- as.numeric(scaled_vec)
# 3. 提取缩放参数存入新数据集
scale_params <- data.frame(
  # 字段名，方便后续多参数匹配
  col_name = "Monto_Trx_RECEP",
  # 缩放用到的均值（对应center参数的实际计算值）
  center_val = attr(scaled_vec, "scaled:center"),
  # 缩放用到的标准差（对应scale参数的实际计算值）
  scale_val = attr(scaled_vec, "scaled:scale")
)

注意：scaled:center和scaled:scale是R的scale()函数生成的固定属性名，提取时不要修改拼写 #

多字段批量缩放+参数保存（扩展场景） #

如果需要对多个字段做标准化同时统一存储所有参数，可以用循环实现：

# 定义所有需要缩放的字段名
need_scale_cols <- c("Monto_Trx_RECEP", "col2", "col3")
# 初始化空的参数存储数据集
scale_params <- data.frame()

for (col in need_scale_cols) {
  scaled_res <- scale(df[[col]], center = TRUE, scale = TRUE)
  df[[col]] <- as.numeric(scaled_res)
  # 逐行追加参数
  scale_params <- rbind(scale_params, data.frame(
    col_name = col,
    center_val = attr(scaled_res, "scaled:center"),
    scale_val = attr(scaled_res, "scaled:scale")
  ))
}

后续新数据应用相同缩放规则的方法 #

如果后续要对测试集/新数据用同样的规则做标准化，直接调用保存的参数计算即可，不需要重新跑scale()：

# 示例：对新数据new_df的Monto_Trx_RECEP字段做相同标准化
target_param <- scale_params[scale_params$col_name == "Monto_Trx_RECEP", ]
new_df$Monto_Trx_RECEP <- (new_df$Monto_Trx_RECEP - target_param$center_val) / target_param$scale_val

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