r - 提取 Changeabel 字符串的一部分

Question

我有一个简单但又复杂的问题(至少对我来说)!

我想提取字符串的一部分，如下例所示:

从此字符串:

name <- "C:/Users/admin/Desktop/test/plots/"

对此:

name <- "test/plots/"

我的问题的情节扭曲是名称正在改变。所以它并不总是“test/plots/”，它可能是“abc/ccc/”或“m.project/plots/”等等。

在我的想象中，我会使用一些东西来找到字符串中的最后两个“/”并剪切掉文本部分。但我不知道该怎么做!

感谢您的帮助和时间!

Answer 1

没有正则表达式

使用str_split通过/分割你的路径。然后在反转字符串后提取前三个元素，并使用 collapse 参数将 / 粘贴回 /。

library(stringr)

name <- "C:/Users/admin/Desktop/m.project/plots/"

paste0(rev(rev(str_split(name, "\\/", simplify = T))[1:3]), collapse = "/")

[1] "m.project/plots/"

使用正则表达式

由于您的路径可能包含字符/数字/符号，因此 [^/]+/[^/]+/$ 可能会更好，它可以匹配除 /.

library(stringr)

str_extract(name, "[^/]+/[^/]+/$")

[1] "m.project/plots/"