Извлечь конкретные значения (длина n цифр и начиная с цифры)

Question

У меня есть CSV-файл, подобный этому:

  X      a      b      c      d      e      f
1 1 663583 364950 651551 691428 111738  14522
2 2 373345 273164     79  65979 753131 446762
3 3 481865 920656 510754  67696 987635 964008
4 4 132506 824874 917557 506235 235523 500492
5 5  59034 772322 195845 130662 828260 262721
6 6 129712 294165 867589 199928 434893 444084

Мне нужен список значений, начинающийся с 7 и длиной 6

для примера abve, который я ожидаю:

[753131,772322]

Я видел некоторое использование функции grepl(), но не мог понять, как извлечь значения и превратить их в список.

Answer 1

Использование regex

d[sapply(d, function(x) grepl("^7", x) & nchar(x) == 6)]
#[1] 772322 753131

Или математика

d[trunc(d/10^5) == 7]
#[1] 772322 753131

---

ДАННЫЕ

d = read.table(strip.white = TRUE, stringsAsFactors = FALSE, header = TRUE,
               text =
"  X      a      b      c      d      e      f
 1 1 663583 364950 651551 691428 111738  14522
 2 2 373345 273164     79  65979 753131 446762
 3 3 481865 920656 510754  67696 987635 964008
 4 4 132506 824874 917557 506235 235523 500492
 5 5  59034 772322 195845 130662 828260 262721
 6 6 129712 294165 867589 199928 434893 444084")

Answer 2

Также можно указать unlist и использовать grep, сопоставляя цифру 7 в начале (^) строки, за которой следуют еще 5 цифр (\\d{5}) перед концом ($)строки

unname(grep("^7\\d{5}$", unlist(df1), value = TRUE))
#[1] "772322" "753131"

Если мы хотим получить значения по строкам, то транспонируем набор данных, объединяем его с вектором и используем grep

unname(grep("^7\\d{5}$", c(t(df1)), value = TRUE))
#[1] "753131" "772322"

data

df1 <- structure(list(X = 1:6, a = c(663583L, 373345L, 481865L, 132506L, 
59034L, 129712L), b = c(364950L, 273164L, 920656L, 824874L, 772322L, 
294165L), c = c(651551L, 79L, 510754L, 917557L, 195845L, 867589L
), d = c(691428L, 65979L, 67696L, 506235L, 130662L, 199928L), 
    e = c(111738L, 753131L, 987635L, 235523L, 828260L, 434893L
    ), f = c(14522L, 446762L, 964008L, 500492L, 262721L, 444084L
    )), class = "data.frame", row.names = c("1", "2", "3", "4", 
"5", "6"))

Answer 3

d<-as.list(d[d >=700000 & d< 799999])