Замена клеток

Question

У меня есть два набора данных: mydata2 и mydata3

Mydata2: 2 колонки в нем: Destination.DisplayName и Partner.Type

(Partner.Type базируется на Destination.DisplayName)

Mydata3: 2 колонки в нем: Если и тогда

мне нужна строка кода, который проверяет, если Destination.DisplayName равно Если, и если да, то установить partner.type к значению в Тогда

Прямо сейчас это то, что у меня есть

 mydata2$Partner.Type[ mydata2$Destination.DisplayName %in% mydata3$If] = as.character((mydata3$Then[match(mydata2$Destination.DisplayName, mydata3$If)])) 

Кто-нибудь увидеть, что здесь не так?

Answer 1

Я предлагаю использовать ifelse функцию:

mydata2$Partner.Type <- ifelse( mydata2$Destination.DisplayName == mydata3$If, 
           mydata3$Then, 
           mydata2$Partner.Type) 

EDIT

Если столбцы не имеют одинаковую длину, то попробуйте sapply

sapply(mydata2$Destination.DisplayName, function(element){ 
    if (element %in% mydata3$If){ 
    return(mydata3$Then[which(element == mydata3$If)]) 
} else { 
return(mydata2$Partner.Type[which(element == mydata2$Destination.DisplayName)]) 
} 
}) -> mydata2$Destination.DisplayName 

EDIT2

Или вы можете использовать dplyr пакет и left_join функция.

library(dplyr) 
mydata2 %>% 
    left_join(mydata3, 
       by = c("Destination.DisplayName" = "If") 
    ) -> joined_mydatas 

ifelse(is.na(joined_mydatas$Then), 
     joined_mydatas$Partner.Type, 
     joined_mydatas$Then) -> mydata2$Partner.Type