R语言如何编写基于向量最大值的数值缩放自定义函数

R自定义函数实现 #

你可以直接用下面的通用函数实现需求：

scale_by_max_first_digit <- function(x) {
  # 校验输入必须为数值向量
  if (!is.numeric(x)) stop("输入参数必须是数值型向量")
  # 提取向量非NA的最大值，兼容含缺失值的场景
  max_val <- max(x, na.rm = TRUE)
  # 计算最大值的位数
  digit_count <- floor(log10(max_val)) + 1
  # 提取最高位数字
  first_digit <- floor(max_val / 10^(digit_count - 1))
  # 生成缩放基数
  base <- first_digit * 10^(digit_count - 1)
  # 返回缩放后的向量
  return(x / base)
}

测试验证 #

用你给出的示例数据测试：

mydata <- c(365673, 478934, 897464, 254778, 678899)
newdata <- scale_by_max_first_digit(mydata)
newdata
# 输出结果和你预期一致：
# [1] 0.4570913 0.5986675 1.1218300 0.3184725 0.8486238

功能说明 #

• 自动兼容含缺失值的向量：计算最大值时默认跳过NA值，不会报错
• 输入校验：传入非数值向量时会主动抛出明确的错误提示
• 通用适配：不管最大值是几位数都可以自动计算对应的缩放基数，比如最大值是5678时会自动生成基数5000，最大值是92时自动生成90作为基数

内容的提问来源于stack exchange，提问作者Faryan