关于在R中实现数据筛选

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

问题如下：
数据来自多个样本，最后一列代表样本编号，读入数据如下
> data<-read.table("ex5-10.txt",head=F)
> data<-data[,2:6]
> data
       V2    V3 V4  V5 V6
1     6.0 -11.5 19  90  1
2   -11.0 -18.5 25 -36  3
3    90.2 -17.0 17   3  2
4    -4.0 -15.0 13  54  1
5     0.0 -14.0 20  35  2
6     0.5 -11.5 19  37  3
7   -10.0 -19.0 21 -42  3
8     0.0 -23.0  5 -35  1
9    20.0 -22.0  8 -20  3
10 -100.0 -21.4  7 -15  1
11 -100.0 -21.5 15 -40  2
12   13.0 -17.2 18   2  2
13   -5.0 -18.5 15  18  1
14   10.0 -18.0 14  50  1
15   -8.0 -14.0 16  56  1
16    0.6 -13.0 26  21  3
17  -40.0 -20.0 22 -50  3


现在如果想把每个样本的数据筛选出来并分开储存应该怎么做呢？

试过
> data3<-data[data[,5]>2,]
> data3
     V2       V3      V4   V5    V6
[1,] " -11.0" "-18.5" "25" "-36" "3"
[2,] "   0.5" "-11.5" "19" " 37" "3"
[3,] " -10.0" "-19.0" "21" "-42" "3"
[4,] "  20.0" "-22.0" " 8" "-20" "3"
[5,] "   0.6" "-13.0" "26" " 21" "3"
[6,] " -40.0" "-20.0" "22" "-50" "3"


输出的就不是数值了==

而且
> data[data[,5]=1,]
错误: 意外的'='在"data[data[,5]="里


“=”会报错

求指导呵，有木有高手有比较好的解决办法?

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：数据筛选 Data 解决办法 读入数据 怎么做 样本

要用双等号“==”

或者
data2 <-data[data$V6==2,]

firelife 发表于 2011-11-7 11:07
要用双等号“==”

或者

多谢指点~感激不尽~~

其实，楼主也可以在自己的程序基础上再多写一条命令就可以的，把文本型的强制转换成numeric~~

庄周俟水 发表于 2011-11-7 19:49
其实，楼主也可以在自己的程序基础上再多写一条命令就可以的，把文本型的强制转换成numeric~~

多谢指点~~

1. dat=split(data,data$V6)
   
2. lapply(dat,function(x) write.csv(x,paste(x$V6[1],'.csv',sep=''),row.names=F))

复制代码

不太会

split(data,V6)