R中的ifelse行为

Question

首先，我声明我检查了ifelse上的所有相关问题，但没有成功。 我正在尝试使用ifelse根据月份在野生动植物物种中添加一个因子（交配期）。 该数据库的示例如下：

> DB <- data.frame(ID = 1:6, Month = 1:12)
colnames(DB) <- c("ID","Month")

我试过的是：

Period<-with(DB,ifelse(Month==c(2,3,4,5,6,7,8,9,10),"M","R")))

但结果不符合条件：

(Period)[1] "R" "R" "R" "R" "R" "R" "R" "R" "R" "R" "R" "R"

还有一个警告：

Warning message:
In Month == c(2, 3, 4, 5, 6, 7, 8, 9, 10) :
longer object length is not a multiple of shorter object length`

令人惊讶的是，当我在真实的数据库上启动脚本时，会发生两件事：

• 在新的“期间”栏中，出现一些M
• 没有警告发出

我现在对ifelse工作方式感到困惑。 我希望有人能阐明此功能的工作原理以及如何正确键入脚本以获得正确的结果。

Answer 1

使用%in%如下所示：

Period<-with(DB,ifelse(Month %in% c(2,3,4,5,6,7,8,9,10),"M","R"))
Period
 [1] "R" "M" "M" "M" "M" "M" "M" "M" "M" "M" "R" "R"

Answer 2

您的比较格式错误。 ifelse一次比较一个元素，而Month == 2:10将成对比较元素并返回一个向量，该向量指示每个成对比较是对还是对。

您想使用%in% ，根据元素是否在向量中，该值返回true或false：

Period<-with(DB,ifelse(Month %in% 2:10,"M","R")))