如何根据其他变量的条件生成二进制变量？

Question

我再次询问这类问题道歉，但将R的世界是如此之大，有时我会感到失落，即使我看过一些与R. 相关的最好的书，我有以下DB

的

ID=rep((1:3),3) 
x<-as.Date("2013-1-1") 
y<-as.Date("2013-1-2") 
z<-as.Date("2013-1-3") 
DATE<-c(x,x,x,y,x,y,z,z,z) 
TRAP<-c(1,1,1,3,2,3,2,1,3) 
IN<-data.frame(ID,DATE,TRAP) 

，我想以产生根据以下条件的二进制变量（RESULT）：如果日期和TRAP是对于不同的ID相同，则结果>ý否则结果> N，这样

RESULT<-c("y","y","y","y","n","y","n","n","n") 
OUT<-cbind(IN,RESULT) 

我认为应该使用ifelse函数，但我不知道如何以明确每个ID的平等控制条件... ... 一如既往，每一个建议非常感谢！

Answer 1

这是一种与plyr做到这一点：

R> ddply(IN, .(DATE,TRAP), transform, RESULT=ifelse(length(ID)>1,"y","n")) 
    ID  DATE TRAP RESULT 
1 1 2013-01-01 1  y 
2 2 2013-01-01 1  y 
3 3 2013-01-01 1  y 
4 2 2013-01-01 2  n 
5 1 2013-01-02 3  y 
6 3 2013-01-02 3  y 
7 2 2013-01-03 1  n 
8 1 2013-01-03 2  n 
9 3 2013-01-03 3  n 

注意，行已经重新排序。

---

与data.table另一种解决方案：

R> DT <- data.table(IN) 
R> DT[,RESULT:=ifelse(.N>1,"y","n"), by=list(DATE,TRAP)] 
R> DT 
    ID  DATE TRAP RESULT 
1: 1 2013-01-01 1  y 
2: 2 2013-01-01 1  y 
3: 3 2013-01-01 1  y 
4: 1 2013-01-02 3  y 
5: 2 2013-01-01 2  n 
6: 3 2013-01-02 3  y 
7: 1 2013-01-03 2  n 
8: 2 2013-01-03 1  n 
9: 3 2013-01-03 3  n 

这里没有重新排序。

---

或者使用基本ave：

IN <- within(IN, { RESULT <- ave(TRAP, list(DATE, TRAP), 
       FUN= function(x) ifelse(length(x) > 1, "y", "n"))}) 
# ID  DATE TRAP RESULT 
# 1 1 2013-01-01 1  y 
# 2 2 2013-01-01 1  y 
# 3 3 2013-01-01 1  y 
# 4 1 2013-01-02 3  y 
# 5 2 2013-01-01 2  n 
# 6 3 2013-01-02 3  y 
# 7 1 2013-01-03 2  n 
# 8 2 2013-01-03 1  n 
# 9 3 2013-01-03 3  n 

Answer 2

您可以使用duplicated此：

IN$RESULT <- ifelse((duplicated(IN[,2:3])+duplicated(IN[,2:3],fromLast=TRUE))>0, 
         "y","n") 

# ID  DATE TRAP RESULT 
# 1 1 2013-01-01 1  y 
# 2 2 2013-01-01 1  y 
# 3 3 2013-01-01 1  y 
# 4 1 2013-01-02 3  y 
# 5 2 2013-01-01 2  n 
# 6 3 2013-01-02 3  y 
# 7 1 2013-01-03 2  n 
# 8 2 2013-01-03 1  n 
# 9 3 2013-01-03 3  n