将向量的几乎相同的数字分组

Question

我有以下向量：

c("a", "a", "b", "a", "a", "c", "c", "c")

我想根据接近相同的值将其元素分成几组。 结果是这样的：

[[1]] ("a", "a"), [[2]]("b"), [[3]]("a", "a"), [[4]]("c", "c", "c")

虽然第 1 组和第 3 组的元素相同，但它们不是邻居。所以他们属于不同的群体。 我尝试使用 for 循环来做，但还不够好。

Answer 1

另一个选项，但 rleid 来自 data.table 包

> split(v,rleid(v))
$`1`
[1] "a" "a"

$`2`
[1] "b"

$`3`
[1] "a" "a"

$`4`
[1] "c" "c" "c"

或其他基本 R 选项

> split(v,cumsum(c(TRUE,head(v,-1)!=v[-1])))
$`1`
[1] "a" "a"

$`2`
[1] "b"

$`3`
[1] "a" "a"

$`4`
[1] "c" "c" "c"

Answer 2

使用此代码

vec <- c("a", "a", "b", "a", "a", "c", "c", "c")

v2 <- rle(vec)

split(vec,rep(1:length(v2$lengths), v2$lengths)) 

$`1`
[1] "a" "a"

$`2`
[1] "b"

$`3`
[1] "a" "a"

$`4`
[1] "c" "c" "c"