我有一个大的data.table(大约24000行和增长).我想根据几个标准对该数据表进行子集化,并从该子集(最终约为3000行)我想随机抽样4行.我不想创建一个名为3000左右的行data.table,计算其行数,然后根据行号进行采样.我怎么能在飞行中做到这一点?或者我应该通过创建表然后处理它,对其进行采样然后使用它rm()来摆脱它来吮吸它?
让我们模拟我的问题
require(data.table)
random.length <- sample(x = 15:30, size = 1)
data.table(city=sample(c("Cape Town", "New York", "Pittsburgh", "Tel Aviv", "Amsterdam"), size=random.length, replace = TRUE), score = sample(x=1:10, size = random.length, replace=TRUE))
Run Code Online (Sandbox Code Playgroud)
这会产生一个随机长度表,它模拟了这样一个事实,即根据我的标准并依赖于我的起始表,我不知道子集化表的长度是多少
现在,如果我只想要前三行我可以这样做
data.table(city=sample(c("Cape Town", "New York", "Pittsburgh", "Tel Aviv", "Amsterdam"), size=random.length, replace = TRUE), score = sample(x=1:10, size = random.length, replace=TRUE))[1:3]
Run Code Online (Sandbox Code Playgroud)
但是,让我们说我不想要前三行,而是一个随机的3行,然后我想做一些像这样的事情......
data.table(city=sample(c("Cape Town", "New York", "Pittsburgh", "Tel Aviv", "Amsterdam"), size=random.length, replace = TRUE), score = sample(x=1:10, size = random.length, replace=TRUE))[sample(x= 1:number of rows of that previous data.table,size …Run Code Online (Sandbox Code Playgroud)