在数据框中随机行示例
我正在努力寻找合适的函数来返回指定数量的随机选取的行，而不是从R语言的数据框中进行replace？ 谁能帮我吗？
首先做一些数据：
> df = data.frame(matrix(rnorm(20), nrow=10)) > df X1 X2 1 0.7091409 -1.4061361 2 -1.1334614 -0.1973846 3 2.3343391 -0.4385071 4 -0.9040278 -0.6593677 5 0.4180331 -1.2592415 6 0.7572246 -0.5463655 7 -0.8996483 0.4231117 8 -1.0356774 -0.1640883 9 -0.3983045 0.7157506 10 -0.9060305 2.3234110 然后随机select一些行：
> df[sample(nrow(df), 3), ] X1 X2 9 -0.3983045 0.7157506 2 -1.1334614 -0.1973846 10 -0.9060305 2.3234110
John Colby给出的答案是正确的答案。 但是，如果你是一个dplyr用户也有答案sample_n ：
sample_n(df, 10)
从dataframe中随机采样10行。 它调用sample.int ，所以真正的解决方法是用较less的键入（并且由于dataframe是第一个参数，所以简化了在magrittr的上下文中的使用）。
写一个！ 包装JC的答案给了我：
randomRows = function(df,n){ return(df[sample(nrow(df),n),]) }
现在通过先检查是否n <= nrow（df）并停止一个错误来改善它。
data.table包提供函数DT[sample(.N, M)] ，从数据表DT抽样M个随机行。
library(data.table) set.seed(10) mtcars <- data.table(mtcars) mtcars[sample(.N, 6)] mpg cyl disp hp drat wt qsec vs am gear carb 1: 14.7 8 440.0 230 3.23 5.345 17.42 0 0 3 4 2: 19.2 6 167.6 123 3.92 3.440 18.30 1 0 4 4 3: 17.3 8 275.8 180 3.07 3.730 17.60 0 0 3 3 4: 21.5 4 120.1 97 3.70 2.465 20.01 1 0 3 1 5: 22.8 4 108.0 93 3.85 2.320 18.61 1 1 4 1 6: 15.5 8 318.0 150 2.76 3.520 16.87 0 0 3 2
编辑 ：这个答案现在已经过时，请参阅更新的版本 。
在我的R包中，我已经增强了sample ，使其现在的行为也像数据框一样：
library(devtools); install_github('kimisc', 'krlmlr') library(kimisc) example(sample.data.frame) smpl..> set.seed(42) smpl..> sample(data.frame(a=c(1,2,3), b=c(4,5,6), row.names=c('a', 'b', 'c')), 10, replace=TRUE) ab c 3 6 c.1 3 6 a 1 4 c.2 3 6 b 2 5 b.1 2 5 c.3 3 6 a.1 1 4 b.2 2 5 c.4 3 6
这是通过使用S3通用方法来提供必要的（无关紧要的）function来实现的。 对setMethod的调用修复了一切。 原来的实现仍然可以通过base::sample访问。
在我的R包里有一个函数sample.rows就是为了这个目的：
install.packages('kimisc') library(kimisc) example(sample.rows) smpl..> set.seed(42) smpl..> sample.rows(data.frame(a=c(1,2,3), b=c(4,5,6), row.names=c('a', 'b', 'c')), 10, replace=TRUE) ab c 3 6 c.1 3 6 a 1 4 c.2 3 6 b 2 5 b.1 2 5 c.3 3 6 a.1 1 4 b.2 2 5 c.4 3 6
根据Joris Meys对之前的回答的评论，通过将sample为通用的S3function来增强sample是一个糟糕的主意。
在R中从一个Tibbletypes中select一个随机样本：
library("tibble") a <- your_tibble[sample(1:nrow(your_tibble), 150),]
nrow需要一个tibble并返回行数。 传递给sample的第一个参数是从1到最后一个范围的范围。 传递给样本150的第二个参数是您想要的随机抽样数量。 方括号切片指定返回的索引的行。 variables“a”获取随机抽样的值。
