删除所有出现某tag的行:
<br />
> dat=read.table(textConnection('tag species x y height<br />
+ 0104101 ´ÌÎå¼Ó 0.15 0.65 20.00<br />
+ 0104103 ´ÌÎå¼Ó 0.55 0.95 8.00<br />
+ 0104104 ´ØëéÊ 0.35 0.95 5.00<br />
+ 0104105 ´ØëéÊ 0.40 0.93 7.00<br />
+ 0104201 ¶«±±²èïð×Ó 0.55 0.60 70.00<br />
+ 0104202 ±©Âí¶¡Ïã 0.45 0.60 20.00<br />
+ 0104203 ±©Âí¶¡Ïã 0.45 0.45 8.00<br />
+ 0104204 ±©Âí¶¡Ïã 0.65 0.50 6.00<br />
+ 0104205 ±©Âí¶¡Ïã 0.80 0.70 15.00<br />
+ 0104206 ÎÀì 0.95 0.70 17.00<br />
+ 0104207 ÎÀì 0.90 0.90 4.00<br />
+ 0104208 ´ØëéÊ 0.20 0.80 4.00<br />
+ 0104209 ´ØëéÊ 0.30 0.15 6.00<br />
+ 0104303 ɫľéÊ 0.45 0.50 7.00<br />
+ 0106101 ´ØëéÊ 0.50 0.10 5.00<br />
+ 0106102 ´ØëéÊ 0.00 0.43 5.00<br />
+ 0106103 ¼¦Ê÷Ìõ¼ÔÉo 0.20 0.40 10.00 '),colCla=rep(c("factor","numeric"),c(2,3)),head=T)<br />
> lvl=levels(dat$tag)<br />
> todel=sample(lvl,5)<br />
> dat[!dat$tag%in%todel,]<br />
tag species x y height<br />
1 0104101 ´ÌÎå¼Ó 0.15 0.65 20<br />
2 0104103 ´ÌÎå¼Ó 0.55 0.95 8<br />
4 0104105 ´ØëéÊ 0.40 0.93 7<br />
6 0104202 ±©Âí¶¡Ïã 0.45 0.60 20<br />
7 0104203 ±©Âí¶¡Ïã 0.45 0.45 8<br />
8 0104204 ±©Âí¶¡Ïã 0.65 0.50 6<br />
9 0104205 ±©Âí¶¡Ïã 0.80 0.70 15<br />
10 0104206 ÎÀì 0.95 0.70 17<br />
12 0104208 ´ØëéÊ 0.20 0.80 4<br />
13 0104209 ´ØëéÊ 0.30 0.15 6<br />
14 0104303 ɫľéÊ 0.45 0.50 7<br />
15 0106101 ´ØëéÊ 0.50 0.10 5<br />
对所有tag重复的行,只保留第一个:
<br />
> dat=rbind(dat,dat)<br />
> dat[unique(rank(dat$tag,tie="min")),]<br />
tag species x y height<br />
1 0104101 ´ÌÎå¼Ó 0.15 0.65 20<br />
3 0104104 ´ØëéÊ 0.35 0.95 5<br />
5 0104201 ¶«±±²èïð×Ó 0.55 0.60 70<br />
7 0104203 ±©Âí¶¡Ïã 0.45 0.45 8<br />
9 0104205 ±©Âí¶¡Ïã 0.80 0.70 15<br />
11 0104207 ÎÀì 0.90 0.90 4<br />
13 0104209 ´ØëéÊ 0.30 0.15 6<br />
15 0106101 ´ØëéÊ 0.50 0.10 5<br />
17 0106103 ¼¦Ê÷Ìõ¼ÔÉo 0.20 0.40 10<br />
21 0104103 ´ÌÎå¼Ó 0.55 0.95 8<br />
41 0104105 ´ØëéÊ 0.40 0.93 7<br />
61 0104202 ±©Âí¶¡Ïã 0.45 0.60 20<br />
81 0104204 ±©Âí¶¡Ïã 0.65 0.50 6<br />
101 0104206 ÎÀì 0.95 0.70 17<br />
121 0104208 ´ØëéÊ 0.20 0.80 4<br />
141 0104303 ɫľéÊ 0.45 0.50 7<br />
161 0106102 ´ØëéÊ 0.00 0.43 5<br />
Forbidden
You don't have permission to access /bbs/post.php on this server.