Legends in graphs using Show

Questions
,
1

Hello

I am making a combination of two graphs; one made by ListPlot and other made by Plot to put them together i am using Show, i know how to put legends in graphs for both (ListPlot and Plot) but when i put them together inside Show [ ] the graph doesn’t show up.

I have Mathematica 8

Is there any solution to put the legends from my two different graphs combined in one using Show?

I hope you could help me.

Regards

2

You can try making your legend separately and using GraphicsGrid to combine all three items.

lp = ListPlot[Thread[{Range[10], Sin[2.1 Range[10]]}], 
   PlotStyle -> {Red, PointSize -> Large}];


p = Plot[Sin[2 x], {x, 0, 10}];
twoGraphs = Show[lp, p]

Untitled-1.png
Untitled-1.png360×214 9.27 KB

 Needs["PlotLegends`"]


 Legend[{{Graphics[{ColorData[1][1], Thick, 
     Line[{{0, 0}, {1, 0}}]}], 
   Sin[2 x]}, {Graphics[{Red, PointSize[Large], Point[{0, 0}]}], 
   Sin[2.1 x]}}, LegendSize -> {1, .4}, LegendTextSpace -> .5, 
 LegendShadow -> None];

pl = Graphics[%];
GraphicsGrid[{{twoGraphs, pl}}]

test.png
test.png500×137 7.75 KB