来自部分字符串的子集数据答案

【问题标题】：Subset data from a part of string来自部分字符串的子集数据
【发布时间】：2016-01-19 13:43:11
【问题描述】：

我有以下数据集：

dat2 <- read.table(header=TRUE, text="
ID  De  Ep  Ti  ID1
A1123    A117 121 100 11231
                   A1123MDN A108 C207 D110 E11232
                   A1124MDN A122 C207 D110 E11232
                   A1124MDN A117 C207 D110 E11232
                   A1124 A122 C208 D110 E11232
                   B1125MDN A108 C208 D110 E11232
                   B1125MDN A108 C208 D110 E11232
                   B1126MDN A122 C208 D110 E11233
                   C1126 A109 C208 D111 E11233
                   ")
dat2
        ID   De   Ep   Ti    ID1
1    A1123 A117  121  100  11231
2 A1123MDN A108 C207 D110 E11232
3 A1124MDN A122 C207 D110 E11232
4 A1124MDN A117 C207 D110 E11232
5    A1124 A122 C208 D110 E11232
6 B1125MDN A108 C208 D110 E11232
7 B1125MDN A108 C208 D110 E11232
8 B1126MDN A122 C208 D110 E11233
9    C1126 A109 C208 D111 E11233

我想根据第一列中的MDN 的一部分对数据集进行子集化。冗长的代码是：

mdn <- subset(dat2, ID=="A1123MDN"|ID=="A1124MDN"| ID=="B1125MDN"| ID=="B1126MDN")
mdn
        ID   De   Ep   Ti    ID1
2 A1123MDN A108 C207 D110 E11232
3 A1124MDN A122 C207 D110 E11232
4 A1124MDN A117 C207 D110 E11232
6 B1125MDN A108 C208 D110 E11232
7 B1125MDN A108 C208 D110 E11232
8 B1126MDN A122 C208 D110 E11233

数据集有 456,345 行。按照上述方法进行子集化是不可行的。

【问题讨论】：

标签： r string subset

【解决方案1】：

用 grep 试试

dat2[grep("MDN",dat2$ID),]

或使用 grpl

subset(dat2, grepl("MDN",dat2$ID))

【讨论】：