col_facet: issue with wrap

[MatthieuStigler]

problem is wrap will show 4 facets, even if only three used! Needs to:

• sort the used ones
• remove unused:

if(wrap) { strips <- strips[order(g$layout$name[strips])][seq_len(length(pal))] }