将数字向量分配在其包含的自然序列中的函数

Question

我有一个向量如下：

example <- c(1, 2, 3, 8, 10, 11)

我正在尝试编写一个返回输出的函数，就像您从中获得的函数：

desired_output <- list(first_sequence = c(1, 2, 3), 
                       second_sequence = 8, 
                       third_sequence = c(10, 11)
                       )

实际上，我想要的是计算我的向量中有多少个序列，以及我的向量中的序列，以及每个长度。碰巧的是，列表作为“ desired_ouput”​​中的列表就足够了。

最终性是构造另一个向量，我们称其为“ B”，其中包含以下内容：

b <- c(3, 3, 3, 1, 2, 2)

背后的现实世界问题是测量3D PointCloud中包含的3D对象的高度。

我尝试编程一个函数，该函数返回``example_list''中的列表，又是一个直接输出向量“ b”的递归函数，无效。

有人有什么想法吗？ 非常感谢。

Answer 1

我们可以通过通过diff相邻元素创建分组来拆分为list

out <- split(example, cumsum(c(TRUE, abs(diff(example)) != 1)))

，然后我们获得lengths and rep 代码>丽丝

unname(rep(lengths(out), lengths(out)))
[1] 3 3 3 1 2 2

Answer 2

您可以做：

out <- split(example, example - seq_along(example))

要获得长度：

ln <- unname(lengths(out))
rep(ln, ln)
[1] 3 3 3 1 2 2

Answer 3

这是另一个。 而是一种不同的方法：

1. 创建示例向量的数据框
2. 优雅的，
3. 不是

example_df <- data.frame(example = example)

example_df$group <- cumsum(ifelse(c(1, diff(example) - 1), 1, 0))

tapply(example_df$example, example_df$group, function(x) x)

这是另一个。 而是一种不同的方法：

创建示例向量的数据框
优雅的，
不是

example_df <- data.frame(example = example)

example_df$group <- cumsum(ifelse(c(1, diff(example) - 1), 1, 0))

tapply(example_df$example, example_df$group, function(x) x)

1`
[1] 1 2 3

这是另一个。 而是一种不同的方法：

创建示例向量的数据框
优雅的，
不是

example_df <- data.frame(example = example)

example_df$group <- cumsum(ifelse(c(1, diff(example) - 1), 1, 0))

tapply(example_df$example, example_df$group, function(x) x)

2`
[1] 8

这是另一个。 而是一种不同的方法：

创建示例向量的数据框
优雅的，
不是

example_df <- data.frame(example = example)

example_df$group <- cumsum(ifelse(c(1, diff(example) - 1), 1, 0))

tapply(example_df$example, example_df$group, function(x) x)

3`
[1] 10 11

Answer 4

另一个选项是使用ave：

ave(example, cumsum(c(1, diff(example) != 1)), FUN = length)
# [1] 3 3 3 1 2 2

#or just 
ave(example, example - seq(example), FUN = length)