R语言：在函数内部以变量形式使用关系运算符调用函数

这问题我之前处理类似需求时也琢磨过，核心就是把二元运算符动态转换成可在overlay里调用的函数，不用硬编码每种运算符。直接给你能跑的完整实现：

my.func <- function(data, binary_operator, value) {
  # 将传入的二元运算符转换为可调用的函数
  op_function <- match.fun(binary_operator)
  
  # 调用raster::overlay应用运算符逻辑
  raster::overlay(x = data, fun = function(x) op_function(x, value))
}

关键细节解释 #

• match.fun()的作用：这个函数能自动识别传入的运算符——不管你传的是字符串形式（比如"<"）还是运算符本身（比如<），它都能转换成对应的函数对象，省去了手动判断每种运算符的麻烦。
• 匿名函数适配overlay：overlay要求fun参数接受raster的像素值作为输入，所以我们用一个简单的匿名函数把像素值x和指定的value传给转换后的运算符函数。

使用示例 #

假设你已经有一个raster对象，调用方式非常灵活：

library(raster)

# 创建一个测试用的raster
test_raster <- raster(matrix(runif(100), nrow = 10))

# 方式1：传入字符串形式的运算符
result_less <- my.func(test_raster, "<", 0.5)

# 方式2：直接传入运算符本身
result_greater_eq <- my.func(test_raster, `>=`, 0.7)

这样不管是要做小于、大于、等于还是其他二元运算，只要传入对应的运算符和判定值就行，完全满足你的动态需求。

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