如何在r中提取字符矢量的特定部分？

Question

我有这样的文件名作为字符向量；

filenames <- c('1194-1220-1479-891--(133.07).RDS','1194-1221-1421-891--(101.51).RDS')

不想在伪造中拥有数字，并且想要数字“/”分离。 因此所需的输出是；

filenames_desired <- c('1194/1220/1479/891','1194/1221/1421/891')

我尝试了gsub，但不知道如何删除伪造中的数字。

提前致谢

Answer 1

使用Stringr，环顾（？= - ）含义：必须遵循破折号和sapply：

filenames <- c('1194-1220-1479-891--(133.07).RDS','1194-1221-1421-891--(101.51).RDS')

sapply(stringr::str_extract_all(filenames, "\\d+(?=-)"), 
       paste0, 
       collapse = "/") 

[1] "1194/1220/1479/891" "1194/1221/1421/891"

Answer 2

我们可以使用一个sub（）在此处致电：

filenames <- c("1194-1220-1479-891--(133.07).RDS",
               "1194-1221-1421-891--(101.51).RDS")

output <- sub("(\\d+)-(\\d+)-(\\d+)-(\\d+).*", "\\1/\\2/\\3/\\4", filenames)
output

[1] "1194/1220/1479/891" "1194/1221/1421/891"

Answer 3

只需使用gsub与\\ - 。*：删除之后的所有内容，包括-：

gsub('\\--.*', '', filenames)

[1] "1194-1220-1479-891" "1194-1221-1421-891"

Answer 4

如我所见，您的名字的前18个字符是您的最后名称的基础；因此，您可以使用以下代码

# Initial names
  filenames <- ('1194-1220-1479-891--(133.07).RDS','1194-1221-1421-891--(101.51).RDS')

# Extract the first 18 elements of "filenames"
  nam <- substr(filenames, 1, 18)
# Replace "-" by "/"
  final.names <- str_replace_all(nam, "-", "/")

Answer 5

您可以使用strsplit从每个列表中提取第一个元素，然后使用gsub：

gsub('-', '/', sapply(strsplit(filenames, '--'), `[[`, 1))

哪个将产生

#"1194/1220/1479/891" "1194/1221/1421/891"