相关疑难解决方法(0)

我想按多列对data.frame进行排序.例如,对于下面的data.frame,我想按列z(降序)然后按列b(升序)排序:

dd <- data.frame(b = factor(c("Hi", "Med", "Hi", "Low"), 
      levels = c("Low", "Med", "Hi"), ordered = TRUE),
      x = c("A", "D", "A", "C"), y = c(8, 3, 9, 9),
      z = c(1, 1, 1, 2))
dd
    b x y z
1  Hi A 8 1
2 Med D 3 1
3  Hi A 9 1
4 Low C 9 2

我试图通过两个因素对数据帧的行重新排序.对于第一个因素,我对默认排序感到满意.对于第二个因素,我想将自己的自定义订单强加给行.这是一些虚拟数据:

dat <- data.frame(apple=rep(LETTERS[1:10], 3), 
                  orange=c(rep("agg", 10), rep("org", 10), rep("fut", 10)),
                  pear=rnorm(30, 10), 
                  grape=rnorm(30, 10))

我想以特定的方式订购"苹果":

appleOrdered <- c("E", "D", "J", "A", "F", "G", "I", "B", "H", "C")

我试过这个:

dat <- dat[with(dat, order(orange, rep(appleOrdered, 3))), ]

但它似乎把"苹果"变成了随机顺序.有什么建议？谢谢.