数据操作：减少行数（使用R）

Question

我的数据集是这样的：

a1 <- c("a","a","a", "b", "c", "c", "d", "d", "d", "d")
b1 <- c(7, 7, 7,5, 4, 4, 3, 3, 3, 3)
c1 <- c("A","B", "C", "D", "E", "F", "B", "C", "EE", "F")
m1 <- data.frame(a1, b1, c1)

我的预期结果是这样的：

a <- c("a","b", "c", "d")
b <- c(7, 5, 4, 3)
c <- c("A; B; C","D", "E; F", "B; C; EE; F")
m <- data.frame(a, b, c)

我的实际代码是这样的，但它不起作用：

library(dplyr)
m2 <-m |> 
  summarise(c = gsub(", ", "", toString(c1)), .by=c(a1,b1)) 

我该如何修复它？ 谢谢

Answer 1

我想你可以尝试一下

> aggregate(c1 ~ ., m1, toString)
  a1 b1          c1
1  d  3 B, C, EE, F
2  c  4        E, F
3  b  5           D
4  a  7     A, B, C