Click on a curve to start Manipulating another function

Question

I'm able to plot two lists with a tooltip on the curves to display the name of the curve:

list1 = {{{0, 1}, {1, 2}, {2, 4}}, {{0, 3}, {1, 1}, {2, 5}}};
names = {"curve1", "curve2"};
ListLinePlot[Table[Tooltip[list1[[i]], names[[i]]], {i, Length[list1]}]]

Now I would like to evaluate this action when I click on a curve:

Manipulate[dummyFunction[nameOfTheCurve, variable], {variable , {0, 1}}]

with dummyFunction being

dummyFunction[t_, u_] := If[u == 1,
  Graphics[{Green, Disk[], Black, Text[t]}],
  Graphics[{Red, Disk[], Black, Text[t]}]
]

and nameOfTheCurve being the name of the clicked curve.

I've tried

ListLinePlot[Table[Button[list1[[i]], Manipulate[dummyFunction[names[[i]], variable], {variable , {0, 1}}]], {i,Length[list1]}]]

but this doesn't work (I can't click on the curve). What's the correct syntax? And more precisely, I would like to plot the output of dummyFunction (the Disk) under the first graph, not replacing it.

Answer 1

This is the simplest version of what you want. The Manipulate objects are printed right under the plot.

list1 = {{{0, 1}, {1, 2}, {2, 4}}, {{0, 3}, {1, 1}, {2, 5}}};
names = {"curve1", "curve2"};
dummyFunction[t_, u_] := Graphics[{If[u == 1, Green, Red], Disk[], Black, Text[t]}];

ListLinePlot[MapThread[
  Tooltip[EventHandler[#, {"MouseClicked" :> 
       CellPrint[Manipulate[dummyFunction[#2, 
          variable], {variable, {0, 1}}]]}], #2] &, {list1, names}]]

It has the issue that every time a curve is clicked, a new Manipulate is printed. To overcome this problem and only show one of the Manipulates at a time, introduce an extra switch (show) that records whichever curve was clicked, and a variable that stores the actual Manipulate (menu).

list1 = {{{0, 1}, {1, 2}, {2, 4}}, {{0, 3}, {1, 1}, {2, 5}}};
names = {"curve1", "curve2"};
show = 0;
menu = Spacer@0;
dummyFunction[t_, u_] := Graphics[{If[u == 1, Green, Red], Disk[], Black, Text[t]}];

Column@{
  ListLinePlot[
   MapThread[
    Tooltip[EventHandler[#1, {"MouseClicked" :> 
         If[show =!= #3, show = #3; 
          menu = Manipulate[dummyFunction[#2, variable], {variable, {0, 1}}], 
          show = 0; menu = Spacer@0]}], #2] &, {list1, names, 
     Range@Length@names}]],
  Dynamic@menu}

Even more convenient is the following setup where the appearing menu is directly inserted in ListLinePlot result:

list1 = {{{0, 1}, {1, 2}, {2, 4}}, {{0, 3}, {1, 1}, {2, 5}}};
names = {"curve1", "curve2"};
selected = None;
dummyFunction[t_, u_] := Graphics[{If[u == 1, Green, Red], Disk[],
        Black, Style[Text[t], 14]}, ImageSize -> 40]

Dynamic[ListLinePlot[MapThread[EventHandler[#2,
     "MouseDown" :> (
       menuPos = MousePosition["Graphics"]; 
       selected = #1;
       menu = Grid[{{
           Manipulate[dummyFunction[names[[#1]], x], {x, {0, 1}}],
           Button["X", selected = None; menu = Spacer@0, ImageSize -> {20, 20}]
           }}, Spacings -> 0, Alignment -> Top]),
     PassEventsDown -> False, PassEventsUp -> False] &,
   {Range@Length@list1, list1}],
  PlotStyle -> {{Thick, If[selected === 1, Dashed, {}], Red}, {Thick, 
     If[selected === 2, Dashed, {}], Blue}}, ImageSize -> 400, 
  Epilog -> If[selected =!= None, Inset[menu, menuPos], {}]], 
 TrackedSymbols :> {menuPos, selected, menu}]

Edit

The second approach, in its package-ready function form:

f[list_, names_] := DynamicModule[{show = 0, menu = Spacer@0, dummy},
   dummy[t_, u_] := 
    Graphics[{If[u == 1, Green, Red], Disk[], Black, Text@t}, 
     ImageSize -> 60];
   Column@{ListLinePlot[
      MapThread[
       Tooltip[EventHandler[#1, {"MouseClicked" :> If[show =!= #3,
             show = #3; 
             menu = Manipulate[
               dummy[#2, variable], {variable, {0, 1}}],
             show = 0; menu = Spacer@0
             ]}], #2] &, {list, names, Range@Length@names}]], 
     Dynamic@menu}
   ];

list = {{{0, 1}, {1, 2}, {2, 4}}, {{0, 3}, {1, 1}, {2, 5}}};
names = {"curve1", "curve2"};
Manipulate[f[list, names], {t, {"a", "b"}}]

Answer 2

I doubt that this is really all you want, but not knowing any details I'll just answer the specific question how to get a Manipulate to run based on a click, and then have the output appear in the plot. If you want the outputs from several clicks to accumulate, you could adapt this in combination with the AppendTo method in this answer. You say the disk is supposed to appear below line 1, so I'm assuming it's not dynamically movable (again, look at my linked answer if you do want that).

With[
 {placedPosition = {1.6, 2}, objectSize = .5},
 DynamicModule[
  {
   object = Graphics[{}]
   },
  ListLinePlot[
   Table[
    PopupWindow[list1[[i]],
     With[{nameTemplate = names[[i]]},
      Manipulate[
       object = 
        dummyFunction[nameTemplate, variable], {variable, {0, 1}}]
      ]
     ],
    {i, Length[list1]}],
   Epilog -> 
    Dynamic[Inset[object, placedPosition, Automatic, objectSize]]
   ]
  ]
 ]

I decided to implement your Manipulate inside a PopupWindow so it's independent of the plot in which you clicked.

I may have misunderstood what you mean by "under the first graph": my interpretation was that it is placed in the same plot. If you want it to be spaced further down then just create extra space with ImageMargins, and change the coordinate in placedPosition accordingly. The variable objectSize is the relative size of the disk in the parent plot.