R中ifelse语句的多个条件[重复]

Question

这个问题已经在这里有了答案：

• 如何创建一个向量来指示一个向量的元素与另一个向量中的任何元素之间的匹配？ 1个答案

responses$Status具有多种状态：已Invited, Attended, Registered, Downloaded, Sent, Added

我尝试使用以下代码创建新的二进制列：

responses$hasresponded <- ifelse(responses$Status == c("Responded", "Attended", "Downloaded", "Contacted", "Requested"),1,0)

这段代码可以运行，但是并没有执行我想要的操作。 也就是说，为这些状态中的任何一种("Responded", "Attended", "Downloaded", "Contacted", "Requested")编码为1，其余状态为0。

Answer 1

%in%是您的朋友。

为了提高可读性，请进行以下说明：

OKresp <- c("Responded", "Attended", 
        "Downloaded", "Contacted", "Requested")
responses$hasresponded <- as.numeric(responses$Status %in% OKresp)

要么

responses <- transform(responses,
          hasreponded = Status %in% OKresp)