r-比较具有不同行长度的两个不同数据帧的两列，返回第三行

Question

我有两个不同的df，它们有相同的列："O"表示地点，"date"表示时间。Df1在一个1行中给出特定地点(O(和时间(日期(的不同信息，df2在许多不同行中具有相同年份和地点的许多信息。不，如果"O"one_answers"date"的值相等，我想提取第一个df的一个条件，该条件适用于第二个df的所有行。

更清楚地说：我在df1中有一行：对于O=1002和date=1885，krnqm=250。现在我想要df2中的一个新列"krnqm"，其中df2$krnqm=250用于df2$0=1002和df2$date=1885的所有行。

不幸的是，我不知道如何将该条件放入代码行，如果您能提供帮助，我将不胜感激。

Answer 1

您可以使用merge函数在baseR中轻松完成此操作。下面是一个例子。

根据您的描述模拟一些数据：

df1 <- expand.grid(O = letters[c(2:4,7)], date = c(1,3))
df2 <- data.frame(O = rep(letters[1:6], c(2,3,3,6,2,2)), date = rep(1:3, c(3,2,4)))
df1$krnqm <- sample(1:1000, size = nrow(df1), replace=T)
> df1
O date krnqm
1 b    1   833
2 c    1   219
3 d    1   773
4 g    1   514
5 b    3   118
6 c    3   969
7 d    3   704
8 g    3   914
> df2
O date
1  a    1
2  a    1
3  b    1
4  b    2
5  b    2
6  c    3
7  c    3
8  c    3
9  d    3
10 d    1
11 d    1
12 d    1
13 d    2
14 d    2
15 e    3
16 e    3
17 f    3
18 f    3

现在，让我们按照您描述的方式组合这两个数据帧。

df2 <- merge(df2, df1, all.x=T)
> df2
O date krnqm
1  a    1    NA
2  a    1    NA
3  b    1   833
4  b    2    NA
5  b    2    NA
6  c    3   969
7  c    3   969
8  c    3   969
9  d    1   773
10 d    1   773
11 d    1   773
12 d    2    NA
13 d    2    NA
14 d    3   704
15 e    3    NA
16 e    3    NA
17 f    3    NA
18 f    3    NA

因此，您可以看到，结果数据帧中的krnqm列包含"O"one_answers"date"的任何组合的NA，这些NA在从中提取krnqr值的数据帧中找不到。如果您的df1有其他列，而您不希望包含在合并中，只需稍微更改合并调用，使其仅使用您想要的列：df2 <- merge(df2, df1[,c("O", "date", "krnqm")], all.x=T)。

祝你好运！