在R中通过几个条件将多行合并为一行

我正在尝试将多行合并为一行。我希望

组1

及其相应的

组2

和

cqs

数据通过

批号

合并成一行

重要细节：我在

组中有三种不同的样本类型。1

列。我想我遇到的困难是，我需要通过

批号

将三种不同的样本类型合并成一行。我所知道的许多工具只合并两个数据表或帧

我所拥有的：

第1组 第2组 cqs 批号 1xLOD_2234567 MS2 39 2234567 北卡罗来纳州大学2234567 MS2 37 2234567

---

我们可以更广泛地使用

pivot\u

library(dplyr)
library(tidyr)
library(data.table)
aggtest2 %>%
   mutate(rn = rowid(Group.2, lot_number)) %>% 
   pivot_wider(names_from = rn, values_from = c(Group.1, cqs))
# A tibble: 1 x 6
#  Group.2 lot_number Group.1_1     Group.1_2  cqs_1 cqs_2
#  <chr>        <int> <chr>         <chr>      <int> <int>
#1 MS2        2234567 1xLOD_2234567 NC_2234567    39    37

库（dplyr）
图书馆（tidyr）
库（数据表）
aggtest2%>%
变异（rn=rowid（第2组，批号））%>%
枢轴（名称从=rn，值从=c（组1，cqs））
#一个tibble:1 x 6
#组别。2批号组别。1组别。1组别。1组别。2组别
#                           
#1 MS2 2234567 1xLOD_2234567 NC_2234567 39 37

数据

---

aggtest2希望这是你想要的

reshape(
  transform(
    df,
    q = ave(1:nrow(df), lot_number, cqs, Group.2, FUN = seq_along)
  ),
  direction = "wide",
  idvar = c("lot_number", "cqs", "Group.2"),
  timevar = "q"
)

给

  Group.2 cqs lot_number     Group.1.1  Group.1.2
1     MS2  39    2234567 1xLOD_2234567 NC_2234567

非常感谢，这正是我想要实现的。
  Group.2 cqs lot_number     Group.1.1  Group.1.2
1     MS2  39    2234567 1xLOD_2234567 NC_2234567