R、stringr - 使用单个命令替换向量所有元素中的多个字符

Question

首先，我对 R 和一般编程都很陌生，所以如果这是一个愚蠢的问题，我深表歉意。

我有一个与此类似的字符向量:

> vec <- rep(c("XabcYdef", "XghiYjkl"), each = 3)
> vec
[1] "XabcYdef" "XabcYdef" "XabcYdef" "XghiYjkl" "XghiYjkl" "XghiYjkl"

使用 stringr 包，我想删除前导的“X”并将“Y”替换为“-”。

我尝试了以下代码，但结果不是我所希望的。看起来 pattern 和 replacement 参数在输入向量上被回收:

> str_replace(vec, c("X", "Y"), c("", "-"))
[1] "abcYdef"  "Xabc-def" "abcYdef"  "Xabc-def" "abcYdef"  "Xabc-def"

调用该函数两次即可达到预期结果:

> vec <- rep(c("XabcYdef", "XghiYjkl"), each = 3)
> vec <- str_replace(vec, "X", "")
> vec <- str_replace(vec, "Y", "-")
> vec
[1] "abc-def" "abc-def" "abc-def" "ghi-jkl" "ghi-jkl" "ghi-jkl"

有没有办法通过单个命令实现相同的效果？

Answer 1

str_replace_all 可以采用匹配向量来替换:

str_replace_all(vec, c("X" = "", "Y" = "-"))
[1] "abc-def" "abc-def" "abc-def" "ghi-jkl" "ghi-jkl" "ghi-jkl"