将长数据集与宽数据集合并

Question

我目前有两个数据集。第一个是长格式：

animal      name
dog         jim
dog         jake
dog         ian
cat         luke
cat         james

等等

第二个是像这样的宽数据集：

dog      cat
adam     dennis
boris    NA
clive    NA

我想将我的所有数据从第一个数据集中移动到相应列下的第二个数据集中，所以理想情况下我会得到：

 dog      cat
adam     dennis
boris    luke
clive    james
jim      NA
jake     NA
Ian      NA

但是，我正在为如何做到这一点而苦苦挣扎。我已经尝试融化广泛的数据集，但是在重铸它时它不会返回正确的结果。

为帮助干杯

Answer 1

这是base R 的解决方案。也许这就是你想要的

df2 <- rbind(df2,sapply(names(df2),function(v) ifelse(df1$animal==v,
                                                      df1$name[df1$animal==v],
                                                      NA)))
dfout <- data.frame(lapply(r <- Map(na.omit,df2), `length<-`,max(lengths(r))))

这样

> dfout
    dog    cat
1  adam dennis
2 boris  james
3 clive   luke
4   jim   <NA>
5  jake   <NA>
6   ian   <NA>

数据

df1 <- structure(list(animal = c("dog", "dog", "dog", "cat", "cat"), 
    name = c("jim", "jake", "ian", "luke", "james")), class = "data.frame", row.names = c(NA, 
-5L))

df2 <- structure(list(dog = c("adam", "boris", "clive", "jim", "jake", 
"ian", NA, NA), cat = c("dennis", NA, NA, NA, NA, NA, "james", 
"luke")), row.names = c(NA, -8L), class = "data.frame")