Question

我想寻求帮助！

我正在尝试向我的第一个具有 5000 行的数据框“数据集”添加一个新列“TotalSasaran”

<头>

唐加尔	Divaksin1	Divaksin2	总迪瓦克辛	省
2-1-2021	1	2	3	亚齐
5-1-2021	1	2	3	亚齐
2-1-2021	2	2	3	巴厘岛
4-1-2021	2	2	3	巴厘岛
3-1-201	3	1	4	雅加达
6-1-201	3	1	4	雅加达

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 行。

<头>

省	总萨沙兰
亚齐	1000
巴厘岛	1500
雅加达	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

Answer 1

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

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

Answer 2

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

您可以将 Aceh 中的 dataset 转换为上层

dataset$Provinsi = toupper(dataset$Provinsi)

或将 ACEH 中的 Total_Saran 等转换为标题大小写或句子大小写 (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)

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

2 个答案: