我有一个数据帧,它在R中看起来像这样:

df1

date location daytype
2022-9-1 NT Thur
2022-9-2 NT Fri
2022-9-3 AP Sat
2022-9-4 AP Sun
2022-9-5 NT Mon

我想创建一个基于随机权重抽样的上午或下午轮班的新专栏:

df2

shift weight
Morning 0.8
Evening 0.2

有办法做到这一点吗?

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

推荐答案

我们可能需要指定size作为‘df1’和replace = TRUE的行数

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

R相关问答推荐

导入到固定列宽的R中时出现问题

如何创建构成多个独立列条目列表的收件箱框列?

检测(并替换)字符串中的数学符号

如何使用`ggplot2::geom_segment()`或`ggspatial::geom_spatial_segment()`来处理不在格林威治中心的sf对象?

从开始时间和结束时间导出时间

手动打印线型gplot

如何利用模型函数在格图中添加双曲/指数曲线

如何在Chart_Series()中更改轴值的 colored颜色 ?

如何调整曲线图中的y轴标签?

如何在所有绘图中保持条件值的 colored颜色 相同?

使用R中的正则表达式将一列分割为多列

R Read.table函数无法对制表符分隔的数据正常工作

将重复项转换为NA

如何在ggplot2中绘制具有特定 colored颜色 的连续色轮

当我添加美学时,geom_point未对齐

根据约束随机填充向量的元素

按组使用dummy r获取高于标准的行的平均值

以R表示的NaN值的IS.NA状态

如何在一种 colored颜色 中设置数值变量的 colored颜色 和高于阈值的 colored颜色 点?

如何使用ggsurvfit包更改风险表中的标签名称?