Как да премахнете редове въз основа на конкретно условие - r, формат, delete-row

Наборът от данни съдържа колона с над 10000 клетъчни телефонни номера. Как да запазя само редовете с правилните номера на мобилния телефон

номер на клетка ............ коментар

9674544444 ............... a

9453453455 ............... c

asd..as23 ..................... г

as sas E2 ................... d

232dsasd .................... ,,,,,,,,,,,,,,, 23 ,,,,, 231

необходимата таблица

номер на клетка ............ коментар

9674544444 ............... a

9453453455 ............... c

Отговори:

Като този;

df<-read.table(header=T,sep="|",text="cell number|comment
9674544444|a
9453453455|c
asd..as23|d
as sas E2|d
232dsasd|23,,,,,231")

df[grep("[0-9]{10}",df$cell.number),]

#  cell.number comment
#1  9674544444       a
#2  9453453455       c