I have two lists $R$ and $B$ of numbers written in red and blue. I would like to join those two lists and reorder them in increasing order to get a visual feeling of how both sequences are distributed. The problem is that when I try to use the Sort function it orders separately the red and the blue parts of the joined list. Is there a way to make Mathematica ignore the coloring?
R = Flatten[Table[Style[4 Pi^2 (k1^2 + k2^2), FontColor -> Red], {k1, -5,
5}, {k2, -5, 5}]];
B = Flatten[Table[Table[Style[4 Pi (2 m + 1) Abs[k3], FontColor -> Blue],
Abs[k3]], {m, 1, 5}, {k3, -5, 5}]];
Sort[Join[R, B]]