# Column one under another one in a Plot

I would like to generate a graphic with the Sen,cos and tan function and 3 box on the left, each under the previous.

Labeled[listacampi1 = {PopupMenu[ris1, {"Seno","Coseno","Tangente"}]};
Plot[{Sin[x],Cos[x],Tan[x]},{x, -2 Pi, 2 Pi}, PlotRange->{-4,4},ImageSize->Large],Column[listacampi1],Right];


Using that, I can generate one in the place where I want, but if I write in addition ,Column[listacampi1],Left it doesn't work.

If I write instead Column[{listacampi1,listacampi1}],Right the output is like I want but there are the parenthesis that I don't want.

How can I do that?

• The problem is that listacampi1 is a List. Either remove the braces from the definition of listacampi1, or use Column[Flatten@{listacampi1,listacampi1}]. The first is almost certainly cleaner. May 24 '17 at 17:25
• @jjc385 Flatten works, thank you May 24 '17 at 17:37
• @jjc385 How can I put a label over each of them? Using Text[]? May 24 '17 at 17:40
• I'm not an expert in plotting, and it's not entirely clear what you mean. Your best bet is to ask a new question. May 24 '17 at 17:43
• you could also draw an example of the result you want. Also supply code for working and not working examples.
– ivbc
May 24 '17 at 18:38

Labeled[listacampi1 = {PopupMenu[