level 2
Plot[{Sin[x], Sin[2 x]}, {x, 0, 4}, Filling -> Axis,
PlotLegends ->
LineLegend[Automatic, LegendMarkers -> Graphics@{Opacity[0.2], Rectangle[]},
LegendMarkerSize -> 30]]

用同一思路我们完全可以实现更精细的调节,比如说,把图例里横在中时间的那根线移到方块的上顶边去。不过现在到吃饭时间了,我就不继续弄了。
