將數字向量彙總爲字符串的函數？

Question

比方說，我有一個數字的以下向量：

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

我正在尋找一個功能，將創建一個字符串總結號碼列表方式的人會，即

"1-3, 5, 7-12" 

我如何在R中做到這一點？

Answer 1

添加另一種替代方法，您可以使用deparse ing方法。例如：

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

趁着as.character 「deparse」 荷蘭國際集團給定的 「單子」 作爲輸入，我們可以使用：

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" 

Answer 2

我假設矢量按照例子排序。如果不事先使用vec <- sort(vec)。

編輯說明：@DavidArenburg在我的原始答案中發現了一個錯誤，其中c(min(x), x)實際上應該是c(0, x)。由於我們現在知道我們總是需要首先添加0，所以我們可以省略創建x的第一步，並「即時」執行此操作。現在編輯原始答案和其他選項以反映（您可以檢查原始帖子的編輯歷史記錄）。謝謝大衛！

上調用unname的說明：我用unname(sapply(...))，以確保所得到的矢量未命名，否則將被命名爲0：第（n-1）其中n等於new_vec長度。正如@Tensibai在評論中正確指出的那樣，如果最終目的是通過運行toString(new_vec)生成長度爲1的字符向量，則無關緊要，因爲無論如何，向量名將被toString省略。

---

一個選項（可能不是最短的）將是：

new_vec <- unname(sapply(split(vec, c(0, cumsum(diff(vec) > 1))), function(y) { 
    if(length(y) == 1) y else paste0(head(y, 1), "-", tail(y, 1)) 
})) 

結果：

new_vec 
#[1] "1-3" "5" "7-12" 
toString(new_vec) 
#[1] "1-3, 5, 7-12" 

---

感謝@ Zelazny7它可以通過使用range功能可縮短：

new_vec <- unname(sapply(split(vec, c(0, cumsum(diff(vec) > 1))), function(y) { 
    paste(unique(range(y)), collapse='-') 
})) 

---

由於@DavidArenburg它可以通過使用tapply代替sapply + split進一步縮短：

new_vec <- unname(tapply(vec, c(0, cumsum(diff(vec) > 1)), function(y) { 
    paste(unique(range(y)), collapse = "-") 
})) 

Answer 3

EDITS：我加快docendo的代碼，首先分揀矢量相當多，所以現在他們實際上是平等的。

我還添加了alexis的方法。

readable_integers <- function(integers) 
{ 
    integers <- sort(unique(integers)) 
    group <- cumsum(c(0, diff(integers)) != 1) 

    paste0(vapply(split(integers, group), 
      function(x){ 
      if (length(x) == 1) as.character(x) 
      else paste0(range(x), collapse = "-") 
      }, 
      character(1)), 
      collapse = "; ") 
} 

library(microbenchmark) 
vec = c(1, 2, 3, 5, 7, 8, 9, 10, 11, 12) 
microbenchmark(
    docendo = {vec <- sort(vec) 
    x <- cumsum(diff(vec) > 1) 
    toString(tapply(vec, c(min(x), x), function(y) paste(unique(range(y)),)collapse = "-")) 
    }, 
    Benjamin = readable_integers(vec), 
    alexis = {vec <- sort(vec) 
      as.character(split(as.integer(vec), cumsum(c(TRUE, diff(vec) != 1)))) 
      toString(gsub(":", "-", .Last.value))} 
) 

Unit: microseconds 
    expr  min  lq  mean median  uq  max neval 
    docendo 205.273 220.3755 230.3134 228.293 235.4780 467.142 100 
Benjamin 121.991 128.4420 135.5302 133.574 143.3980 161.286 100 
    alexis 121.698 128.0030 137.0374 136.507 143.3975 169.790 100 

set.seed(pi) 
vec = sample(1:1000, 900) 

set.seed(pi) 
vec = sample(1:1000, 900) 

microbenchmark(
    docendo = {vec <- sort(vec) 
    x <- cumsum(diff(vec) > 1) 
    toString(tapply(sort(vec), c(min(x), x), function(y) paste(unique(range(y)), collapse = "-"))) 
    }, 
    Benjamin = readable_integers(vec), 
    alexis = {vec <- sort(vec) 
      as.character(split(as.integer(vec), cumsum(c(TRUE, diff(vec) != 1)))) 
      toString(gsub(":", "-", .Last.value))} 
) 
Unit: microseconds 
    expr  min  lq  mean median  uq  max neval 
    docendo 1307.294 1353.7735 1420.3088 1379.7265 1427.8190 2554.473 100 
Benjamin 615.525 626.8155 661.2513 638.8385 665.3765 1676.493 100 
    alexis 799.684 808.3355 866.1516 820.0650 833.2615 1974.138 100