It looks like you need to do this with an order coefficient before calling facet_wrap:
fac <- factor( fac, levels=as.character(c(1, 10, 2, 20, 3, 30, 4, 40) ) )
as/table facet_wrap TRUE, ( "1" ) ( "40" ) . :
pl + facet_wrap(~fac, ncol=2, nrow=4)
, . ( - , , , , , . ?) , " ", :
> ss <- 1:8; factor(ss, levels=ss[matrix(ss, ncol=2, byrow=TRUE)])
[1] 1 2 3 4 5 6 7 8
Levels: 1 3 5 7 2 4 6 8
, , :
> ss <- 1:8; factor(ss, levels=ss[matrix(ss, nrow=2, byrow=TRUE)])
[1] 1 2 3 4 5 6 7 8
Levels: 1 5 2 6 3 7 4 8