我下面有两个数据框：
dput输出df1：
structure(list(Location = c("1100 2ND AVENUE", "1100 2ND AVENUE",
"1100 2ND AVENUE", "1100 2ND AVENUE", "1100 2ND AVENUE", "1100 2ND AVENUE"
), `Ivend Name` = c("3 Mskt 1.92oz", "Almond Joy 1.61oz", "Aquafina 20oz",
"BCanyonChptleAdzuk1.5oz", "BlkForest FrtSnk 2.25oz", "BluDimndSmkhseAlmd1.5oz"
), `Category Name` = c("Candy", "Candy", "Water", "Salty Snacks",
"Candy", "Nuts/Trailmix"), Calories = c(240, 220, 0, 215, 193,
260), Sugars = c("36", "20", "0", "2", "32", "2"), Month = structure(c(4L,
4L, 4L, 4L, 4L, 4L), .Label = c("Oct", "Nov", "Dec", "Jan", "Feb",
"Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep"), class = "factor"),
Products_available_per_machine = c(0, 0, 0, 0, 0, 0), Units_sold = c(0,
0, 0, 0, 0, 0), Total_Sales = c(0, 0, 0, 0, 0, 0), Spoils = c(0,
0, 0, 0, 0, 0), Building = c("1100 2ND", "1100 2ND", "1100 2ND",
"1100 2ND", "1100 2ND", "1100 2ND"), Item = structure(c(2L,
2L, 1L, 2L, 2L, 2L), .Label = c("Beverage", "Food"), class = "factor"),
Year = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "2019", class = "factor")), row.names = c(NA,
-6L), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x00000233561b1ef0>)
dput输出df2：
structure(list(`Date Ran` = structure(c(1548892800, 1551312000,
1553817600, 1556582400, 1561680000, 1564531200), class = c("POSIXct",
"POSIXt"), tzone = "UTC"), Year = c(2019, 2019, 2019, 2019, 2019,
2019), Month = c("January", "February", "March", "April", "June",
"July"), Location = c("SEA18", "SEA18", "SEA18", "SEA18", "SEA18",
"SEA18"), Building = c("Alexandria", "Alexandria", "Alexandria",
"Alexandria", "Alexandria", "Alexandria"), Population = c(1177,
1179, 1178, 1156, 1163, 1163)), row.names = c(NA, -6L), class = c("tbl_df",
"tbl", "data.frame"))
我想从DF 2中拉出pop col并将其添加到基于“建筑物”和“月”的数据帧1中，以在DF2中填充订单人口。
我使用merge尝试了此命令，但执行时col为NULL：
df_2019_final1$Population <- df_2019_pop$Population[match(df_2019_final1$Month, df_2019_pop$Month, df_2019_final1$Building, df_2019_pop$Building)]
subset_df_pop <- df_2019_pop[, c("Month", "Building", "Population")]
updated_2019_test <- merge(df_2019_final1, subset_df_pop, by = c('Month', 'Building'))
两者都产生NULLS和空白DF
任何帮助将不胜感激。
在其中一个数据集中，“月”被缩写，在第二个数据集中，它是全名。我们可以调整这些格式的任何一个和merge会工作
df2$MonthN <- month.abb[match(df2$Month, month.name)]
library(dplyr)
left_join(df1, df2[, c("MonthN", "Building", "Population")],
by = c('Month' = 'MonthN', 'Building'))
或搭配 merge
merge(df1, df2[, c("MonthN", "Building", "Population")],
by.x = c('Month', 'Building'), by.y = c('MonthN', 'Building'), all.x = TRUE)
注意：合并数据集上的“人口”列将NA基于该示例，因为子集数据集中的“建筑物”值不同
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句