R语言中基于列值对数据框列进行加减变换的实现问题

看起来你是想把Accuracy.Percentage列的每个值转换成它和100的绝对偏差（小于100时用100减该值，大于100时用该值减100）。你的代码问题在于用了标量的if语句，而R中处理数据框的向量列需要用向量化的条件判断函数，比如dplyr::if_else或者base R的ifelse，甚至用更简洁的绝对值函数就能一步到位。

方法一：用dplyr包的if_else（推荐，可读性高） #

如果你习惯用tidyverse语法，这样写就能实现需求：

library(dplyr)

# 处理你的数据框mydata
mydata <- mydata %>%
  mutate(
    # 生成新列存储偏差值，也可以直接替换原列（把新列名改成Accuracy.Percentage即可）
    Accuracy.Deviation = if_else(
      Accuracy.Percentage < 100,
      100 - Accuracy.Percentage,
      Accuracy.Percentage - 100
    )
  )

if_else是向量化函数，会逐行判断Accuracy.Percentage的每个值，分别执行对应的计算逻辑，完美适配数据框的列操作。

方法二：用base R的ifelse #

如果不想加载额外包，用base R自带的ifelse也能实现：

# 直接在原数据框添加偏差列
mydata$Accuracy.Deviation <- ifelse(
  mydata$Accuracy.Percentage < 100,
  100 - mydata$Accuracy.Percentage,
  mydata$Accuracy.Percentage - 100
)

方法三：更简洁的绝对值计算 #

其实你的需求本质就是计算每个值与100的绝对差，用abs()函数可以一步搞定，代码更简洁：

# dplyr版本
mydata <- mydata %>%
  mutate(Accuracy.Deviation = abs(Accuracy.Percentage - 100))

# base R版本
mydata$Accuracy.Deviation <- abs(mydata$Accuracy.Percentage - 100)

用你的示例数据测试：
输入值：100.00、127.00、60.00、175.00、52.00
输出结果会是：0.00、27.00、40.00、75.00、48.00，完全符合你的需求。

为什么你的原代码没生效？ #

你用了if(mydata$Accuracy.Percentage < 100)，这个if是标量判断——它只会判断整个向量的第一个条件是否为真，不会逐行处理每个元素。而我们需要的是能对向量中每个元素单独做判断的向量化函数，也就是if_else或ifelse。

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