R 随机取样 ， 随机取文件的行

> sample(c(1:10),8) # 对向量取样，默认是不放回抽样，replace=FALSE

> sample(c(1:10),8,replace=TRUE) # 放回抽样

 

对数据框不放回抽行

dataframe[sample(nrow(dataframe), 10), ]  #dataframe是数据框，10是行数。

　　 如yuangong_male_600<-yuangong_male[sample(nrow(yuangong_male),600),] # 取600行