根據R中的其他數據幀替換數據幀中的值

在下面的示例中，userids是我的參考數據幀，userdata是應發生替換的數據幀。根據R中的其他數據幀替換數據幀中的值

> userids <- data.frame(USER=c('Ann','Jim','Lee','Bob'),ID=c(1,2,3,4)) 
> userids 
    USER ID 
1 Ann 1 
2 Jim 2 
3 Lee 3 
4 Bob 4 

> userdata <- data.frame(INFO=c('foo','bar','foo','bar'), ID=c('Bob','Jim','Ann','Lee'),AGE=c('43','33','53','26'), FRIENDID=c('Ann',NA,'Lee','Jim')) 
> userdata 
    INFO ID AGE FRIENDID 
1 foo Bob 43  Ann 
2 bar Jim 33  NA 
3 foo Ann 53  Lee 
4 bar Lee 26  Jim

如何對應於用戶userids的ID代替ID和FRIENDID在userdata？

所需的輸出：

INFO ID AGE FRIENDID 
1 foo 4 43  1 
2 bar 2 33  NA 
3 foo 1 53  3 
4 bar 3 26  2

來源

2013-02-25 R-obert

「正確」是什麼意思？你想匹配'userids $ USER'到'userdata $ ID'嗎？ – 2013-02-25 15:10:01

我猜「正確」應該是「相應」的。 – Arun 2013-02-25 15:14:19

@Robert，它有助於獲得所需的輸出（以避免這些混亂，下次）。 – Arun 2013-02-25 15:15:04

使用match：

userdata$ID <- userids$ID[match(userdata$ID, userids$USER)] 
userdata$FRIENDID <- userids$ID[match(userdata$FRIENDID, userids$USER)]

來源

2013-02-25 15:08:46 Arun

這裏使用sqldf爲多對型動物列加入到得到結果一試。

library(sqldf) 
    sqldf('SELECT d.INFO,d.AGE,i1.ID ,i2.ID FRIENDID 
     FROM 
     userdata d 
     INNER JOIN 
     userids i1 ON (i1.USER=d.FRIENDID) 
     INNER JOIN 
     userids i2 ON (i2.USER=d.ID)') 

INFO AGE ID FRIENDID 
1 foo 43 1  4 
2 foo 53 3  1 
3 bar 26 2  3

但是，這會刪除NA行！也許有人可以建議我如何處理NA的東西！

編輯

感謝G.格羅騰迪克評論，由左更換內部我們得到的結果。

sqldf('SELECT d.INFO,d.AGE,i1.ID ,i2.ID FRIENDID 
     FROM 
     userdata d 
     LEFT JOIN 
     userids i1 ON (i1.USER=d.FRIENDID) 
     LEFT JOIN 
     userids i2 ON (i2.USER=d.ID)') 
INFO AGE ID FRIENDID 
1 foo 43 1  4 
2 bar 33 NA  2 
3 foo 53 3  1 
4 bar 26 2  3

來源

2013-02-25 15:45:37 agstudy

關於你的問題，用'LEFT'替換'INNER'的兩個實例。 – 2013-02-25 17:04:55

這是一個可能性：

library(qdap) 
userdata$FRIENDID <- lookup(userdata$FRIENDID, userids) 
userdata$ID <- lookup(userdata$ID, userids)

或贏得一行獎：

userdata[, c(2, 4)] <- lapply(userdata[, c(2, 4)], lookup, key.match=userids)

來源

2013-02-26 07:41:06

'qdap'看起來非常棒，但我沒有在我的存儲庫中看到它。 – N8TRO 2013-02-26 07:50:48

不知道爲什麼。也許這是因爲它是一個更新的版本。嘗試'install.packages（「qdap」）'或者你可以使用：'library（devtools）' 'install_github（「qdap」，「trinker」）''版。 – 2013-02-26 08:00:49

失敗。 '錯誤：依賴關係'openNLP'不可用於包'qdap'' – N8TRO 2013-02-26 08:04:47

這裏有一個可能的解決方案，這也將與每個多個記錄的數據集工作ID，儘管我們需要首先強制ID和FRIENDID變量：

> userdata$ID <- sapply(userdata$ID, function(x){gsub(x, userids[userids$USER==x, 2], x)}) 
> userdata$FRIENDID <- sapply(userdata$FRIENDID, function(x){gsub(x, userids[userids$USER==x, 2], x)})

來源

2017-07-17 18:02:40

根據R中的其他數據幀替換數據幀中的值

回答

相關問題