line[style_,
name_] := {Graphics[{style, Line[{{0, 0}, {1, 0}}]},
PlotRange -> {{0, 1}, .1 {-1, 1}}], name}
Plot[Sin[x], {x, 0, 10},
Epilog ->
Inset[Grid[{line[Red, "red"], line[Blue, "blue"],
line[Pink, "pink"]}, ItemSize -> {{2, Full}, Automatic}],
Scaled@{1, 1}, Scaled@{1, 1}]]