压缩R中的字符串

Question

我有一大串字符串，只包含以下字符

"M", "D", "A"

如：

 "M" "M" "A" "A" "D" "D" "M" "D" "A"

我想将其压缩为：

M2A2D2M1D1A1 

R. Googling中的

引导我this（一个java解决方案），但在实现它之前，检查一下我是否可以在线找到一些东西会很有趣。谢谢！

Answer 1

R函数rle()是你的朋友。

testVector <- sample(c("M", "D", "A"), 20, replace=T)
res <- rle(testVector)
compressedString <- paste(res$values, res$lengths, collapse = "", sep = "")