16

以下の例でuseridsは、 が参照データ フレームuserdataであり、 が置換を行うデータ フレームです。

> 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

userdataの ID と FRIENDIDを の USER に対応する IDに置き換えるにはどうすればよいuseridsですか?

望ましい出力:

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

4 に答える 4

24

使用match:

userdata$ID <- userids$ID[match(userdata$ID, userids$USER)]
userdata$FRIENDID <- userids$ID[match(userdata$FRIENDID, userids$USER)]
于 2013-02-25T15:08:46.260 に答える
2

これは可能性です：

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-26T07:41:06.060 に答える
0

ここでは、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. Grothendieck のコメントのおかげで、INNER を LEFT に置き換えて結果が得られました。

 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-25T15:45:37.833 に答える