rstringextractrscript# How to extract somo character after a string with a number of word which can change in R

I would like to extract a couple of characters (numbers in this case), which go after a string of letters that can change their length (for instance, between 1 and 3). For example:

```
animals<-c('B02420','SS9874','MZ990122','HRB1281','NO2451068')
```

Here, I would like to obtain this:

```
digits<-c(02,98,99,12,24)
```

I don't know if it exists a simple way to get them.

Solution

```
gsub("^[A-Z]+([0-9]{2}).*", "\\1", animals)
[1] "02" "98" "99" "12" "24"
```

explanation

`^[A-Z]+`

from the start of the string a sequence of capital letters

`([0-9]{2})`

capture a sequence of 2 exactly two digits to group 1

`.*`

the rest

`\\1`

group 1

- Making an SEIR model parameter to depend on incidence of a compartment at each time step using ode function
- Applying strsplit() on data.frame results in unexpected output
- How to use pivot_longer to combine multiple columns in R with dplyr
- How to access and read files on an external hard drive using R and RStudio (Mac)?
- Subsetting netcdf files with multiple variables by time range
- Using enter key with action button in R Shiny
- How do I change the default library path for R packages
- Change background color between day and night in R base
- Balance of deposit account using tidyverse / mutate
- How to color in flextable with an as_grouped_data format with equal cells with same values
- Error in x[[1]] : subscript out of bounds
- How to configure chatbot using the shinyChatR package
- Remove rows with dplyr based on two conditions of two variables in R
- Calculate CDF of Weibull distribution in R
- How to delete all strings except some specific name in R?
- Assign date order (mm/dd/yyyy) to a date time character in R
- How to use conditional panel in R Shiny to only hide and show user inputs while still allowing underlying calculations to run?
- What are the ways for the faster processing of raster stack
- Regression with Panel Data (Wide)?
- R -How to pass value in mongolite Query
- Saving output from a function containing loop and ifelse
- A simple pivot_longer on 3D array in R?
- How to add a subscript in R
- MCMC and binary logistic regressions with zero events
- Summary statistics table in R Markdown
- calculate color scale range independently for each facet
- Remove variable label when using tbl_strata() and tbl_summary() from gtsummary package
- Adding superscript and minus signs to data and axis labels in ggplot2
- R equivalent of MATLAB's pascal(n, 1) different column signs
- Scraping federal note yield table from the treasury website