# 自定义归一化函数
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)
另外一种,指定列:
#所需包的安装和载入
library(ggplot2)
#设置工作目录和载入本地数据:
setwd("D:/Desktop/0000/R")
data<-read.csv("env.csv",header=T,check.names = FALSE)
head(data)
# 指定value列,value为列名
normalized_value <- (data$value - min(data$value)) / (max(data$value) - min(data$value))