WOLFRAM

Wolfram Language & System Documentation Center

Make Horizontal Gauges

    
Wolfram Language code: g1 = MapThread[HorizontalGauge[RandomInteger[{1, 100}], {0, 100}, GaugeMarkers -> #, GaugeStyle -> ColorData[63, #2]]&, {Rest@Rest@ChartElementData["HorizontalGauge", "Markers"], Rest@Rest@Range[Length[ChartElementData["HorizontalGauge", "Markers"]]]}];
Wolfram Language code: g2 = MapThread[HorizontalGauge[RandomInteger[{1, 100}], {0, 100}, GaugeFrameSize -> .2, GaugeFrameElementFunction -> #, GaugeFrameStyle -> ColorData[92, "ColorList"][[#2]]]&, {Rest@ChartElementData["HorizontalGauge", "Frame"], Rest@Range@Length@ChartElementData["HorizontalGauge", "Frame"]}];
Wolfram Language code: Grid[Partition[Join[g1, g2], 3]]