在R中维护原始订单

Question

请问有谁知道为什么下面的脚本不能维护'父亲'专栏的原始顺序？它重新排列了列，三重奏不再匹配。数据测试有3列（儿童，父亲，母亲）。它与之前的帖子有关：Substitute the specific proportions of each group with another value in R谢谢。

test$father <- unlist(
tapply(test$father,test$father,
    function(x) {
            x[1:floor(length(x)*0.25)] <- 0
            x
            }
    )
)

Answer 1

当链接问题中的测试数据为时，您的实际输入数据可能未按father排序。

您会发现新的test$father基于排序列表。