以下のスクリプトが「父」列の元の順序を維持しない理由を誰か知っていますか? 列を再配置すると、トリオは一致しなくなります。データ テストには 3 つの列 (子、父、母) があります。これは以前の投稿に関連しています:各グループの特定の比率を R の別の値に置き換えてください。ありがとうございます。
test$father <- unlist(
tapply(test$father,test$father,
function(x) {
x[1:floor(length(x)*0.25)] <- 0
x
}
)
)