添加另一个备选方案，您可以使用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"