如何從R dplyr中的group_by返回值？

Question

早上好，

我有一個兩列的數據集，我想根據Dplyr中的group_by擴展到更多列，但是我不確定如何。

我的數據如下：

Person     Case
John       A
John       B
Bill       C
David      F

我希望能夠將其轉換為以下結構：

Person  Case_1  Case_2 ... Case_n
John    A       B
Bill    C       NA
David   F       NA

我最初的想法是：

data %>%
  group_by(Person) %>%
  spread()

Error: Please supply column name

什么是最簡單或最像R的方式來實現這一目標？

Answer 1

您應該首先將案例ID添加到數據集中，這可以通過group_by和mutate的組合來完成：

dat = data.frame(Person = c('John', 'John', 'Bill', 'David'), Case = c('A', 'B', 'C', 'F'))
dat = dat %>% group_by(Person) %>% mutate(id = sprintf('Case_%d', row_number()))
dat %>% head()
# A tibble: 4 × 3
  Person   Case     id
  <fctr> <fctr>  <chr>
1   John      A Case_1
2   John      B Case_2
3   Bill      C Case_1
4  David      F Case_1

現在，您可以使用spread來轉換數據：

dat %>% spread(Person, Case)
# A tibble: 2 × 4
      id   Bill  David   John
*  <chr> <fctr> <fctr> <fctr>
1 Case_1      C      F      A
2 Case_2     NA     NA      B

您可以使用以下方法獲取上面列出的結構：

res = dat %>% spread(Person, Case) %>% select(-id) %>% t() %>% as.data.frame()
names(res) = unique(dat$id)
res
      Case_1 Case_2
Bill       C   <NA>
David      F   <NA>
John       A      B