R-将列追加到数据帧。年复一年的比赛。

Question

新发现的豌豆脑大小。

假设我有两个独立的数据帧。

df1 = tibble(
  date = as.Date(c("1990-10-01", "1991-11-01", "1992-11-01")),
  wage = c(4, 5, 6) 
)

df2 = tibble(
  date = as.Date(c("1990-01-01", "1991-01-01", "1992-01-01")),
  cpi = c(2, 3, 4) 
)

我希望从第二个数据帧到第一个数据帧添加一列。此外，我希望只匹配日期的一年。

我认为left_join因素在某些方面如何，但我不确定具体如何。

Answer 1

dplyr应该能解决这个问题。

library(dplyr)
library(lubridate)
df1$year<-year(df1$date)
df2$year<-year(df2$date)
df1<-left_join(df1,df2[c('year','cpi')],by='year')

Answer 2

这应该能起作用

# turn dates into years
df1$date <- format(df1$date, "%Y")
df2$date <- format(df2$date, "%Y")

使用base::merge或dplyr::lef_join将两者结合起来：

merge(df1, df2, all.x = TRUE)
# or
left_join(df1, df2)