使用基本样本生成随机数时排除 0

Question

我有一个如下所示的数据框

  id    shift_back shift_forward
  <chr>      <dbl>         <dbl>
1 11          -140             0
2 12           -63           149
3 13           -37           327
4 14             0           193
5 16           -30            30
6 17           -30            30
7 18           -30            30
8 19           -30            30

我想以shift_back 和shift_forward 这些列作为范围间隔生成一个随机数。

但是，我不希望随机数是 0。

以下代码可以正常工作，但也包含 0

mutate(shift = base::sample(seq(shift_back, shift_forward, by = 1), 1))

但是，这会产生如下所示的输出，其中0 也可以作为移位值

如何生成范围内但不包括 0（从区间）的随机数。基本上我不希望移位值为 0（零）。

Answer 1

您可以在采样前排除零。

library(dplyr)

df %>%
  rowwise() %>% 
  mutate(shift = seq(shift_back, shift_forward) %>% .[. != 0] %>% sample(1))

Answer 2

library(tidyverse)

df <- tibble(
  id = 11:14,
  shift_back = c(-140, -63, -37, 0),
  shift_forward = c(0,149, 327, 193)
)

df %>%
  rowwise() %>%
  mutate(shift = list(seq(shift_back, shift_forward, by = 1)),
         shift = list(shift[shift != 0]),
         shift = sample(shift, 1))