转换为列表时格式化日期

Question

我有这样的桌子：

ID	日期	状态
101	2020-09-14	1
102	2020-09-14	1
103	2020-09-14	1
104	2020-09-14	2
105	2020-09-14	2
106	2020-09-- 14	2

但想要这样的桌子：

状态	ID	日期
1	101,102,103	2020-09-14，2020-09-14，2020-09-14
1	104,105,106	2020-09-14，2020-09-14，2020-09-14，2020-09-14

我目前正在使用的代码：

注意：日期在运行代码之前以YYYY-MM-DD格式使用。

g1 <- df1 %>% 
  mutate(Date = as.Date(Date, format = '%Y%m%d')) %>%
  group_by(status) %>% 
  summarise_at(c("ID", "Date"), list)

除了新表中的日期不在yyyy-mm-dd中，这似乎有效。例如，2021-06-10正在转换为18788。

Answer 1

可能的解决方案：

library(tidyverse)

df %>% 
  group_by(Status) %>% 
  summarise(ID = str_c(ID, collapse = ","), Date = str_c(Date, collapse = ","))

#> # A tibble: 2 × 3
#>   Status ID          Date                            
#>    <int> <chr>       <chr>                           
#> 1      1 101,102,103 2020-09-14,2020-09-14,2020-09-14
#> 2      2 104,105,106 2020-09-14,2020-09-14,2020-09-14

---

一个更简洁的替代方案：

library(tidyverse)

df %>% 
  group_by(Status) %>% 
  summarise(across(c(ID, Date), str_c, collapse = ","))

#> # A tibble: 2 × 3
#>   Status ID          Date                            
#>    <int> <chr>       <chr>                           
#> 1      1 101,102,103 2020-09-14,2020-09-14,2020-09-14
#> 2      2 104,105,106 2020-09-14,2020-09-14,2020-09-14