将 sample_n output 从 tibble 转换为变量

Question

我正在尝试创建一个随机集，我需要的变量之一是随机选择的日期。 我遇到的问题是 sample_n 的 output 本身就是一个小标题。 当我尝试按行绑定多个集合时，这会成为问题。

请看下面的例子。

library(tidyverse)
dts <- 
  tibble(date=seq(as.Date("2020-07-01"),as.Date("2020-07-31"),by="1 days")) %>% 
  mutate(wday=weekdays(date)) %>% 
  filter(wday!="Saturday" & wday!="Sunday")

dt1 <- tibble(
  date=sample_n(dts[1], 5),
  x=runif(5, 10, 20)) 
glimpse(dt1)

dt2 <- tibble(
  date=sample_n(dts[1], 4),
  x=runif(4, 10, 20)) 
glimpse(dt2)

从中可以看出 dt1 和 dt2 中的变量 date 是一个 tibble。 我期待这只是一个日期变量。

当我尝试将这两组结合起来时，这会成为问题。

dt <- dt1 %>% bind_rows(dt2)

当我运行最后一行时，我收到以下错误消息：

错误：参数 1 不能是包含数据框的列表

谢谢

Answer 1

您可以只pull结果以将其转换为向量：

dts %>% sample_n(5) %>% pull(date)
[1] "2020-07-22" "2020-07-08" "2020-07-03" "2020-07-15" "2020-07-17"

Answer 2

为什么不在base中使用sample() ？ dplyr::sample_n()用于对数据集的行进行采样。 在您的情况下，您只需要对向量进行采样，即dts$date ，因此dplyr::sample_n()是绕道而行。

dt1 <- tibble(
  date = sample(dts$date, 5),
  x = runif(5, 10, 20)
)

dt1

# # A tibble: 5 x 2
#   date           x
#   <date>     <dbl>
# 1 2020-07-09  13.0
# 2 2020-07-17  18.0
# 3 2020-07-13  16.7
# 4 2020-07-28  16.5
# 5 2020-07-03  14.6