R语言 随机抽样 数据提取

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

已知的数据为30组1-360之间各个方向的值（30*360），现在要从1到360之间随机抽取10个数，以这10个数为起始点，分别取步长为180（30*2）、120（30*3）、90（30*4）、60（30*6）、45（30*8）、22.5（30*16），也就是说根据随机抽样的数，按照不同步长，选择对应列的数据，请问应该如何编程？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：随机抽样 数据提取 R语言

1. fun_sim = function(dt, start_id, steps){
   
2.   
   
3.   n = length(steps)
   
4.   
   
5.   res = vector('list', n)
   
6.   
   
7.   for (i in 1:n) {
   
8.     col_id = lapply(start_id, function(x) seq(x, 360, steps[i]))
   
9.     result = dt[,unlist(col_id)]
   
10.     #如果想去掉重复id，用下面命令
    
11.     #result = dt[,unique(unlist(col_id))]
    
12.     res[[i]] = list(col_id, result)
    
13.   }
    
14.   names(res) = paste('start_id',start_id)
    
15.   return(res)
    
16. }
    
17. 
    
18. dt = matrix(replicate(30,rnorm(360)),ncol = 360,byrow = T)
    
19. 
    
20. start_id = sample(360,2)
    
21. 
    
22. steps = c(20, 100)
    
23. 
    
24. 
    
25. res = fun_sim(dt, start_id, steps)
    
26. 
    
27. str(res)

复制代码

非常感谢

zhou1_20 发表于 2019-11-5 09:18

非常感谢