Ersetzen Spalte durch eine andere Tabelle

Question

Angenommen, ich habe ein df sieht wie folgt aus.

df <- read.table(textConnection(" 
id1 id2 id3  inter 
    1 2 3  7.343 
    6 5 4  2.454 
    1 5 6  3.234 
"), header = TRUE) 

Und ich will Spalte ersetzen id1, id2 und id3 von Quelle Datenrahmen.

source <- read.table(textConnection(" 
sid rid 
    1 a 
    2 b 
    3 c 
    4 43454 
    5 2254 
    6 43 
"), header = TRUE) 

Wenn ich finden kann source$sid zu df$id1 gleich ist, df$id2 oder df$id3, dann will ich sie als source$rid ersetzen.

Als Ergebnis kann ich sehen.

id1 id2 id3 inter 
    a b c 7.343 
43 2254 43454 2.454 
    a 2254 43 3.234 

Irgendein Hinweis bitte?

Answer 1

Sie können tidyverse-gather, left_join und dann spread wieder verwenden, das heißt

library(tidyverse) 

df %>% 
gather(var, sid, -inter) %>% 
left_join(source, by = 'sid') %>% 
select(-sid) %>% 
spread(var, rid) 

# inter id1 id2 id3 
#1 2.454 43 2254 43454 
#2 3.234 a 2254 43 
#3 7.343 a b  c 

Basierend auf Ihren Kommentar, es scheint, dass Sie einige Duplikate haben. Die folgende Gruppierung von var und eine seq eindeutigen Werten zu schaffen sollte ausreichen (obwohl ich nicht testen können, da Ihr Beispiel diesen Fehler nicht erzeugen),

df %>% 
    gather(var, sid, -inter) %>% 
    left_join(source, by = 'sid') %>% 
    select(-sid) %>% 
    group_by(var) %>% 
    mutate(new = seq(n())) %>% 
    spread(var, rid) %>% 
    select(-new) 

Answer 2

tmp <- as.matrix(df[paste0("id", 1:3)]) 
ind <- match(tmp, source$sid) 
tmp[] <- as.character(source$rid)[ind] 
df[paste0("id", 1:3)] <- tmp