r语言 sampling 分层抽样之后怎么取剩下的数据
查看全部1个回答
邢小行要回家
TA获得超过223个赞
关注
成为第5位粉丝
对行号进行抽样，保存抽出样本的行号，在这些行号前加减号，取数据集的子集即可
>set.seed(1234)
>( x <- data.frame(a=sample(c(1,0),10,replace=T),b=11:20) )
a b
1 1 11
2 0 12
3 0 13
4 0 14
5 0 15
6 0 16
7 1 17
8 1 18
9 0 19
10 0 20
>( row_1 <- which(x$a==1) )
[1] 1 7 8
>( row_0 <- which(x$a==0) )
[1] 2 3 4 5 6 9 10
>( index1 <- sample(row_1,2) )
[1] 8 7
>( index0 <- sample(row_0,2) )
[1] 3 9
#抽样
>( sub1 <- x[c(index1,index0),] )
a b
8 1 18
7 1 17
3 0 13
9 0 19
#剩余
>( sub2 <- x[-c(index1,index0),] )
a b
1 1 11
2 0 12
4 0 14
5 0 15
6 0 16
10 0 20
1、分析数据表：通过浏览“入库明细”表，我们可能看到入库明细表中，作为提取记录的条件零件号在A列。需要提取的记录，入库日期在H列、入库单号在O列、最后生产批号在L列、入库前库存数在Q列。为DC000496ZL的记录有5条（截图中的4条是指上面有4条）。
2、列出提取条件及项目：在sheet1中，将A列放置提取条件（即零件号）。在B、C、D、E列分别写上提取项目名称：入库日期、入库单号、最后生产批号、入库前库存数。
3、写公式：在最后入库日期项目下B2中输入公式：=MAX((入库明细!$A$2:$A$26=$A2)*(入库明细!$H$2:$H$26))，这是一个数组公式，请用三键确认（ctrl+shift+enter)。
搜索
免费自学excel教程全套
excel另一列数据提取
自动抓取数据excel表
表格技巧大全
excel100个常用技巧
新手怎么做财务报表
