R语言如何按2的幂次区间规则转换data.frame中的数值

你可以先自定义符合规则的转换函数，再批量应用到整个data.frame的所有列，以下是两种常用实现方案：

方案1：tidyverse 风格实现（可读性更高） #

转换规则可以通过对数计算简化，无需逐条枚举区间，首先构造自定义映射函数：

# 加载依赖包
library(dplyr)

# 构造示例数据
df <- data.frame(
  V1 = c(0, 1, 3, 7, 15, 28, 99, 140, 190),
  V2 = c(900, 5, 2, 0, 33, 234, 100, 22, 9),
  V3 = c(3, 44, 55, 23, 399, 34, 61, 3, 0)
)

# 自定义转换函数
power2_map <- function(x) {
  case_when(
    x == 0 ~ 0,
    x >= 128 ~ 8,
    TRUE ~ floor(log2(x)) + 1
  )
}

# 对全列应用转换规则
df_result <- df %>%
  mutate(across(everything(), power2_map))

如果仅需要对指定列做转换，将everything()替换为列名向量（如c(V1, V2)）即可。

方案2：Base R 实现（无需安装额外包） #

# 构造示例数据
df <- data.frame(
  V1 = c(0, 1, 3, 7, 15, 28, 99, 140, 190),
  V2 = c(900, 5, 2, 0, 33, 234, 100, 22, 9),
  V3 = c(3, 44, 55, 23, 399, 34, 61, 3, 0)
)

# 批量对所有列应用转换规则
df_result <- as.data.frame(lapply(df, function(x) {
  ifelse(x == 0, 0,
         ifelse(x >= 128, 8,
                floor(log2(x)) + 1))
}))

两种方案输出的结果均和你给出的预期结果完全一致。

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