R语言dataframe行条件计算：大于100%的百分比值转换实现

你的new列当前为带%符号的字符串类型，无法直接做数值运算，按以下步骤处理即可：

• 先移除列内的百分号，将内容转换为可计算的数值类型
• 做条件判断：数值大于100时，用200减去原数值作为结果；小于等于100时保留原值
• 将计算后的数值重新格式化为带1位小数、末尾拼接%的字符串，写回原列

基础R实现代码（无需加载额外包） #

# 提取数值部分
pct_val <- as.numeric(gsub("%", "", jointdataset1$new))
# 按规则条件计算
pct_val <- ifelse(pct_val > 100, 200 - pct_val, pct_val)
# 格式化回百分比格式覆盖原列
jointdataset1$new <- paste0(sprintf("%.1f", pct_val), "%")

结果验证 #

运行代码后查看jointdataset1$new，输出如下，符合预期：

[1] "100.0%" "72.7%"  "100.0%" "80.0%"  "100.0%" "75.0%"  "66.7%"  "85.7%"
 [9] "80.0%"  "90.9%"  "92.3%"  "33.3%"

原数据中120.0%计算后为80.0%，109.1%计算后为90.9%，其余不大于100%的值均保持不变。

dplyr实现代码（tidyverse风格） #

如果日常使用tidyverse生态的函数，也可以用以下写法：

library(dplyr)
library(stringr)

jointdataset1 <- jointdataset1 %>%
  mutate(
    pct_val = as.numeric(str_remove(new, "%")),
    pct_val = ifelse(pct_val > 100, 200 - pct_val, pct_val),
    new = paste0(sprintf("%.1f", pct_val), "%")
  ) %>%
  select(-pct_val)

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