在 R 中按两列对数据帧进行排序

问：

我正在尝试按两个因素对数据框的行进行重新排序。对于第一个因素，我对默认排序感到满意。对于第二个因素，我想将我自己的自定义顺序强加给行。以下是一些虚拟数据：

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))), ]

但它似乎将“苹果”放在一个随机的顺序中。有什么建议吗？谢谢。