I have a plot as below:-

```
lg1 = {GraphicsRow[{Blue, "- Type A"}], GraphicsRow[{Orange, "- Type B"}]};
plot1 = ListPlot[{{{4, 1}, {3, 6}, {3, 4}}, {{4, 7}, {8, 5}, {2, 6}}}, PlotRange -> All];
Legended[plot1, lg1]

```

[![enter image description here](https://i.stack.imgur.com/MWqGYm.png)](https://i.stack.imgur.com/MWqGYm.png)

As you can see, the legend is very "loose". I want to to be more compact. In fact I can change `lg1` to `lg1 = Column@{"Blue - Type A", "Orange - Type B"}`, but then the color will become text as below:-

[![enter image description here](https://i.stack.imgur.com/MNDQim.png)](https://i.stack.imgur.com/MNDQim.png)

How can I keep the color and make it more compact? Many thanks!