How to extract the last text after forward slash

Question

I have a df that looks like this:

AF	GT	Sample_name
0.001	1/1	path/to/sample/name/ID0001.vcf.gz
0.005	0/1	path/to/sample/name/ID0002.vcf.gz

What I want is to only keep the ID name in the Sample_name column:

AF	GT	Sample_name
0.001	1/1	ID0001
0.005	0/1	ID0002

I would very much appreciate any help in achieving this.

https://stackoverflow.com/questions/29113973/get-filename-without-extension-in-r — Onyambu, Jun 22 '22 at 17:35

score 3 · Answer 1 · answered Jun 22 '22 at 17:46

There are some built in file name helpers that you can use here.

basename()
tools::file_path_sans_ext()

So in this example simply do:

library(tools)

df$Sample_name <- file_path_sans_ext(basename(df$Sample_name), compression = TRUE)

score 1 · Answer 2 · answered Jun 22 '22 at 17:23

1

You can use a regex pattern with gsub():

gsub(".*(ID\\d*).*", replacement = "\\1", x = "path/to/sample/name/ID0001.vcf.gz")
#> "ID0001"

Across your dataframe:

df$sample_name2 <- gsub(".*(ID\\d*).*", replacement = "\\1", x = df$sample_name)

answered Jun 22 '22 at 17:23

Skaqqs

4,010
1
7
21

score 1 · Answer 3 · answered Jun 22 '22 at 17:53

Here is tidyverse solution. Note this only works if you ID string has always: ID followed by 4 numbers:

library(dplyr)
library(stringr)

df %>% 
  mutate(Sample_name=str_extract(Sample_name, 'ID\\d{4}'))

    AF  GT Sample_name
1 0.001 1/1      ID0001
2 0.005 0/1      ID0002

score 1 · Answer 4 · answered Jun 22 '22 at 18:14

Using sub with basename to take the sample name:

df$Sample_name <- sub('\\..*$', '', basename(df$Sample_name))
df

Output:

     AF  GT Sample_name
1 0.001 1/1      ID0001
2 0.005 0/1      ID0002

Data

df <- data.frame(AF = c(0.001, 0.005),
                 GT = c("1/1", "0/1"),
                 Sample_name = c("path/to/sample/name/ID0001.vcf.gz", "path/to/sample/name/ID0002.vcf.gz"))

How to extract the last text after forward slash

4 Answers4

Data