如何根据特定条件删除行

Question

数据集包含一列，其中包含超过10000个手机号码，还包含一些没有特定格式的垃圾值。 如何仅保留具有正确手机号码的行

手机号码............评论

9674544444 ...... a

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

asd..as23 ..................... d

作为sas E2 .......... d

232dsasd ..................................... 、、、、、、、、、、、、、、、、、、、、、 231

---

必填表

手机号码............评论

9674544444 ...... a

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

Answer 1

像这样;

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