Блог

У меня есть два df, которые выглядят так,

 id1<-c(2,2,2,1,3)
id2<-c(4,4,5,2,3)
OS<-c(1,2,3,4,5)
a <- cbind(OS, id1, id2) 
a
  

 i1<-c(2,2,2,4,3)
i2<-c(4,4,5,2,3)
OSi<-c(1,2,3,4,5)
b <- cbind(OSi, i1, i2) 
  

Я хочу создать новый col (x) с «0», где совпадают $ OS и $ OSi (т. е. 1->1, 2->2) но только там, где последующие два столбца в каждом df совпадают, и «1», где они не совпадают.
Мой желаемый результат выглядит примерно так:

 id1<-c(2,2,2,1,3)
id2<-c(4,4,5,2,3)
OS<-c(1,2,3,4,5)
x <-c(0,0,0,1,0)
a <- cbind(OS, id1, id2, x) 
a
  

Я до сих пор пробовал это:

 a$x <- case_when(a$OS %in% b$OSi amp;
                     a$id1 %in% b$I1 amp; 
                     b$id2 %in% b$I2 ~ '0') %>%
  replace_na('1')
  

Тем не менее, я нахожу, что Case_when здесь удовлетворяет только первому аргументу. (т. Е. Отношение 0/1 изменяется в зависимости от порядка переменных).

Кроме того, приведенное выше является верхним df. Мои фактические данные составляют ~ 10000 строк, а b длиннее, чем a. Я также могу захотеть удалить любые строки не в a, а в b.

Надеюсь, это достаточно ясно. Я предпочитаю интегрировать в каналы!

Приветствия!

Работает ли это:

 > id1<-c(2,2,2,1,3)
> id2<-c(4,4,5,2,3)
> OS<-c(1,2,3,4,5)
> a <- data.frame(OS, id1, id2) 
> 
> 
> i1<-c(2,2,2,4,3)
> i2<-c(4,4,5,2,3)
> OSi<-c(1,2,3,4,5)
> b <- data.frame(OSi, i1, i2) 
> 
> 
> transform(a %>% inner_join(b, by = c('OS' = 'OSi')), x = ifelse((id1 == i1) amp; (id2 == i2), 0, 1)) %>% select(OS, id1, id2, x)
  OS id1 id2 x
1  1   2   4 0
2  2   2   4 0
3  3   2   5 0
4  4   1   2 1
5  5   3   3 0
> 
  

Я использовал inner_join, поэтому мы объединяемся на основе вашего первого условия a $ OS == b $ OSi