# Labeling distinct objects produced by Show[RegionPlot3D's]

I have these commands

j0=Q1>0&&Q2>0&&Q3>0&&Q1+3 Q2+2 Q3<1;j1=j0&&Q1^2+3 Q2 Q1+(3 Q2+Q3)^2<3 Q2+2 Q1 Q3;Choi=2 Q3+1<2 Q1+3 Q2;MUB=Q1>3 Q2+4 Q3;Show[RegionPlot3D[j1,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","Subscript[Q, 2]","Subscript[Q, 3]"}],RegionPlot3D[j0&&MUB,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","Subscript[Q, 2]","Subscript[Q, 3]"}],RegionPlot3D[j0&&Choi,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","Subscript[Q, 2]","Subscript[Q, 3]"}],RegionPlot3D[j1&&MUB,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","Subscript[Q, 2]","Subscript[Q, 3]"}]]


which produces a three-dimensional plot

I want to label the first (largest) object produced "PPT", the second object, "MUB", and the third object, "Choi". How might I proceed to do so?

Also, I'd appreciate any general recommendations on enhancement/presentation of the plot (coloring,...)

plots = RegionPlot3D[#, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}] & /@
{j1, j0 && MUB, j0 && Choi};

coords = Cases[#, GraphicsComplex[x_,__] :> Median/@Transpose[x], All][]& /@ plots;
labels = {"PPT", "MUB", "CHOI"};
texts3d = Graphics3D[MapThread[Text, {labels, coords}], Axes -> True];

Show[plots, texts3d, AxesLabel -> (Subscript[Q, #] & /@ {1, 2, 3})] • Good, and thanks, but I don't perceive the "MUB" label. Jul 15, 2019 at 21:22
• @Paul, changed the text coordinates for better placement of labels.
– kglr
Jul 15, 2019 at 21:30
• Good. I'll give a check to the answer. Any point/value in the use of different colors,...? (I'm not very knowledgeable in the graphics options,...) Could the labels be made to stand out more prominently? Just wondering about these things--thanks very much in any case. Jul 15, 2019 at 21:43
• @Paul, you can use something like texts3d = Graphics3D[MapThread[Text[Style[#, Red, Bold, FontSize -> 16], #2]&, {labels, coords}], Axes -> True] to make the labels stand out.
– kglr
Jul 15, 2019 at 21:53
• Wow, they really stand out with that last suggestion! Jul 15, 2019 at 22:15