effiziente Zusammenführung bei statischen Daten

Question

Ich habe einige statische Daten im Datenrahmen static_data gespeichert. Das Ziel ist es, die data mit dem static_data zu verschmelzen, um die output

data <- data.frame(A = c("a","b","c","d","e"),B=c("a","b","b","e","e")) 

static_data <- data.frame(I=c("a","b","c","d","e"),Info=c(1,2,3,4,5)) 

output <- data.frame(A = c("a","b","c","d","e"),B=c("a","b","b","e","e"), 
        AI=c(1,2,3,4,5),BI=c(1,2,2,5,5)) 

meinen Code zu erhalten, wird die folgende

colnames(data) <- c("I","B") 
temp <- merge(data, static_data,by="I) 

und so ein. Was ist der beste Weg, um einen effizienten Code zu haben?

Answer 1

Sie können dies versuchen:

mg <- merge(data, static_data, by.x = "A", by.y = "I") 
cbind(mg, BI=merge(data, static_data, by.x = "B", by.y = "I")[,3]) 

# A B Info BI 
#1 a a 1 1 
#2 b b 2 2 
#3 c b 3 2 
#4 d e 4 5 
#5 e e 5 5