r的汇总字符串到r中的向量

Question

我有一个数据表test：

ID	键
1	2365
1	2365
1	3709
2	6734
2	1908
2	4523

我想汇总unique key by id使用data.table软件包进入向量。

预期输出：

ID	KEY_ARRAY
1	“ 2365”，“ 3709”
2	“ 6734”，“ 1908”，“ 4523”

因此，这应该像array_agg sql函数一样工作。

我尝试了：
res＆lt; - test [，list（key_array = paste（unique（key），collapse =“，”）），by =“ id”]，但我只得到一个字符串。但是我需要有机会找到每个向量的长度并使用其一定元素运行（例如，找到两个向量的相交）。

Answer 1

1。基础r

<代码>汇总单线。

x <- 'id    key
1   2365
1   2365
1   3709
2   6734
2   1908
2   4523'
test <- read.table(textConnection(x), header = TRUE)

aggregate(key ~ id, test, \(x) c(unique(x)))
#>   id              key
#> 1  1       2365, 3709
#> 2  2 6734, 1908, 4523

^由

创建如果用户 @chris的

aggregate(key ~ id, test, \(x) paste(unique(x), collapse = ", "))

请注意，两个c（unique（x）） and as.character（c（unique（x）））都将输出列表列，因此后者解决方案无论如何都是正确的。

---

2。软件包data.table

再次单线。

输出是列表列，每个列表成员都是整数向量。保持整数使用

list(unique(key))

。

suppressPackageStartupMessages(library(data.table))

res <- setDT(test)[, .(key_array = list(as.character(unique(key)))), by = id]
res
#>    id      key_array
#> 1:  1      2365,3709
#> 2:  2 6734,1908,4523

str(res)
#> Classes 'data.table' and 'data.frame':   2 obs. of  2 variables:
#>  $ id       : int  1 2
#>  $ key_array:List of 2
#>   ..$ : chr  "2365" "3709"
#>   ..$ : chr  "6734" "1908" "4523"
#>  - attr(*, ".internal.selfref")=<externalptr>

^由

创建，为了访问向量，使用两个提取器，一个用于提取列，另一个提取向量。

res$key_array[[1]]
#> [1] "2365" "3709"
res$key_array[[2]]
#> [1] "6734" "1908" "4523"

^由

---

创建。

​

suppressPackageStartupMessages(library(dplyr))

test %>%
  group_by(id) %>%
  summarise(key_array = paste(unique(key), collapse = ", "))
#> # A tibble: 2 × 2
#>      id key_array  
#>   <int> <chr>           
#> 1     1 2365, 3709      
#> 2     2 6734, 1908, 4523

^由