Edit plot after creation

Question

I try to find a way to manipulate a plot I created before.

(for full code take the fuction

x[t_]:=Sin[2t]

)

Let's say I have a plot:

plot1 = Plot[x[t], {t, 0, 10},
   PlotStyle -> Purple,
   ImagePadding -> 55,
   Frame -> {True, True, True, False},
   FrameStyle -> {Automatic, Purple, Automatic, Automatic},
   FrameLabel -> {None, "Signal", None, None},
   LabelStyle -> {16},
   ImageSize -> 600
   ];

And later I want to use the same plot with a point on the line. The complete code would be:

plot1 = Plot[x[t], {t, 0, 10},
   PlotStyle -> Purple,
   ImagePadding -> 55,
   Frame -> {True, True, True, False},
   FrameStyle -> {Automatic, Purple, Automatic, Automatic},
   FrameLabel -> {None, "Signal", None, None},
   LabelStyle -> {16},
   ImageSize -> 600,
   Epilog -> {Directive[{Purple}],PointSize -> Large,Point[{2,
   x[2]}]}
   ];

But is there another way? Something like

SetOptions[plot1,Epilog -> {Directive[{Purple}], PointSize -> Large, 
  Point[{2, x[2]}]}]

And what if I want to use this plot the second time in a Manipulate[] environment?

Manipulate[plot1,{dt,0,10}]

Till now I couldn't find a way to do this.

@Kuba What if I want to change the PlotStyle? Let's say from Purple to Red? — Phab, Jun 24 '14 at 14:57
I think the original question is arguably "easily found in the documentation" and the extended question is addressed in Is it possible to change the color of plot in Show? (as Kuba already linked). Either way I favor closing this question. — Mr.Wizard, Jun 24 '14 at 18:44
@Mr.Wizard My question was not realy about the specific changes made in the linked topics. More like "is there a way to change/add plot options afterwards". But with all these answers here I got an idea of how to handle my problems. So of course it would be ok to close this question. — Phab, Jun 25 '14 at 06:37
The question has already been closed by the vote of other community members. Here are more related questions for you to examine: (6121), (11261), (38971). Also perhaps of interest: (3247), (22697), (38827) — Mr.Wizard, Jun 25 '14 at 07:02

Basheer Algohi · Answer 1 · 2014-06-24T14:59:21.750

1

Try this:

Manipulate[
 Show[plot1, 
  Graphics[{PointSize[0.02], Purple, Point[{a, Sin[2 a]}]}]], {a, 0, 
  10}]

some thing else may be helpful.

LocatorPane[Dynamic[pt], 
 Show[plot1, 
  Graphics[{PointSize[Large], 
    Point[Dynamic[{First[pt], Sin[2 First[pt]]}]]}]], 
 Appearance -> None]

edited Jun 24 '14 at 14:59

answered Jun 24 '14 at 14:47

Basheer Algohi

19,917
1
31
78

same answer as Kuba, but it's not only about the Point[], it's about PlotOptions in general. – Phab Jun 24 '14 at 14:55
1

I don't think there is option in Plot in which you edit an existing plot or picture. the only option is to treat the created plot as image and use other functions that work with images. – Basheer Algohi Jun 24 '14 at 15:00

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

plot1 = Plot[Sin[t], {t, 0, 10}, PlotStyle -> Purple, 
   ImagePadding -> 55, Frame -> {True, True, True, False}, 
   FrameStyle -> {Automatic, Purple, Automatic, Automatic}, 
   FrameLabel -> {None, "Signal", None, None}, LabelStyle -> {16}, 
   ImageSize -> 600];

Manipulate[Graphics[{
                    plot1[[1]] /. Purple -> Directive[{Thick, Red}], 
                    PointSize -> Large, Point[{a, Sin[a]}]
                    }, 
       Frame -> {{True, True}, {True, False}}, 
       LabelStyle -> Directive[Italic, Large], AspectRatio -> 1/3, 
       plot1[[2]]], {a, 0, 10}]

enter image description here

There is also Experimental`Explore[] (see this answer by rm-rf) if you have Version 8 (but it does not work with Version 9.0.1.0, Windows 8)

Edit plot after creation

2 Answers2

Linked