R - 生成一個字符串，通過將序列值替換為序列的起始值和結束值來匯總整數向量

Question

我正在尋找一種有效的方法來簡化整數向量作為匯總字符串，以便將其格式化為適合表格單元格。

例如：

c(1, 2, 3, 4, 6, 8, 9, 10)

應該產生

"1-4, 6, 8-10"

這在打印向量中的所有元素將很快使表格不可讀的情況下尤其有用。

例如

c(1:50, 53, 89:120)

應該產生

"1-50, 53, 89-120"

Answer 1

您希望將元素分組為連續整數的塊。 diff可以告訴你兩個連續元素是否在同一個塊中， cumsum可以對塊進行編號， tapply可以提取每個塊的第一個和最后一個元素。

x <- c(1:50, 53, 89:120)
y <- tapply( x, c(0,cumsum(diff(x) != 1)), range )
# Format the result
y <- sapply(y, function(u) 
  if(u[1]==u[2]) u[1] 
  else paste(u,collapse=":")
)
paste(y, collapse=", ")