请问有人知道为什么下面的脚本不保持“父亲”列的原始顺序吗?它重新排列了列,三重奏将不再匹配。数据测试有 3 列(孩子、父亲、母亲)。和之前的一篇帖子有关:用R中的另一个值代替每组的具体比例谢谢。
test$father <- unlist(
tapply(test$father,test$father,
function(x) {
x[1:floor(length(x)*0.25)] <- 0
x
}
)
)