R:缩短琴弦

alk*_*lki 0 regex string r

什么是缩略的示例串的最佳方式ANNNNNNTCCGGG进入AN6TCCG3,这样,计算出重复2次以上的所有字符,并表示他们的数字?

zer*_*323 6

可能有一种更快的方法,但使用基础R

r <- rle(unlist(strsplit("ANNNNNNTCCGGG", ""))) # Compute RLE
m <- rbind(r$values, r$lengths) # Combine
paste(ifelse(m == 1, "", m), collapse="") 
Run Code Online (Sandbox Code Playgroud)