Başka bir (data.frame ile) değerlerine dayanarak bir vektörü nasıl sıralarım?

Question

Bir "set true set" veri karesine sahibim, ‘order’ vektörlerindeki değerlerin sırasına göre sıralamak istiyorum.

true_set <- data.frame(dose1=c(rep(1,5),rep(2,5),rep(3,5)), dose2=c(rep(1:5,3)),toxicity=c(0.05,0.1,0.15,0.3,0.45,0.1,0.15,0.3,0.45,0.55,0.15,0.3,0.45,0.55,0.6),efficacy=c(0.2,0.3,0.4,0.5,0.6,0.4,0.5,0.6,0.7,0.8,0.5,0.6,0.7,0.8,0.9),d=c(1:15)) 

orders<-matrix(nrow=3,ncol=15) 
orders[1,]<-c(1,2,6,3,7,11,4,8,12,5,9,13,10,14,15) 
orders[2,]<-c(1,6,2,3,7,11,12,8,4,5,9,13,14,10,15) 
orders[3,]<-c(1,6,2,11,7,3,12,8,4,13,9,5,14,10,15) 

beklenen bir sonuç olacaktır:

ilk sipariş [1],:

dose1 dose2 toxicity efficacy d 
1  1  1  0.05  0.2 1 
2  1  2  0.10  0.3 2 
3  2  1  0.10  0.4 6 
4  1  3  0.15  0.4 3 
5  2  2  0.15  0.5 7 
6  3  1  0.15  0.5 11 
7  1  4  0.30  0.5 4 
8  2  3  0.30  0.6 8 
9  3  2  0.30  0.6 12 
10  1  5  0.45  0.6 5 
11  2  4  0.45  0.7 9 
12  3  3  0.45  0.7 13 
13  2  5  0.55  0.8 10 
14  3  4  0.55  0.8 14 
15  3  5  0.60  0.9 15 

ilk sipariş [2,]: yukarıdaki gibi

ilk sipariş [3], :

Answer 1

true_set <- data.frame(dose1=c(rep(1,5),rep(2,5),rep(3,5)),  dose2=c(rep(1:5,3)),toxicity=c(0.05,0.1,0.15,0.3,0.45,0.1,0.15,0.3,0.45,0.55,0.15,0.3,0.45,0.55,0.6),efficacy=c(0.2,0.3,0.4,0.5,0.6,0.4,0.5,0.6,0.7,0.8,0.5,0.6,0.7,0.8,0.9),d=c(1:15)) 

orders<-matrix(nrow=3,ncol=15) 
orders[1,]<-c(1,2,6,3,7,11,4,8,12,5,9,13,10,14,15) 
orders[2,]<-c(1,6,2,3,7,11,12,8,4,5,9,13,14,10,15) 
orders[3,]<-c(1,6,2,11,7,3,12,8,4,13,9,5,14,10,15) 

# Specify your order set in the row dimension 
First_order <- true_set[orders[1,],] 
Second_order <- true_Set[orders[2,],] 
Third_order <- true_Set[orders[3,],] 

# If you want to store all orders in a list, you can try the command below: 

First_orders <- list(First_Order=true_set[orders[1,],],Second_Order=true_set[orders[2,],],Third_Order=true_set[orders[3,],]) 
First_orders[1] # OR First_orders$First_Order 
First_orders[2] # OR First_orders$Second_Order 
First_orders[3] # OR First_orders$Third_Order 

# If you want to combine the orders column wise, try the command below: 

First_orders <- cbind(First_Order=true_set[orders[1,],],Second_Order=true_set[orders[2,],],Third_Order=true_set[orders[3,],]) 

# If you want to combine the orders row wise, try the command below: 

First_orders <- rbind(First_Order=true_set[orders[1,],],Second_Order=true_set[orders[2,],],Third_Order=true_set[orders[3,],])