如何使函数参数成为R中向量的元素？

Question

我有一个非数字元素的向量：

all_z <- c("red","yellow","blue")

我正在尝试创建一个函数，该函数需要参数 z 作为向量中的元素之一。 该函数还有另外两个参数：n (is.numeric = FALSE) 和 y (is.numeric = TRUE)。

参数 n 和 y 导致 output1 和 output2； z 导致输出 3。 目前我的代码看起来像这样（动词和名词是以前定义的向量）：

byColor <- function(n,y,z) {
  if ((is.numeric(n) == FALSE) && (is.numeric(y) == TRUE)){
  output1 <- sample(verb, 1, replace = FALSE)
  output2 <- sample(noun, 1)
 }
}

我的问题是：如何使 output3 仅在参数 z 是向量 all_z 中的元素时才发生？ 我的最终目标是将所有三个输出串在一起，但前提是这三个参数都得到满足。 有没有办法将 z 参数添加到我的“if”语句中？ 目前我可以获得我想要的输出，但它适用于任何非数字参数作为 z 而不仅仅是向量的元素。 我希望我已经写清楚了； 请让我知道我是否应该进一步详细说明。 谢谢！

Answer 1

如果您想知道某个值是否包含在某个向量中，您可以使用%in%函数。 假设all_z已经定义，你可以使用这样的东西。

byColor <- function(n, y, z) {
    if ((is.numeric(n) == FALSE) &&
            (is.numeric(y) == TRUE) && 
            (z %in% all_z)) {
                output1 <- sample(verb, 1, replace = FALSE)
                output2 <- sample(noun, 1)
                output3 <- NULL
    }
}