# 自定义归一化函数
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)