R语言如何处理带前置符号的数值完成test*factor乘法计算

示例数据结构参考截图：

test列为因子类型、取值前带</>/<=/>=这类比较前缀符号时，无法直接转数值做乘法，按以下步骤处理即可：

• 先将因子格式的test列转为字符串，用正则匹配删除开头所有比较类符号，提取出纯数字部分
• 把提取到的数字内容转为数值型，再和factor列执行乘法运算

完整可运行代码 #

# 构建示例数据
df<-structure(list(test = structure(c(3L, 2L, 5L, 4L, 1L), .Label = c("<=1.5", 
"<5", ">=1", ">7.8", "6"), class = "factor"), factor = c(2, 4, 
6, 9, 8)), row.names = c(NA, -5L), class = "data.frame")

# 提取test列中的数值部分
df$test_value <- as.numeric(
  gsub("^[<>=]+", "", as.character(df$test))
)

# 执行乘法计算
df$calc_result <- df$test_value * df$factor

运行结果 #

处理后的数据框输出如下：

test factor test_value calc_result
1  >=1      2        1.0         2.0
2   <5      4        5.0        20.0
3     6      6        6.0        36.0
4 >7.8      9        7.8        70.2
5 <=1.5      8        1.5        12.0

如果你后续需要保留比较判断逻辑，可以单独提取比较符号存为新列：df$compare_tag <- gsub("[0-9\\.]+", "", as.character(df$test))，不会和数值计算逻辑冲突。

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