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)

另外一种,指定列:

#所需包的安装和载入
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))

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

清纯世纪

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值