比較兩個向量一次一個值而不使用WHILE

Question

我有兩個表格：df.author和df.post，它們通過一對多關係相關。現在我更改了主鍵df.author，並且我想要df.post來鏡像更改。在下列R-腳本我用match()在while循環與df.author的舊的主鍵來比較每一行的外鍵df.post和當他們與新的匹配替換外鍵一個（形成不同的列df.author）。請考慮以下幾點：

foreignkey <- c("old_pk1","old_pk2","old_pk3","old_pk4","old_pk5","old_pk1","old_pk7") 
df.post <- data.frame(foreignkey,stringsAsFactors=FALSE) 
rm(foreignkey) 

primarykey_old <- c("old_pk1","old_pk2","old_pk3","old_pk4","old_pk5") 
primarykey_new <- c("new_pk1","new_pk2","new_pk3","new_pk4","new_pk5") 
df.author <- data.frame(primarykey_old, primarykey_new, stringsAsFactors=FALSE); 
rm(primarykey_old); rm(primarykey_new) 

i <- 1; N <- length(df.post$foreignkey) 
while (i <= N) { 
    match <- match(df.post$foreignkey[i], df.author$primarykey_old) 
    if (!is.na(match)) { 
    df.post$foreignkey[i] <- df.author$primarykey_new[match] 
    } 
    i <- i + 1 
} 
rm(N); rm(i); rm(match) 

腳本工作，但由於while不適合大數據集高效擴展。我讀過使用apply()（在我的情況下通過轉換爲矩陣）通常比使用while更好。我想知道這是否也適用於我的情況。因爲如果你看看你看到的循環，我需要遍歷數據幀的每一行以獲取外鍵，然後通過df.author獲得match()。 我可以通過不使用while來壓縮計算時間嗎？

Answer 1

我認爲這可能會在無迴路的方式做的一切：

df.post$foreignkey[ 
    !length(match(df.post$foreignkey, df.author$primarykey_old))==0] <- # the test 
    df.author$primarykey_new[match(df.post$foreignkey, df.author$primarykey_old)] 

邏輯：只有當存在一個匹配，那麼替換匹配的值的現有價值。