将连续的数字串折叠为一串范围 [英] Collapse consecutive runs of numbers to a string of ranges

问题描述

假设我有以下数字向量：

vec = c(1, 2, 3, 5, 7, 8, 9, 10, 11, 12)

我正在寻找一个函数，它将创建一个字符串，以人类的方式总结数字列表。也就是说，每次连续数字运行(这里1, 2, 3和7, 8, 9, 10, 11, 12)折叠为其起始值和结束值：

"1-3, 5, 7-12"

如何在R中执行此操作？

推荐答案

添加另一个备选方案，您可以使用deparseING方法。例如：

deparse(c(1L, 2L, 3L))
#[1] "1:3"

利用as.character"离开"给定的"列表"作为输入，我们可以使用：

as.character(split(as.integer(vec), cumsum(c(TRUE, diff(vec) != 1))))
#[1] "1:3"  "5"    "7:12"
toString(gsub(":", "-", .Last.value))
#[1] "1-3, 5, 7-12"

这篇关于将连续的数字串折叠为一串范围的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！