小编use*_*569的帖子

我创建了一个数据框来说明我的问题.我对R比较新.

    #### permutation problem

a <- c("beagle", "beagle", "beagle", "basset", "basset")
b <- c(44, 33, 22, 34, 42)
c <- c(1:5)
d <- c(7:11)

dogframe <- data.frame(cbind(a,b,c,d))


output
> dogframe
       a  b c  d
1 beagle 44 1  7
2 beagle 33 2  8
3 beagle 22 3  9
4 basset 34 4 10
5 basset 42 5 11
> 

我想要做的是按照列a中的因素随机改组b列.所以44,33和22的值将被改组为"beagle",34和42将被洗牌以用于basset.我希望结果是一个类似于原始数据的数据帧,只有列b中的混洗值.

谢谢.

我很难搞清楚如何做到这一点.

我想通过一个列对数据进行排序,该列包含与列表中的因子相同的因子.重要的是,代码不会改变每个因素中行的顺序.

想法？

编辑:

salmon <- c("red", 3,7, 5)
bass <- c("red", 1,3,5)
shrimp <- c("blue", 1, 4, 2)
carp <- c("orange", 6, 6, 6)

dfex <- data.frame(salmon, bass, shrimp, carp)
dfex <- data.frame(t(dfex))

ordering <- c("blue", "orange", "red")

所以这里的想法是通过使用排序向量重新排序数据帧

我有此代码的一个版本，但它似乎过于复杂。这是我卡住的简化版本。在python3中。

list1 = [['a', 'b'], ['a', 'c'], ['a', 't'], ['x', 'f'], ['x', 'g'], ['d', 'z']]

z = len(list1)
for i in range(0, z):
    for j in range(i + 1, z):
        while list1[i][0] == list1[j][0]:
            list1[i] = list1[i] + [list1[j][-1]]
            if list1[j] in list1:
                list1.remove(list1[j])
                z = z - 1

我要输出。

[['a', 'b', 'c', 't'], ['x', 'f', 'g'], ['d', 'z']]