我有一个R为100点的tibble,如下所示:

preds <- tibble(x=1:100, y=seq(from=0.01,to=1,by=0.01))

我想随机抽取20个观察值小于0.5的样本.目前,我可以通过以下方式 Select 前20个观察结果:

number_of_likely_negatives<-20

likely_negatives <- preds %>% 
    arrange(y) %>% 
    slice(1:number_of_likely_negatives)

但是,如何随机 Select y值低于0.5的20个观测值?

推荐答案

我们可以在sliceing之前将"y"值设为filter

likely_negatives <- preds %>% 
    arrange(y) %>% 
    filter(y < 0.5) %>%
    slice(sample(seq(number_of_likely_negatives), 20, replace = FALSE))

我们也可以使用slice_sample

preds %>% 
   arrange(y) %>%
   filter(y < 0.5) %>% 
   slice_sample(n = number_of_likely_negatives)

R相关问答推荐

如何对2个列表元素的所有组合进行操作?

仅 Select 超过9行的CSV文件

R+reprex:在呈现R标记文件时创建可重现的示例

将列表中的字符串粘贴到R中for循环内的dplyr筛选器中

使用列中的值来调用函数调用中应使用的其他列

如何在GALT包的函数&geom_x样条线中调整线宽

R:如何在数据集中使用Apply

在GT()中的列之间添加空格

基于R中的引用将向量值替换为数据框列的值

根据排名的顶点属性调整曲线图布局(&Q)

R/shiny APP:如何充分利用窗口?

对一个数据帧中另一个数据帧中的值进行计数

如何计算多个变量的百分比与总和的百分比?

使用卡环从R中的列中删除单位(&C)

我应该如何解决Raster程序包中未对齐的色条记号?

Echarts4rBox函数似乎无法识别变量

删除除第一列外所有单元格均为空的行

如果可能的话,寻找一种更有效的方式来实现这个R代码

如何使图例(Gggraph)中的点和线具有不同的 colored颜色

用R实现抽象语法树的转换