gsub - coupe une séquence de lettres / chiffres à partir de la fin d'un mot

Une idée via la base R,

x <- c('miR.30a.5p.11TC.0.0.0', 
       'miR.30a.5p.0.G.0.ag', 
       'miR.21.5p.0.A.0.tga', 
       'miR.30a.3p.0.TA.c.c')

Ou en utilisant le package stringr ,

#For the sum,
sum(stringr::word(x, -2, sep = '\\.') == 0)
#[1] 3

#For trimming
stringr::word(x, 1, -2, sep = '\\.')
#[1] "miR.30a.5p.11TC.0.0" "miR.30a.5p.0.G.0"    "miR.21.5p.0.A.0"   "miR.30a.3p.0.TA.c"

DONNÉES

sum(sapply(x, function(i){i1 <- strsplit(i, '.', fixed = TRUE)[[1]]; 
                          i1[(length(i1)) - 1] == 0}))

#[1] 3

sum(gsub('.*\\.(.*)\\..*','\\1',x)==0)
[1] 3

      .* any number of characters and it may contain dot as well
      \\. a literal dot
      (.*) group of any number of characters. we will get this group back using \\1 
      \\..* a literal dot "the final dot" followed by any number of characters

exemple de données

filt <- unlist(lapply(lapply(strsplit(names, ".", fixed=T), rev), "[[", 2)) == "0" # boolean vector with TRUE where 
sum(filt) # nb of files with zeros as second last element

workflow

1. Diviser les chaînes par "."
2. vecteurs fractionnés inversés
3. prendre le deuxième élément

names <- c("miR.30a.5p.11TC.0.0.0", 
       "miR.30a.5p.0.G.0.ag", 
       "miR.21.5p.0.A.0.tga", 
       "miR.30a.3p.0.TA.c.c", 
       "miR.30a.5p.11TC.0.0", 
       "miR.30a.5p.0.G.0")

Meilleur, Chris