Group Abstract Group Abstract

Message Boards Message Boards

0
|
12.9K Views
|
5 Replies
|
1 Total Like
View groups...
Share
Share this post:

Add a fill or background between gridlines in a plot?

Gregory Lypny
Posted 9 years ago
Attachments:
POSTED BY: Gregory Lypny
5 Replies
Sort By:
Gregory Lypny
Gregory Lypny
Posted 9 years ago

Hi Henrik,

Thanks for the tip and sorry for being so long to reply. I just took another look at the problem and came up with the same solution, that is, to plot horizontal lines and fill between them rather than to include gridlines. My attached code is similar to yours. Setting PlotRangePadding to None forces the fill to touch the left and right borders of the frame.

Greg

Attachments:
POSTED BY: Gregory Lypny

Hi, here comes a somewhat 'quick and dirty' way:

thePlot = 
  DateListPlot[data, Joined -> True, PlotRange -> {Automatic, {80, 180}}, 
   GridLines -> {None, {60, 85, 100, 140}}, GridLinesStyle -> Directive[Gray, Thin], ImageSize -> 540];
gr = Graphics[{Opacity[.1], Blue, Rectangle @@ 
     Transpose[{First[PlotRange /. AbsoluteOptions[thePlot, PlotRange]], {100, 140}}]}];

Show[thePlot, gr]

giving:

enter image description here

Regards -- Henrik

EDIT:

... well, the above is probably too quick and too dirty! Here a hopefully cleaner solution (which gives the same):

dateMinMax = {"Mon 23 Jan 2017 12:41 PM", "Wed 1 Feb 2017 12:28 PM"};
dl1 = {#, 100} & /@ dateMinMax;
dl2 = {#, 140} & /@ dateMinMax;

thePlot = 
 DateListPlot[{data, dl1, dl2}, Joined -> True, 
  PlotRange -> {Automatic, {80, 180}}, GridLines -> None, 
  PlotStyle -> {Blue, Black, Black}, Filling -> {2 -> {3}}, 
  FillingStyle -> Directive[Opacity[0.1], Blue], ImageSize -> 540]
POSTED BY: Henrik Schachner
Gregory Lypny
Gregory Lypny
Posted 9 years ago

Hi S M,

Thanks for replying. That doesn't work because it fills between the plot (the 1 in your reference) to 140 on the y axis. I think the only way is to plot horizontal lines over the range of dates and then refer to them with the fill.

Greg
POSTED BY: Gregory Lypny

Dear S M Blinder,

Thanks, I am working on a similar code, but can I add also a Manipulator to start filling from the lowest peak up to the highest peak?

Your support will be highly appreciated !

Regards,....Jos

POSTED BY: Jos Klaps

Try this:

thePlot = 
 DateListPlot[data, PlotRange -> {Automatic, {80, 180}}, 
  GridLines -> {None, {60, 85, 100, 140}}, 
  GridLinesStyle -> Directive[Gray, Thin], Filling -> {1 -> 140}, 
  FillingStyle -> Gray, ImageSize -> 540]
POSTED BY: S M Blinder
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard