R 如果表 a 中第 1 列中的值与表 b 中第 1 列中的值匹配，则将表 b 中第 2 列中的值复制到表 1 中

Question

#Question# 我有 2 个数据框。 1 个数据框 (A) 有多个列。数据框 A 中的第 1 列有一个电子邮件地址，其中多行具有相同的电子邮件地址。另一个数据框 (B) 在第 1 列中有一个唯一电子邮件地址列表，在第 2 列中有该电子邮件出现在数据框 A 列表中的次数的计数。我想基本上做一个 vlookup 以便电子邮件地址匹配从这两个表中，它会将计数拉入数据框 A 的新列中。有人可以帮忙吗？

数据

Table A   
Column 1    Column 2      Column 3  
a@a.com     home          123   
a@a.com     house         456   
b@b.com     tree          221   

Table B   
Column 1    Column 2(Count)      
a@a.com        2   
b@b.com        1   

Expected result should be Table A with an additional column:   
Column 1    Column 2      Column 3     Column 4   
a@a.com      home           123             2   
a@a.com      house          456             2   
b@b.com      tree           221             1   

Answer 1

您不需要 df2 来获取计数。您可以单独使用 df1 来获取计数：

#solution using data.table package
library(data.table)
setDT(df1)[,count:=.N,by=Column1]
   Column1 Column2 Column3 count
1: a@a.com    home     123      2
2: a@a.com   house     456      2
3: b@b.com    tree     221      1

#solution using dplyr package
library(dplyr)
df1 %>%
group_by(Column1)%>%
mutate(count=n())
Source: local data frame [3 x 4]
Groups: Column1

  Column1 Column2 Column3 count
1 a@a.com    home     123     2
2 a@a.com   house     456     2
3 b@b.com    tree     221     1
#Data
df1<-structure(list(Column1 = structure(c(1L, 1L, 2L), .Label = c("a@a.com", 
"b@b.com"), class = "factor"), Column2 = structure(1:3, .Label = c("home", 
"house", "tree"), class = "factor"), Column3 = c(123L, 456L, 
221L)), .Names = c("Column1", "Column2", "Column3"), class = "data.frame", row.names = c(NA, 
-3L))