我有以下类型的数据框
A B C D
1 0 1 10
0 2 1 15
1 1 0 11
我想要以下输出
A B C D
1 0 1 10
1 1 0 11
0 2 1 15
我试过这段代码
require(permute)
z <- apply(permute::allPerms(1:nrow(DF)), 1, function(x){
mat <- as.matrix(DF,2:ncol(DF)])
if(all(diag(mat[x,]) == rep(1,nrow(DF)))){
return(df[x,])} })
我无法获得所需的输出。
(上述代码的链接-以特定方式排列数据框)
我请求有人指导我。数据框是一个小样本,但我有一个结构相似的大样本。