向分组的长数据添加唯一的行标识符[重复]答案

【问题标题】：Add unique row identifiers to grouped long data [duplicate]向分组的长数据添加唯一的行标识符[重复]
【发布时间】：2021-04-06 05:43:32
【问题描述】：

我有以下数据框，我正在尝试为旋转做准备。

Identifier	Data
X0001	A
X0002	B
X0002	C
X0003	G
X0004	B
X0005	B
X0005	C
X0005	D

我正在尝试添加相同标识符作为第三列出现的次数的计数，然后我可以将其用作列标题来透视数据。

Identifier	Data	Count
X0001	A	1
X0002	B	1
X0002	C	2
X0003	G	1
X0004	B	1
X0005	B	1
X0005	C	2
X0005	D	3

最终转版

Identifier	1	2	3
X0001	A
X0002	B	C
X0003	G
X0004	B
X0005	B	C	D

如果有人对我如何添加所需的计数列有任何想法，将不胜感激。

谢谢。

【问题讨论】：

标签： r tidyr

【解决方案1】：

df %>% group_by(Identifier) %>%
  mutate(d = row_number()) %>%
  pivot_wider(id_cols = Identifier, names_from = d, values_from = Data)

# A tibble: 5 x 4
# Groups:   Identifier [5]
  Identifier `1`   `2`   `3`  
  <chr>      <chr> <chr> <chr>
1 X0001      A     NA    NA   
2 X0002      B     C     NA   
3 X0003      G     NA    NA   
4 X0004      B     NA    NA   
5 X0005      B     C     D

【讨论】：