基于R中随机生成数集的子集列

例如,要随机选择1到20000之间的1000行(替换):

df[sample(1:20000, 1000, replace=T),]

可以使用clipr将向量写入剪贴板。

library(dplyr)
s <- sample.int(20000, 2000, replace = TRUE)
vectorToCopy <- s %>%
  stringr::str_c(",", collapse=" ") %>% # sep each element by comma
  stringr::str_sub(., 1, nchar(.)-1) %>% # remove last comma
  str_c("c(", ., ")") # add parentheses
clipr::write_clip(vectorToCopy) # write to clipboard