通过匹配来自另一个数据帧的 id 添加一列答案

【问题标题】：Add a column by matching id from another dataframe通过匹配来自另一个数据帧的 id 添加一列
【发布时间】：2021-08-31 21:59:30
【问题描述】：

我想寻求帮助！

我正在尝试向我的第一个数据框“数据集”添加一个新列“TotalSasaran”，其中包含 5000 行

Tangal	Divaksin1	Divaksin2	Total Divaksin	Provinsi
2-1-2021	1	2	3	Aceh
5-1-2021	1	2	3	Aceh
2-1-2021	2	2	3	Bali
4-1-2021	2	2	3	Bali
3-1-201	3	1	4	Jakarta
6-1-201	3	1	4	Jakarta

structure(list(tanggal = structure(1:6, .Label = c("2021-01-15", 
"2021-01-17", "2021-01-18", "2021-01-19", "2021-01-20", "2021-01-21", 
"2021-01-22", "2021-01-23", "2021-01-24", "2021-01-25", "2021-01-26", 
"2021-01-27", "2021-01-28", "2021-01-29", "2021-01-30", "2021-01-31", 
"2021-02-01", "2021-02-02", "2021-02-03", "2021-02-04", "2021-02-05", 
"2021-02-06", "2021-02-07", "2021-02-08", "2021-02-09", "2021-02-10", 
"2021-02-11", "2021-02-12", "2021-02-13", "2021-02-14", "2021-02-15", 
"2021-02-16", "2021-02-17", "2021-02-18", "2021-02-19", "2021-02-20", 
"2021-02-21", "2021-02-22", "2021-02-23", "2021-02-24", "2021-02-25", 
"2021-02-26", "2021-02-27", "2021-02-28", "2021-03-01", "2021-03-02", 
"2021-03-03", "2021-03-04", "2021-03-05", "2021-03-06", "2021-03-07", 
"2021-03-08", "2021-03-09", "2021-03-10", "2021-03-11", "2021-03-12", 
"2021-03-13", "2021-03-14", "2021-03-15", "2021-03-16", "2021-03-17", 
"2021-03-18", "2021-03-19", "2021-03-20", "2021-03-21", "2021-03-22", 
"2021-03-23", "2021-03-24", "2021-03-25", "2021-03-26", "2021-03-27", 
"2021-03-28", "2021-03-29", "2021-03-30", "2021-03-31", "2021-04-01", 
"2021-04-02", "2021-04-03", "2021-04-04", "2021-04-05", "2021-04-06", 
"2021-04-07", "2021-04-08", "2021-04-09", "2021-04-10", "2021-04-11", 
"2021-04-12", "2021-04-13", "2021-04-14", "2021-04-15", "2021-04-16", 
"2021-04-17", "2021-04-18", "2021-04-19", "2021-04-20", "2021-04-21", 
"2021-04-22", "2021-04-23", "2021-04-24", "2021-04-25", "2021-04-26", 
"2021-04-27", "2021-04-28", "2021-04-29", "2021-04-30", "2021-05-01", 
"2021-05-02", "2021-05-03", "2021-05-04", "2021-05-05", "2021-05-06", 
"2021-05-07", "2021-05-08", "2021-05-09", "2021-05-10", "2021-05-11", 
"2021-05-12", "2021-05-13", "2021-05-14", "2021-05-17", "2021-05-18", 
"2021-05-19", "2021-05-20", "2021-05-21", "2021-05-22", "2021-05-23", 
"2021-05-24", "2021-05-25", "2021-05-26", "2021-05-27", "2021-05-28", 
"2021-05-29", "2021-05-30", "2021-05-31", "2021-06-01", "2021-06-02", 
"2021-06-03", "2021-06-04", "2021-06-05", "2021-06-06", "2021-06-07", 
"2021-06-08", "2021-06-09", "2021-06-10", "2021-01-13", "2021-01-14", 
"2021-01-16", "2021-05-15", "2021-05-16"), class = "factor"), 
    divaksin_1 = c(35, 1, 13, 16, 36, 42), divaksin_2 = c(0, 
    0, 0, 0, 0, 0), total_divaksin = c(35, 1, 13, 16, 36, 42), 
    Provinsi = c("Aceh", "Aceh", "Aceh", "Aceh", "Aceh", "Aceh"
    )), row.names = c(NA, 6L), class = "data.frame")

基于我的第二个 df 'Total_Sasaran' 中只有 34 行的值。

Provinsi	Total Sasaran
Aceh	1000
Bali	1500
Jakarta	2000

structure(list(Provinsi = c("ACEH", "BALI", "BANTEN", "BENGKULU", 
"DKI JAKARTA", "GORONTALO"), TotalSasaran = c(3898726, 2860037, 
8838393, 1327824, 8815157, 784727)), row.names = c(NA, -6L), class = c("tbl_df", 
"tbl", "data.frame"))

两个数据框都有一个 id 列“Provinsi”。我希望 R 可以识别数据集 $Provinsi 并与 Total_Sasaran$Provinsi 匹配以获取数据集中每一行的 TotalSasaran 值。

我尝试了几个代码，但没有返回预期的输出第一次代码试用

dataset$TotalSasaran<-Total_Sasaran$TotalSasaran[match(dataset$Provinsi,Total_Sasaran$Provinsi)]

第二个代码：

dataset$TotalSasaran <- Total_Sasaran$TotalSasaran[Total_Sasaran$Provinsi %in% dataset$Provinsi]

第三个代码：

dataset2<-inner_join(dataset,Total_Sasaran, by="Provinsi")

这将返回 0 个观察结果，数据框中没有数据，我已确保类匹配，“Provinsi”作为因子，“TotalSasaran”作为数字

第四个

dataset2<-merge(dataset, Total_Sasaran, by="Provinsi", all.x=TRUE)

这会将整个“TotalSasaran”列返回为 NA

【问题讨论】：

从dplyr packge尝试inner_join
我确实尝试过使用 inner_join: dataset2<-merge(dataset, Total_Sasaran[, c("Provinsi", "TotalSasaran")], by="Provinsi", all.x=TRUE) dataset2<-merge(dataset, Total_Sasaran, by="Provinsi", all.x=TRUE) 但它返回列 'TotalSasaran' 作为 NA。有什么问题吗？我确保所有的类都匹配。
你试过merge(dataset, Total_Sasaran)吗？
是的，我做到了，dataset2<-merge(dataset, Total_Sasaran[, c("Provinsi", "TotalSasaran")], by="Provinsi", all.x=TRUE) dataset2<-merge(dataset, Total_Sasaran, by="Provinsi", all.x=TRUE) 但遗憾的是，它将该列返回为 NA...
dataset 中的 Provinsi 列是否与 Total_Sasaran 的列完全匹配？里面有空格吗？您可以使用trimws 删除空格。如果您提供dput(head(dataset)) 和dput(head(Total_Sasaran[, c("Provinsi", "TotalSasaran")])) 会更容易提供帮助

标签： r dataframe merge match

【解决方案1】：

两个数据的大小写不一样，一个是大写，一个是小写。 R 区分大小写，因此要么更改其中一个数据框，然后执行merge。

df1$Provinsi <- toupper(df1$Provinsi)
result <- merge(df1, df2)

【讨论】：

谢谢！！！我不知道它会区分大小写。

【解决方案2】：

要解决的第一个问题是两个data.frame 中的“Provinsi”没有任何匹配值：在 1. 你有Aceh 在 2. 你有ACEH。它们不是同一种情况。

您可以将dataset 中的Aceh 转换为大写

dataset$Provinsi = toupper(dataset$Provinsi)

或将Total_Saran中的ACEH等转换为标题大小写或句子大小写（https://stringr.tidyverse.org/reference/case.html）：

library(stringr)
Total_Saran = Total_Saran%>%
 mutate(Provinsi =  str_to_title(Provinsi))

不要两者都做！然后用left_join 加入两者：

library(dplyr)

df3 = left_join(dataset,Total_Saran)

【讨论】：