r - 拆分一个 rle 对象

Question

假设我有以下 rle 对象:

r = rle(c(rep("M",28),rep("N",4265),rep("M",16),rep("S",2),rep("N",400),rep("M",10)));

我想将其分解为以下字符串向量:

a = c("28M","4265N","16M2S","400N","10M");

意思是我将“N”值和非“N”值及其对应的长度分成向量中的单独元素。

请注意，所有非 N 都粘贴在一起，这就是为什么结果有“16M2S”，而不是“16M”和“2S”分开的原因。

执行此操作的最有效方法是什么？

Answer 1

这行得通并且速度应该不错:

l <- r$lengths
v <- r$values
s <- paste0(l, v)
n <- v == "N"
i <- cumsum(c(TRUE, head(n, -1) != tail(n, -1)))

unname(vapply(split(s, i), paste, character(1), collapse = ""))
# [1] "28M"   "4265N" "16M2S" "400N"  "10M"