В г, извлекая наиболее распространенную ди git в строку

Question

Найти наиболее распространенный ди git в строке. Использование stringr

• EX: общий (122333)

• выход: 3 или '3'

• EX: общий (I утра 29. Родился в 1990 году)

• выход: «9» или 9

Answer 1

Мы можем создать функцию, удалить все нецифровые символы, разделить и вернуть число с максимальным количеством.

common <- function(x) {
   names(which.max(table(strsplit(gsub('\\D', '', x), "")[[1]])))
}

common(123333)
#[1] "3"

common('I am 29. Born in 1990')
#[1] "9"

Мы также можем использовать str_extract_all здесь:

common <- function(x) {
  names(which.max(table(stringr::str_extract_all(x, '\\d')[[1]])))
}