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

Question

我有一个数据框"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应保持不变.我使用"0"作为z $颜色的占位符,这可能是文本而不是.

我一直在尝试for循环,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

Answer 1

z$color如果它只是占位符,你首先不需要,你可以NA稍后替换0

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

Answer 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