在 r 中合并具有相似内容的列表项？

Question

我有列表 v:

v <- list(c("12", "1"), c("12", "2"), c("12", "3"), c("13", "1"), c("22", "3"), c("30", "4"))

并且我需要通过连接以逗号分隔的第二个数字来合并此列表中共享相同第一个数字的行，这样生成的列表 w 如下所示：

w <- list(c("12", "1,2,3"), c("13", "1"), c("22", "3"), c("30", "4"))

我该怎么做？提前致谢！

> vv <- do.call(rbind.data.frame, v)
> names(vv) <- c("v1", "v2")
> vv
  v1 v2
1 12  1
2 12  2
3 12  3
4 13  1
5 22  3
6 30  4
> vvv <-vv %>%
+   group_by(v1) %>%
+   summarise(v3 = paste0(v2, collapse = ",")) 
> vvv
# A tibble: 4 x 2
  v1    v3   
  <fct> <chr>
1 12    1,2,3
2 13    1    
3 22    3    
4 30    4    
> w <- as.list(as.data.frame(t(vvv)))
> w
$V1
   v1    v3 
   12 1,2,3 
Levels: 1,2,3 12

$V2
v1 v3 
13  1 
Levels: 1 13

$V3
v1 v3 
22  3 
Levels: 22 3

$V4
v1 v3 
30  4 
Levels: 30 4

> w <- lapply(as.list(1:dim(vvv)[1]), function(x) as.character(vvv[x[1],]))
> w
[[1]]
[1] "1"     "1,2,3"

[[2]]
[1] "2" "1"

[[3]]
[1] "3" "3"

[[4]]
[1] "4" "4"

> w <- base::lapply(as.list(1:dim(vvv)[1]), function(x) as.character(vvv[x[1],]))
> w
[[1]]
[1] "1"     "1,2,3"

[[2]]
[1] "2" "1"

[[3]]
[1] "3" "3"

[[4]]
[1] "4" "4"

Answer 1

你可以试试

library(dplyr)

vv <- do.call(rbind.data.frame, v)
names(vv) <- c("v1", "v2")
vvv <-vv %>%
  group_by(v1) %>%
  summarise(v3 = paste0(v2, collapse = ",")) 
w <- as.list(as.data.frame(t(vvv)))
w



$V1
[1] "12"    "1,2,3"

$V2
[1] "13" "1" 

$V3
[1] "22" "3" 

$V4
[1] "30" "4" 



w <- lapply(as.list(1:dim(vvv)[1]), function(x) as.character(vvv[x[1],]))
w

[[1]]
[1] "12"    "1,2,3"

[[2]]
[1] "13" "1" 

[[3]]
[1] "22" "3" 

[[4]]
[1] "30" "4"

试试这个

v <- list(c("12", "1"), c("12", "2"), c("12", "3"), c("13", "1"), c("22", "3"), c("30", "4"))
vv <- do.call(rbind.data.frame, v)
names(vv) <- c("v1", "v2")
vv

  v1 v2
1 12  1
2 12  2
3 12  3
4 13  1
5 22  3
6 30  4

vvv <-vv %>%
  dplyr::group_by(v1) %>%
  dplyr::summarise(v3 = paste0(v2, collapse = ",")) 
vvv

  v1    v3   
  <chr> <chr>
1 12    1,2,3
2 13    1    
3 22    3    
4 30    4 

w <- lapply(as.list(1:dim(vvv)[1]), function(x) as.character(vvv[x[1],]))
w

[[1]]
[1] "12"    "1,2,3"

[[2]]
[1] "13" "1" 

[[3]]
[1] "22" "3" 

[[4]]
[1] "30" "4"

使用`data.table`

library(data.table)
lapply(seq_len(nrow(vvv)),
       function(i) as.character(setDF(lapply(vvv, "[", i))))

这可能解决

v <- list(c("12", "1"), c("12", "2"), c("12", "3"), c("13", "1"), c("22", "3"), c("30", "4"))
vv <- do.call(rbind.data.frame, v)
names(vv) <- c("v1", "v2")
vvv <-vv %>%
  dplyr::group_by(v1) %>%
  dplyr::summarise(v3 = paste0(v2, collapse = ",")) %>% 
  mutate(v1 = as.character(v1))
w <- lapply(as.list(1:dim(vvv)[1]), function(x) as.character(vvv[x[1],]))
w

Answer 2

使用应用函数族的基础 R 选项

#get 1st value from each list
group_values <- sapply(v, `[[`, 1)

#For each unique group value combine all the other values in one 
#comma separated string
Map(c, unique(group_values), 
    tapply(v, group_values, function(x) 
    toString(unlist(sapply(x, tail, -1)))))

#$`12`
#[1] "12"      "1, 2, 3"

#$`13`
#[1] "13" "1" 

#$`22`
#[1] "22" "3" 

#$`30`
#[1] "30" "4"

在 r 中合并具有相似内容的列表项？

Merge list items with similar content in r?

merge

r

list

试试这个

使用`data.table`

这可能解决

在 r 中合并具有相似内容的列表项？

Merge list items with similar content in r?

merge

r

list

试试这个

使用data.table

这可能解决

使用`data.table`