Đặt cờ nếu một cột giá trị được phù hợp với những người trong vector khác

Question

Giả sử tôi đã một data.frame như sau:

a <- data.frame(id=c(1,3,4,5,7,8,9,6,54,3,5,6,87,6)) 

Và tôi có một vector temp như sau:

temp<-c(1,3,5,9) 

Bây giờ , Tôi muốn tạo cột mới flag trên data.frame của tôi, nơi nó phải là 1 trong đó id nằm ở temp và 0 ở nơi khác. Đây là những gì tôi đã thử:

a$flag <- ifelse(a$id==temp, 1, 0) 

và sản lượng mong muốn phải là (1,1,0,1,0,0,1,0,0,1,1,0,0,0).

Nhưng từ mã của tôi ở trên, flag không được cập nhật đúng cách. Tôi đang thiếu gì ở đây? Tôi có thể sử dụng %in% không? Nếu vậy, làm thế nào?

Cảm ơn bạn đã giúp đỡ

Answer 1

Tôi nghĩ rằng đây là những gì bạn đang tìm kiếm. Có một vài vấn đề trong cách bạn đang làm data.frame của bạn:

a <- data.frame(id = c(1,3,4,5,7,8,9,6,54,3,5,6,87,6), 
       flag = 0) 

Sau đó, để cập nhật giá trị của flag tới 1 nơi id là trong temp, bạn có thể chỉ những giá trị sử dụng [ và kiểm tra logic %in%, và gán chúng 1

a$flag[a$id %in% temp] <- 1 

a 
# id flag 
# 1 1 1 
# 2 3 1 
# 3 4 0 
# 4 5 1 
# 5 7 0 
# 6 8 0 
# 7 9 1 
# 8 6 0 
# 9 54 0 
# 10 3 1 
# 11 5 1 
# 12 6 0 
# 13 87 0 
# 14 6 0 

Answer 2

a$flag <- 0 + (a$id %in% temp) 

các lý do duy nhất mà ifelse thất bại, là việc sử dụng "==" khi kiểm tra logic cần phải có được %in%.

a<- data.frame(id=c(1,3,4,5,7,8,9,6,54,3,5,6,87,6)) 
temp<-c(1,3,5,9) 

a$flag <- ifelse(a$id %in% temp, 1, 0) 

> a 
    id flag 
1 1 1 
2 3 1 
3 4 0 
4 5 1 
5 7 0 
6 8 0 
7 9 1 
8 6 0 
9 54 0 
10 3 1 
11 5 1 
12 6 0 
13 87 0 
14 6 0 

Tôi thích thể hiện các giải pháp không phải là ifelse vì tôi thấy rằng việc xây dựng khái quát các tình huống phức tạp đến chế độ kém.