我有一张这样的桌子:

ID Date Status
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

但是想要一张这样的桌子:

Status ID Date
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

我当前使用的代码:

注意:在运行代码之前,日期的格式为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.

推荐答案

可能的解决方案:

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

更简洁的 Select :

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

R相关问答推荐

无法将传奇添加到cowplot多情节中

二维样条,严格以一个参数递增

如何得到R中唯一的组合群?

当月份额减go 当月份额

在df中保留原始变量和新变量

非线性混合效应模型(NLME)预测变量的置信区间

R中边际效应包中Logistic回归的交互作用风险比

Data.table';S GForce-将多个函数应用于多列(带可选参数)

在列表中排列R数据框中的列顺序

在多页PDF中以特定布局排列的绘图列表不起作用

减go R中列表的所有唯一元素对

手动指定从相同数据创建的叠加图的 colored颜色

变长向量的矢量化和

`-`是否也用于数据帧,有时使用引用调用?

如何阻止围堵地理密度图?

在使用SliderInput In Shiny(R)设置输入数据的子集时,保留一些情节痕迹

R将函数参数传递给ggploy

在ggplot2图表中通过端点连接点

如何使用list_rind在列表中保留已命名但不包含第0行的记录?

如何将一列相关性转换为R中的相关性矩阵