需要将垂直数据集转换为具有一对多关系的水平数据

Question

喜欢创建一个新数据集，其中第 1 列是不同的分类变量，第 2 列到第 X 列是 A 的关联值。这是一对多的关系。

由于一对多的关系，使用 spread 时收到错误消息

library(tidyr)
new_data <- spread(original_data, `State name`, `Park Location`)

Col 1 Col 2  Transform to  Col 1 Col 2 Col 3 Col 4 
A       C                    A     C    B     A
A       B                    B     A
A       A
B       A 

Error: Each row of output must be identified by a unique combination of keys.
Keys are shared for 687 rows:

Answer 1

一种选择是通过 'Col1' 创建一个序列列

library(dplyr)
library(tidyr)
original_data %>%
   group_by(Col1) %>%
   mutate(rn = row_number()) %>%
   spread(rn, Col2)