订购频率表

Question

这是我的两个矩阵，第一个是颜色的名称和他的反应时间，第二个是颜色的名称，组成和实验的次数。

DF1 <- read.table(text = " color  time  
           A  14   
           B  5   
           C  15   ", header = TRUE) 




DF2 <- read.table(text = " color  comp  exp 
           A  c0  12 
           B  c3  12 
           C  c4  1 
           A  c7  13", header = TRUE) 


datas <- merge(x=DF1, y=DF2, by.x='color', by.y='color') 
     datas <- datas [order(datas$time),] 


table(datas$comp,datas$color) 

我想有颜色的频率的表，但通过他们各自的反应时间（上升的）排序，我得到是

 A B C 
    c0 1 0 0 
    c3 0 1 0 
    c4 0 0 1 
    c7 1 0 0 

，我在寻找：

 B A C 
    c0 0 1 0 
    c3 1 0 0 
    c4 0 0 1 
    c7 0 1 0 

该怎么办？

非常感谢！

Answer 1

table(datas$comp,datas$color)[, DF1$color[order(DF1$time)]] 
#  B A C 
# c0 0 1 0 
# c3 1 0 0 
# c4 0 0 1 
# c7 0 1 0