I am using Mathematica 9. The problem I have is with plotlengends, in particular,
g2 = ListPlot[{{2, 1}, {3, 4}, {3.5, 4.2}, {4, 6}},
PlotStyle -> {Dashing[Large]}, PlotLegends -> {"Dashed"},
Joined -> True];
g1 = ListPlot[{{2, 1}, {3, 4}, {3.5, 4.2}, {4, 6}, {4.5, 6.6}, {5,
7}, {6, 9}, {8, 11}}, Joined -> True, PlotStyle -> {Dotted},
PlotLegends -> {"Dot"}];
Show[g1, g2]
As you can see, the problem is that looking at this lengends, there is no way you can tell which curve coresponds to which one in the legends (for instance, is the dash curve coresponds to the top legend or the bottom legend?). Changing the color will not work because this plot has to be in black and white only. Please help.