2

I'm trying to overlay legends inside of a plot, so that if you were to right-click on the graphic and save it the legends would be included, but I can't seem to do it in a good way. I tried Image@Rasterize, but the image quality gets thrown off unless I set the raster size. However, I want end users to be able to save the plot, so I don't want to make anything set in stone that they can't change later.

m_goldberg
  • 107,779
  • 16
  • 103
  • 257
Daniel
  • 21
  • 2
  • 2
    Welcome to Mathematica StackExchange.  In order to learn how to use this site take the tour. When copying equations from a notebook to your question one should format using inline code by selecting the code and clicking the {} button above the edit window. It is recommended that you browse the Markdown help

    Please write the equations in Mathematica syntax as well, and show what you tried.

     – Jack LaVigne Dec 28 '19 at 00:44
  • 1
    Use Placed: Plot[{x, x^2}, {x, 0, 1}, PlotLegends -> Placed["Expressions", {.25, .75}]] – Bob Hanlon Dec 28 '19 at 00:50

2 Answers2

3

Bob Hanlon in his comment to your question gives what I think is the way to go to solve your problem. I would like to make the further point that even if you use Placed to move the plot legends so that they look like they are outside the plot, they will still be part of plot when it is selected for copying or saving as an image.

enter image description here

m_goldberg
  • 107,779
  • 16
  • 103
  • 257
2

I typically do something like this:

Plot[
        Exp[-t/10] Sin[\[Pi] t],{t, 0,10}, Frame->True,
        PlotLegends->Placed[
                            LineLegend[
                                        {"Your labels"},
                                        LegendLayout->{"Column",1},
                                        LegendMarkerSize->16
                                      ],
                            {Left,0.9},
                            Pane[#,450,Alignment->Left]&
                          ],
        PlotRange->{All,{-1.5,+1.5}}
    ]

enter image description here

This gives you lots of freedom to play around with the placement, style and positioning of the plot label. This is especially handy if you have many plots you want to label. For example

Plot[
        {
            Exp[-t/10] Sin[\[Pi] t],
            Exp[-t/10],
            Sin[\[Pi] t]
        },{t, 0,10}, Frame->True,
        PlotLegends->Placed[
                            LineLegend[
                                        {"Decaying Sine","Exponetial Decay", "Sine"},
                                        LegendLayout->{"Column",2},
                                        LegendMarkerSize->16
                                      ],
                            {Left,0.9},
                            Pane[#,450,Alignment->Left]&
                          ],
        PlotRange->{All,{-1.5,+1.5}}
    ]

enter image description here

Note that I changed the column number to 2, making two columns of plot labels.

user27119
  • 2,500
  • 13
  • 34