My target is make a dashboard with VERTICAL bullet gauges (that is not available in Mathematica, only the horizontals), a previous Q & A helped me to obtain vertical gauges (that its good but I would prefer Mathematica had the vertical option for customize easily.)
THE QUESTION is:
How to put The title/Label in each bullet gauge in the up/down position but CENTERED, as you can see in
What I got is similar but not centered:
I would like to add a second line text in the Table, for example "MAN" and under this word "First",..... (similar to the first graph.)
So, 1.- How to center the TITLE/LABELS in each bullet graph 2.- How to add a second line in the TITLE/LABEL in each bullet graph
DataFile = {{"Man", "First", 215, 230, 120, 80, 65}, {"Man", "Second",
240, 450, 180, 150, 114}, {"Woman", "First", 275, 450, 210, 190,
43}, {"Woman", "Second", 275, 275, 145, 134, 96}, {"Woman",
"Third", 200, 240, 20, 18, 12}}
NumeroPropiedades = Length[DataFile];
lonxitude =
Table[StringLength[DataFile[[i, 1]]], {i, 1, NumeroPropiedades}];
Max[lonxitude];
MaximoEscala = Max[Table[DataFile[[i, 4]], {i, 1, NumeroPropiedades}]];
rotate[gauge_] :=
Rotate[gauge /. Text[l_, r__] :> Text[Rotate[l, 270 Degree], r],
90 Degree]
(* copied from http://ow.ly/zdSc302jZEm *)
BulletTOTAL =
Table[BulletGauge[{DataFile[[i, 5]],
DataFile[[i, 4]]*0.75}, {DataFile[[i, 3]]}, {0, DataFile[[i, 4]],
DataFile[[i, 6]], DataFile[[i, 7]], MaximoEscala},
ImageSize -> Large,
GaugeLabels ->
Placed[Style[Rotate[DataFile[[i, 1]], 3 Pi/2], "Subsection",
Black], Right]], {i, 1, NumeroPropiedades}];
Labeled[Row[rotate /@
BulletTOTAL
, Spacer[20]],
Row[{Style["Monthly", 39, "Subtitle", Darker[Red]]}, Spacer[30]], Top]