title: FillingStyle colour scheme mathematica ListPlot
body: <p>I'm trying to create an interactive plot of xray energies of specific elements.</p>
  
  <p>To do this I have created a bunch of x,y points(representing xray energies for each element and an arbitrary y-value). I have then used ListPlot with Filling ->Axis to create visible lines. All good except that "Filling" uses the default beige colour scheme to label each element. This is very hard to read/compare. When I try to use "FillingStyle -> blah" to change the colour scheme, thickness, opacity etc. the plot crashes or defaults to black for all elements. </p>
  
  <p>The only options that work are to change all the fills to "Blue" for example (doesn't really help me compare and contrast elements). I've also tried modifying PlotStyle but it seems to have no effect in the filling (not surprised - but it would have been nice).</p>
  
  <pre><code> Manipulate[
   Grid[{
     {(*grid group 1*)
      Show[
       {
        ListPlot[
         {mNe ne, mNa na, mMg mg, mAm am},
         Filling -&gt; Axis, FillingStyle -&gt; Blue, PlotMarkers -&gt; {""}, 
         AspectRatio -&gt; .25, ImageSize -&gt; 500, AxesLabel -&gt; {"eV", ""}, 
         PlotRange -&gt; {{0, 20000}, {0, 1}}
         ]
        }
       ], "Full View"}}
    ],
   {{mNe, 1, "Ne"}, {0, 1}, Checkbox},
   {{mNa, 0, "Na"}, {0, 1}, Checkbox},
   {{mMg, 0, "Mg"}, {0, 1}, Checkbox},
   {{mAm, 1, "Am"}, {0, 1}, Checkbox}]
  </code></pre>
  
  <p>Obviously this code won't compile because I Havent provided you with the original data. I'm new to this forum so I can't yet post a screen grab. sorry.</p>
  
  <p>So the end goal is to have each element displayed with a unique (high contrast colour). I don't wan't to have to specify a colour for each element (93 to plot!).</p>
  
  <p>Any help would be greatly appreciated!</p>