Create R函数，用于标准化多个变量并创建新列

# 定义标准化函数
standardize <- function(data, vars) {
  # 计算每个变量的均值和标准差
  means <- colMeans(data[, vars])
  stds <- apply(data[, vars], 2, sd)
  
  # 标准化每个变量并创建新列
  for (var in vars) {
    new_col <- paste0(var, "_standardized")
    data[new_col] <- (data[, var] - means[var]) / stds[var]
  }
  
  return(data)
}

# 使用示例
data <- data.frame(
  var1 = c(1, 2, 3, 4, 5),
  var2 = c(10, 20, 30, 40, 50),
  var3 = c(100, 200, 300, 400, 500)
)

# 标准化var1和var2，并创建新列
data <- standardize(data, c("var1", "var2"))