R:如何拆分字符串并保留其中的一部分？

Question

我有很多如下所示的字符串。

> x=c("cat_1_2_3", "dog_2_6_3", "cow_2_8_6")
> x
[1] "cat_1_2_3" "dog_2_6_3" "cow_2_8_6"

我想分开字符串，同时仍然保留它的第一部分，如下所示。

"cat_1" "cat_2" "cat_3" "dog_2" "dog_6" "dog_3" "cow_2" "cow_8" "cow_6"

有什么建议吗？

Answer 1

我们可以使用sub

scan(text=sub("([a-z]+)_(\\d+)_(\\d+)_(\\d+)", "\\1_\\2,\\1_\\3,\\1_\\4",
          x), what ='', sep=",", quiet = TRUE)
#[1] "cat_1" "cat_2" "cat_3" "dog_2" "dog_6" "dog_3" "cow_2" "cow_8" "cow_6"

---

或者另一种选择是 split string with

unlist(lapply(strsplit(x, "_"), function(x) paste(x[1], x[-1], sep="_")))