R语言for循环问题

2317

收藏 2017-09-16

请教各位，在一个数据库里抽样
sample1 <- sample(alldata$id, size=5, replace=FALSE)
sample_data1 <- alldata[sample1,]
现在要生成10个sample_data，即从sample_data1到sample_data10.
请问怎样用for语句生成？？十分感谢！！

扫码加我拉你入群

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

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

全部回复

iwasguru

2017-9-17 08:16:51

10个sample_data是否允许部分重叠？

扫码加我拉你入群

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

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

amrino

2017-9-17 13:26:52

复制代码

扫码加我拉你入群

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

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

liulubucm

2017-9-18 04:08:29

iwasguru 发表于 2017-9-17 08:16
10个sample_data是否允许部分重叠？

允许！

扫码加我拉你入群

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

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

liulubucm

2017-9-18 04:14:46

amrino 发表于 2017-9-17 13:26

谢谢！完美解决问题！

扫码加我拉你入群

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

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

liulubucm

2017-9-18 05:07:21

amrino 发表于 2017-9-17 13:26

顺便问一下，如果给每一个sample_data的class变量做一个table，如table(sample_data_1$class)。这个怎么写到循环里呢？

扫码加我拉你入群

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

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

点击查看更多内容…

amrino

2017-9-18 14:00:43

liulubucm 发表于 2017-9-18 05:07
顺便问一下，如果给每一个sample_data的class变量做一个table，如table(sample_data_1$class)。这个怎么写 ...

复制代码

for (i in 1:10){
  assign(paste0("sample_date", i), alldata[sample(nrow(alldata), 5, replace = F), ])
  temp <- eval(parse(text = paste0("sample_date", i, "$class")))
  print(table(temp))
}

扫码加我拉你入群

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

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

liulubucm

2017-9-18 22:39:09

amrino 发表于 2017-9-18 14:00

如果这样写的话，sample_data_i好像不能被识别。提示“object sample_data_i not found”

扫码加我拉你入群

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

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

amrino

2017-9-19 23:44:28

liulubucm 发表于 2017-9-18 22:39
如果这样写的话，sample_data_i好像不能被识别。提示“object sample_data_i not found”

抱歉，已经修改了

扫码加我拉你入群

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

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

liulubucm

2017-9-26 06:29:02

amrino 发表于 2017-9-19 23:44
抱歉，已经修改了

已经找到解决方法了，谢谢指点！

扫码加我拉你入群

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

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

amrino

2017-9-26 10:21:11

liulubucm 发表于 2017-9-26 06:29
已经找到解决方法了，谢谢指点！

抱歉，发现之前贴上来的代码不知道怎么没有保存上，还是重新给你直接贴一个吧，也许你已经找到了更好的方法，还是打算贴上来。
for (i in 1:10){
  assign(paste0("sample_date", i), alldata[sample(nrow(alldata), 5, replace = F), ])
  temp <- eval(parse(text = paste0("sample_date", i, "$class")))
  print(table(temp))
}

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群