How can I swap two colors in a bullet gauge?

Question

I want to swap two colors in a bullet gauge.

Is this possible to do this without using something similar to

BulletGauge[{1, 1.8, 3, 3.4, 4, 5}, {2.4, 2.9}, {0, 3.5, 4.8}, 
  ImageSize -> Large, 
  GaugeStyle -> {Red, Blue, Green, Purple, Orange, LightBlue}]

What is undesirable about the solution you yourself suggested? — Quantum_Oli, Aug 16 '16 at 08:34
@Quantum_Oli I think that is smarter use the a swaping of the 5th color with the 6th color, using the numser 5 and 6 of a list, and not defining a color with RGB, which is longer. — Mika Ike, Aug 16 '16 at 08:36

e.doroskevic · Answer 1 · 2016-08-16T08:47:18.897

5

Description

Simply change the order of colors in GaugeStyle

Example

BulletGauge[{1, 1.8, 3, 3.4, 4, 5}, {2.4, 2.9}, {0, 3.5, 4.8}, 
 ImageSize -> Large, 
 GaugeStyle -> {Red, Blue, Green, Purple, Orange, LightBlue}]

BulletGauge[{1, 1.8, 3, 3.4, 4, 5}, {2.4, 2.9}, {0, 3.5, 4.8}, 
 ImageSize -> Large, 
 GaugeStyle -> {Red, Blue, Green, Purple, LightBlue, Orange}]

Output

edited Aug 16 '16 at 08:47

answered Aug 16 '16 at 08:36

e.doroskevic

5,959
1
13
32

1

Can I ask why your rolled back my edit when it provided a fuller answer? – Feyre Aug 16 '16 at 08:50
@Feyre the edit you've made did indeed provide a solution. Therefore I thought it would be best if you'd add it as such which would grant you extra reputation points as oppose of me taking credit for your solution :) – e.doroskevic Aug 16 '16 at 09:09

score 2 · Accepted Answer · edited Apr 13 '17 at 12:55

2

If we somehow know in advance the colors that are being used a post-processing replacement is possible.

swapIndexed[i_, c1_, c2_] := {# -> #2, #2 -> #} & @@ (ColorData[i] /@ {c1, c2})

BulletGauge[
  {1, 1.8, 3, 3.4, 4, 5}, {2.4, 2.9}, {0, 3.5, 4.8}
  , ImageSize -> Large
] /. swapIndexed[63, 5, 6]

edited Apr 13 '17 at 12:55

Community

1

answered Aug 16 '16 at 09:10

Mr.Wizard

271,378
34
587
1,371

score 1 · Answer 3 · answered Aug 16 '16 at 09:16

without using a swaping function.... (I don´t remeber/know native swaping function).....

gs = Table[ColorData[63, i], {i, 1, Length [ColorData[63, "ColorList"]]}]

BulletGauge[{1, 1.8, 3, 3.4, 4, 5}, {2.4, 2.9}, {0, 3.5, 4.8},  ImageSize-> Large, GaugeStyle -> gs]
temp = gs[[5]];
gs[[5]] = gs[[6]];
gs[[6]] = temp;
gs

BulletGauge[{1, 1.8, 3, 3.4, 4, 5}, {2.4, 2.9}, {0, 3.5, 4.8}, ImageSize -> Large, GaugeStyle -> gs]

How can I swap two colors in a bullet gauge?

3 Answers3

Description

Example

Output