DF1とDF2の2つのデータフレームがあります。DF2の値を使用してDF1の値を置き換えたいと思います。
DF1：
> DF1 <- data.frame(V1=c("AA23", "AA34", "AA54", "BB32", "CC43", "DD32"), V2=c("BB32", NA,"CC43", NA, "DD32", "EE22"), V3=c("CC43", "DD32", NA, NA, "AA54", "EE54"))
> DF1
V1 V2 V3
1 AA23 BB32 CC43
2 AA34 <NA> DD32
3 AA54 CC43 <NA>
4 BB32 <NA> <NA>
5 CC43 DD32 AA54
6 DD32 EE22 EE54
DF2：
> DF2 <- data.frame(col1=c("AA23", "AA34", "AA54", "BB32", "CC43", "DD32", "EE22", "EE54", "EE55"), col2=c("a22", "a23", "a25", "a27", "b11", "b13", "b15", "c11", "c13"))
> DF2
col1 col2
1 AA23 a22
2 AA34 a23
3 AA54 a25
4 BB32 a27
5 CC43 b11
6 DD32 b13
7 EE22 b15
8 EE54 c11
9 EE55 c13
DF1のすべての列のすべての値（NAを維持）をDF2 $ col2の値に置き換えたいと思います。
これは私のDF_finalです：
> DF_final
V1 V2 V3
1 a22 a27 b11
2 a23 <NA> b13
3 a25 b11 <NA>
4 a27 <NA> <NA>
5 b11 b13 a25
6 b13 b15 c11
誰かアドバイスしてもらえますか？ありがとう。
名前付きベクトルを使用して一致させることができます
library(data.table)
setDT(DF1)[, lapply(.SD, function(x)
setNames(as.character(DF2$col2), DF2$col1)[as.character(x)])]
# V1 V2 V3
#1: a22 a27 b11
#2: a23 <NA> b13
#3: a25 b11 <NA>
#4: a27 <NA> <NA>
#5: b11 b13 a25
#6: b13 b15 c11
またはで base R
DF1[] <- lapply(DF1, function(x)
setNames(as.character(DF2$col2), DF2$col1)[as.character(x)])
またはに変換matrixして一致させる `
DF1[] <- setNames(as.character(DF2$col2), DF2$col1)[as.matrix(DF1)]
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加