R语言对加载的数据归一化

# 自定义归一化函数
custom_normalize <- function(x) {
  # 在这里编写你的归一化逻辑
  normalized <- (x - min(x)) / (max(x) - min(x))
  return(normalized)
}

# 加载CSV数据
data <- read.csv("your_data.csv", header = TRUE)

# 应用自定义归一化函数
data_scaled <- data
# 获取数据表中的数值列名称
numeric_cols <- names(data)[sapply(data, is.numeric)]
# 归一化数值列
data_scaled[numeric_cols] <- lapply(data_scaled[numeric_cols], custom_normalize)

# 打印归一化后的数据
print(data_scaled)