时间戳

首页 > 解决方案 > R如何合并3列上的2个数据框，所有列名都不同

r - R如何合并3列上的2个数据框，所有列名都不同

问题描述

我正在尝试对同一列进行内部连接合并两个不同名称的不同数据集。我需要合并三列。我检查了 stackoverflow 和其他来源，但问题合并在一列的同名数据源上。

当前代码：

state <- c('AZ','MD','NY', 'CA', 'FL')
STATE_ID <- c('AZ','MD','NY', 'CA', 'FL')
month <- c(1,2,3,4,5,6,7,8,9,10,11,12)
MONTH_ID <- c(1,2,3,4,5,6,7,8,9,10,11,12)
year <- c(2001, 2002, 2003, 2004)
YEAR_ID <- c(2001, 2002, 2003, 2004)
# note all rates are fake numbers
eduRate <- (7.5, 6.2, 1.3, 9.9, ....)
otherCol <- c('a','b','c','d','e','f','g' ....)
DROPOUT_RATE <- c(1.2, 3.2, 5.3, 1.9, ....)
someOtherCol <- c('a','b','c','d','e','f','g' ....)
anotherCol <- c('a','b','c','d','e','f','g' ....)

data1 <- data.frame(state, month, year, eduRate, otherCol)
data2 <- data.frame(STATE_ID, MONTH_ID, YEAR_ID, DROPOUT_RATE, someOtherCol, anotherCol)

mergeDf <- merge(x=data1, y=data2, 
                    by.x=state, by.y=STATE_ID, 
                    by.x=month, by.y=MONTH_ID,
                    by.x=year, by.y=YEAR_ID)    #  <-- NOT WORKING

mergeDf(x=data1, y=data2, by=c("state","year","month"))  # <-- cannot use because column names per data set different

所需的输出（不需要多余的列

#merge on state, month and year to get both edu and dropout rates

state, month, year, eduRate, DROPOUT_RATE
AZ      1      2001   7.5       1.2
AZ      2      2002   9.2       3.2
AZ      3      2003   1.3       1.2
...
AL      1      2001   2.5       1.9
AL      2      2002   5.2       1.7
AL      3      2003   4.3       3.4
...
WY      1      2001   2.5       1.9
WY      2      2002   5.2       1.7
WY      3      2003   4.3       3.4

感谢您提前提供任何帮助。

标签： rmerge

解决方案

我喜欢从 tidyverse 加入 dplyr 中的多个键的语法。

state <- c('AZ','MD','NY', 'CA')
STATE_ID <- c('AZ','MD','NY', 'CA')
month <- c(1,2,3,4)
MONTH_ID <- c(1,2,3,4)
year <- c(2001, 2002, 2003, 2004)
YEAR_ID <- c(2001, 2002, 2003, 2004)
# note all rates are fake numbers
eduRate <- c(7.5, 6.2, 1.3, 9.9)
otherCol <- c('a','b','c','d')
DROPOUT_RATE <- c(1.2, 3.2, 5.3, 1.9)
someOtherCol <- c('a','b','c','d')
anotherCol <- c('a','b','c','d')

data1 <- data.frame(state, month, year, eduRate, otherCol)
data2 <- data.frame(STATE_ID, MONTH_ID, YEAR_ID, DROPOUT_RATE, someOtherCol, anotherCol)


df<- data1 %>%
  left_join(data2, by=c("state"="STATE_ID","month"="MONTH_ID", "year"="YEAR_ID"))

推荐阅读