r - 删除 r 中逗号后的前 4 个字符

Question

我有一个向量，其中包含以下行:

/en/house/125,/en/house/145,/en/house/06
/en/house/45,/fr/house/22,/fr/house/34

我想删除/en/、/fr/等，因为我知道有 24 个 2 字母的可能性。换句话说，我想删除一行的前 4 个字符，以及每次该行中有逗号时的前 4 个字符(我保留逗号)。第一个很简单，我只是使用了:

apply(vectorA, 2, function(x)gsub('\\s+','',x))

但是对于逗号后面的那个，它似乎不太明显。有谁知道如何轻松实现该功能吗？

预期输出应该是:

house/125,house/145,house/06
house/45,house/22,house/34

Answer 1

stringr::str_replace_all怎么样？

"/en/house/125,/en/house/145,/en/house/06" -> string
stringr::str_replace_all(string, "/[a-z]{2}/", "")

这会产生:

[1] "house/125,house/145,house/06"

这假设两个正斜杠之间的所有标签都是两个字符长且小写。