如何向R中的每个不同观察添加一组行

Question

我希望在R中自动化一个过程，这个过程以前是手工完成的，非常耗时。我想从一个数据帧向另一个数据帧中的每个唯一变量添加一系列观察结果。使用数据的示例可能会更好地说明这一点。。。

表1包含了对每种动物的大量观察，这是我想为每种动物添加一组行的表。

表2显示了应应用于每只动物的行。

最后一个表应该如下所示：

有人能给我指出正确的方向吗？优先使用tidyverse超过基本R（但不是必需的：））

Answer 1

使用交叉

library(dplyr)
library(tidyr)
crossing(d2, an = d1$an) %>% 
    full_join(d1)
Joining, by = c("cl", "tm", "an")
# A tibble: 9 × 3
  cl    tm    an   
  <chr> <chr> <chr>
1 be    cn    c    
2 be    cn    d    
3 br    cn    c    
4 br    cn    d    
5 wh    cn    c    
6 wh    cn    d    
7 bl    cl    c    
8 be    an    d    
9 wh    pl    c    

d1 <- structure(list(an = c("c", "d", "c"), cl = c("bl", "be", "wh"
), tm = c("cl", "an", "pl")), class = "data.frame", row.names = c(NA, 
-3L))

d2 <- structure(list(cl = c("br", "be", "wh"), tm = c("cn", "cn", "cn"
)), class = "data.frame", row.names = c(NA, -3L))

Answer 2

1.我们创建了一个易于使用且可复制的示例数据

d1 <- data.frame(an = c("c", "d", "c"), 
                 cl = c("bl", "be", "wh"),
                 tm = c("cl", "an", "pl"))

d2 <- data.frame(cl = c("br", "be", "wh"),
                 tm = "cn")

2.使用expand_grid结合tidyr::full_join将data.framed1扩展到所需的形式：

library(dplyr)
library(tidyr)

d1 %>% 
  full_join(expand_grid(d2, an = unique(d1$an)))

这将返回：

  an cl tm
1  c bl cl
2  d be an
3  c wh pl
4  c br cn
5  d br cn
6  c be cn
7  d be cn
8  c wh cn
9  d wh cn