随机抽样数据集以减少数据集中的值[关闭]

Question

我目前正在尝试根据给定的总和随机减少列中的值。 例如，如果主要数据是这样的；

ID 值

1 4
2 10
3 16

运行代码后Value的总和应该是10，这需要随机完成（每个成员的减少应该随机选择）

ID 值

1 1
2 8
3 1

尝试了几个命令和库，但无法管理它。还是个新手和 任何帮助将不胜感激！

谢谢

编辑：对不起，我不够清楚。我想为每个小于原始值的观察值分配一个新值（随机）。最后，新的价值总和将等于 10

Answer 1

使用样本数据

dd <- read.table(text="ID Value
1 4
2 10
3 16", header=TRUE)

还有dplyr + tidyr 库，你可以这样做

library(dplyr)
library(tidyr)

dd %>% 
  mutate(ID=factor(ID)) %>% 
  uncount(Value) %>%
  sample_n(10) %>% 
  count(ID, name = "Value", .drop=FALSE)

这里我们为每个Value 重复该行一次，然后我们随机抽取 10 行，然后将它们重新计数。我们将 ID 转换为一个因子，以确保保留 0 个观察值的 ID。