How to put single points inside the plot?

Question

I wrote this simple code for a basic plot (two lines):

Plot[{4, 0}, {x, -2, 2},   
 PlotStyle -> {{Red, Dashed, Thickness[0.004]}, {Red, Dashed, 
    Thickness[0.004]}}, PlotRange -> {-1, 6}]

Whose output is simply

I would like to insert a single point (and moreover, I would like that that point were clearly visible, quite marked) for example the point $P = (1, 4)$ on the red higher line.

How can I do that?

http://mathematica.stackexchange.com/q/1675/5478 – Kuba Dec 09 '15 at 21:18 — Kuba, Dec 09 '15 at 21:18

eldo · Accepted Answer · 2015-12-09T20:58:43.847

12

Plot[{4, 0}, {x, -2, 2},
 Epilog -> {Blue, PointSize@Large, Point[{1, 4}]},
 PlotStyle -> {{Red, Dashed, Thickness[0.004]}, {Red, Dashed, Thickness[0.004]}},
 PlotRange -> {-1, 6}]

edited Dec 09 '15 at 20:58

answered Dec 09 '15 at 20:56

eldo

67,911
5
60
168

Awesome again! Easy and fast, thank you so much! – Enrico M. Dec 09 '15 at 20:58

score 12 · Answer 2 · answered Dec 09 '15 at 21:08

Another option is to use Show and Graphics, as in

p = Plot[{4, 0}, {x, -2, 2},PlotStyle -> {{Red, Dashed, Thickness[0.004]}, {Red, Dashed, 
      Thickness[0.004]}}, PlotRange -> {-1, 6}];
g = Graphics[{PointSize[Large], Blue, Point[{1, 4}]}];
Show[p, g]

Mathematica graphics

How to put single points inside the plot?

2 Answers2

Linked