聚合行并添加新变量

时间:2016-09-25 20:13:53

标签: r aggregate

我有一个包含数千行的数据框,有两列我感兴趣的ID,ID和日期。重复一些ID,但不重复日期。我希望每个ID只有一行,然后将不同的日期存储到列中,例如:UniqueID,date1,date2等。

有谁知道最好的方法是什么?我使用R,在R中有没有最佳方法呢?

1 个答案:

答案 0 :(得分:1)

你的意思是这样吗?

require(dplyr)
require(tidyr)
dates <- c("02/26/92", "02/27/92", "01/14/92", "02/28/92", "02/01/92")
dat <- data.frame(id = c(1,1,2,3,2), date = as.Date(dates, "%m/%d/%y"))

dat如下所示:

  id       date
1  1 1992-02-26
2  1 1992-02-27
3  2 1992-01-14
4  3 1992-02-28
5  2 1992-02-01

使用以下技巧

dat %>% 
  select(id, date) %>% #here you select the columns that you want to use
  group_by(id) %>% 
  mutate(seq = paste0("date", row_number(id))) %>% 
  spread(seq, date)

成为这个:

Source: local data frame [3 x 3]
Groups: id [3]

     id      date1      date2
* <dbl>     <date>     <date>
1     1 1992-02-26 1992-02-27
2     2 1992-01-14 1992-02-01
3     3 1992-02-28       <NA>