r - 将加权随机变量分配给 R 数据框中的新列

Question

我有一个在 R 中看起来像这样的数据框:

df1

<表类=“s-表”> <标题> 日期 位置 日类型 <正文> 2022年9月1日 NT 周四 2022年9月2日 NT 周五 2022-9-3 美联社 周六 2022-9-4 美联社 太阳 2022-9-5 NT 周一

我想根据随机权重采样为上午类或下午类创建一个新列:

df2

<表类=“s-表”> <标题> 类次 重量 <正文> 早上 0.8 晚上 0.2

有办法做到这一点吗？

df1$shift <- sample(df2, prob = df$weight)

Answer 1

我们可能需要将size指定为“df1”的行数，并replace = TRUE

df1$shift <-  with(df2, sample(shift, prob = weight, 
    size = nrow(df1), replace = TRUE))