0

次のような 2 つのデータ フレームがあります。

df.1 <- data.frame(
     var.1 = sample(1:10),
     code = sample(c("A", "B", "C"), 10, replace = TRUE))

df.2 <- data.frame(
    var.2 = sample(1:3),
    row.names=c("A","B","C"))

私がする必要があるのは、3 番目の列 df.1$var.2 を追加することです。これは、df.1$code の各値に対して、行名に応じて df.2$var.2 から値を取得します。

私はこの点に到達しましたが、成功しませんでした..提案はありますか?

for (i in 1:length(df.1$code)){
    if(df.1$code[i] == rownames(df.2))
    df.1$var.2[i] <- df.2$var.2
    }
4

2 に答える 2

2

あなたはこのように意味します：

df.2$code <- rownames(df.2)
> merge(df.1,df.2,by = "code")
   code var.1 var.2
1     A     5     1
2     B     3     2
3     B     2     2
4     B     7     2
5     B    10     2
6     C     8     3
7     C     4     3
8     C     1     3
9     C     9     3
10    C     6     3
于 2012-04-23T15:42:27.977 に答える
0

または、df.1 の順序を保持するパッケージjoin()からplyr

df.2$code <- rownames(df.2)
library(plyr)
join(df.1, df.2, by = "code")

   var.1 code var.2
1      7    B     2
2      2    A     1
3      3    C     3
4      6    B     2
5     10    C     3
6      4    C     3
7      1    C     3
8      8    B     2
9      9    A     1
10     5    C     3
于 2012-04-23T20:10:12.243 に答える