如何根據其他變量的條件生成二進制變量？

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