从原始序列到缩短代码的 R 序列格式

Question

在 R 中，我可以写出一个 1 - 9 的序列，比如 1:9它会输出 c(1,2,3,4,5,6,7,8,9) .
我想做相反的事情。如果我有一个 c(1,2,3,4,5,6,7,8,9) 的序列有什么办法可以得到1:9作为输出？最好以动态方式，例如 c(1,2,3,4,6,7,8,9)变成 c(1:4, 6:9) ?

Answer 1

一种选择可能是:

sapply(split(x, cumsum(c(1, diff(x)) > 1)), function(x) paste(range(x), collapse = ":"))

    0     1 
"1:4" "6:9"