R 当输入相应的变量时，如何生成返回值的函数？

我正在尝试创建一个函数，当我输入“apple”时，该函数将返回值“1”

---

数据我们可以使用
子集

unlist(subset(data, fruit == "apple", select = 'number'), use.names = FALSE)
#[1] 1

或者使用
[

data$number[data$fruit == "apple"]


它可以包装为一个函数

f1 <- function(dat, colNm1, colNm2, stringVal) {
         dat[[colNm2]][dat[[colNm1 == stringVal]
   }

f1(data, "fruit", "number", "apple")

f1
f1 <- function(dat, colNm1, colNm2, stringVal) {
         dat[[colNm2]][dat[[colNm1 == stringVal]
   }

f1(data, "fruit", "number", "apple")