我有一个包含两列的数据框：
structure(list(lowage = c(45, 15, 9, 51, 22, 45, 4, 4, 9, 25),
highage = c(50, 21, 14, 60, 24, 50, 8, 8, 14, 30)), .Names = c("lowage",
"highage"), row.names = c(NA, 10L), class = "data.frame")
数据框如下所示：
lowage highage
1 45 50
2 15 21
3 9 14
4 51 60
5 22 24
6 45 50
7 4 8
8 4 8
9 9 14
10 25 30
我试图为两列之间的每一行获取一个随机数并将其保存为第三列。
我尝试了以下方法：
df$age <- sample(df$lowage:df$highage,1)
这给了我以下错误：
Error in `$<-.data.frame`(`*tmp*`, age, value = c(47L, 50L, 49L, 48L, :
replacement has 6 rows, data has 795
In addition: Warning messages:
1: In df$lowage:dfhighage :
numerical expression has 795 elements: only the first used
2: In dflowage:df$highage :
numerical expression has 795 elements: only the first used
我尝试使用 for 循环：
for (i in 1:length(df$lowage)) {
df$age[i] <- round(sample(df$lowage[i]:df$highage[i]),1)
}
虽然这会创建一个具有随机年龄值的列年龄，但它仍然给我以下警告：
Warning messages:
1: In df$age[i] <- round(sample(df$lowage[i]:df$highage[i]), ... :
number of items to replace is not a multiple of replacement length
尽管我可以看到 df 中每一行的值，但我不确定此警告是否对列有影响。
我们可以使用applywith MARGIN=1(row-wise) 并在两列之间生成一系列数字，然后使用 从中选择任意 1 个数字sample。
df$random_number <- apply(df, 1, function(x) sample(seq(x[1], x[2]), 1))
df
# lowage highage random_number
#1 45 50 47
#2 15 21 21
#3 9 14 9
#4 51 60 55
#5 22 24 23
#6 45 50 47
#7 4 8 7
#8 4 8 8
#9 9 14 14
#10 25 30 27
或类似的概念 mapply
df$random_number <- mapply(function(x, y) sample(seq(x, y), 1),
df$lowage, df$highage)
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句