基于匹配值使用来自另一个数据帧的值更新一个数据帧中的列答案

【问题标题】：updating column in one dataframe with value from another dataframe based on matching values基于匹配值使用来自另一个数据帧的值更新一个数据帧中的列
【发布时间】：2014-02-11 20:31:29
【问题描述】：

我有一个数据框“z”

   letter color
1       a     0
2       e     0
3       b     0
4       b     0
5       d     0
6       d     0
7       a     0
8       b     0
9       c     0
10      d     0
11      c     0
12      c     0
13      c     0
14      c     0
15      e     0
16      e     0
17      a     0
18      d     0
19      e     0
20      b     0

和另一个数据框“y”

  letter color
1      a   red
2      b  blue
3      c green

当 z 中的字母与 y 中的字母匹配时，我想将 y 中的颜色附加到 z 中的相应颜色字段中，但我不想从 z 中删除任何值。如果没有匹配，z$color 应该保持不变。我在 z$color 中使用“0”作为占位符，这可以是文本。

我一直在尝试循环、match() 命令和带有 %in% 的语句，但我并没有完全达到我想要的结果。

有什么想法吗？

这是我用于数据帧的代码

set.seed(3)
z=data.frame(sample(c("a","b","c","d","e"),20,replace=T))
names(z)="letter"
z$color=rep(0,dim(z)[1])
z

y1=c("a","b","c")
y2=c("red","blue","green")
y=data.frame(cbind(y1,y2))
names(y)=c("letter","color")
y

【问题讨论】：

用match，我想应该是y$color[match(z$letter, y$letter)]

标签： r

【解决方案1】：

如果它只是占位符，则首先不需要z$color，您可以稍后将NA替换为0

z$color<-y[match(z$letter, y$letter),2]

【讨论】：

我包含了 z$color，因为我曾经被告知 R 填充空向量效率不高。基本上为前面的输出定义一个向量。我可以放下它没有问题。这个玩具示例最终将扩展到更大的数据框。你的回复很有帮助。非常接近我过去几个小时一直在尝试的，但从未成功过。谢谢！

【解决方案2】：

你可以使用merge:

dat <- merge(z, y, by = "letter", all.x = TRUE)
transform(dat, color = ifelse(is.na(color.y), 
                              color.x, as.character(color.y)))[-(2:3)]

   letter color
1       a   red
2       a   red
3       a   red
4       b  blue
5       b  blue
6       b  blue
7       b  blue
8       c green
9       c green
10      c green
11      c green
12      c green
13      d     0
14      d     0
15      d     0
16      d     0
17      e     0
18      e     0
19      e     0
20      e     0

【讨论】：

@WillPhillips 不，NAs 已替换为 replace。函数transform用于向数据框添加新列。

【解决方案3】：

sqldf/sqlite 非常灵活：

library(sqldf)
z$color="0" # to avoid conflicts numeric/characters
z <- sqldf(c("UPDATE z
             SET color = (SELECT y.color
                          FROM y
                          WHERE z.letter = y.letter
                           )
             WHERE EXISTS (SELECT 1
                           FROM y
                           WHERE z.letter = y.letter
                           )"
             , "select * from main.z"
                  )
           )
z
   letter color
1       b  blue
2       a   red
3       d   0.0
4       d   0.0
5       e   0.0
6       a   red
7       a   red
8       c green
9       b  blue
10      c green
11      e   0.0
12      c green
13      b  blue
14      d   0.0
15      d   0.0
16      d   0.0
17      c green
18      e   0.0
19      a   red
20      c green

【讨论】：