R: фильтрация по первому Di git целого числа

Question

У меня есть длинный список целых чисел (> 250 КБ) в диапазоне от 2 цифр git до 4 цифр git. Я хотел бы отделить и затем отфильтровать по первому di git целого числа, используя R.

SICCode <- c (47, 286, 3231, 93, 854, 153) </p>

Мои попытки вернуть 4, 2, 3, 9, 8 и 1 были сорваны. Я искал вокруг, но не могу найти именно то, что я ищу. Должен верить, что я упускаю что-то легкое ... пожалуйста, будьте добры Спасибо

Answer 1

Мы можем использовать substr

as.integer(substr(SICCode, 1, 1))
#[1] 4 2 3 9 8 1

Answer 2

Вы можете определить свою пользовательскую функцию фильтра f, как показано ниже

f <- Vectorize(function(x) {
  repeat {
    if (x<10) return(x)
    x <- x%/%10
  }
})

затем

> f(SICCode)
[1] 4 2 3 9 8 1