How to align the plot legends in the following way?

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP











up vote
1
down vote

favorite












Consider example



 ContourPlot[(x - 2)^2 + (y - 2)^2 == 
12, (x + 2)^3 + (y + 2)^3 ==8, x, -4, 4, y, -4, 4,
PlotLegends ->
Placed[Style["Region 1", 20], Style["Region 2", 20], 0.7, 0.82]]


The result is the picture on the left. Could you please tell me to change the colour of the legend text and set for each plot legend set its own coordinate, see the picture on the right?



enter image description here










share|improve this question

























    up vote
    1
    down vote

    favorite












    Consider example



     ContourPlot[(x - 2)^2 + (y - 2)^2 == 
    12, (x + 2)^3 + (y + 2)^3 ==8, x, -4, 4, y, -4, 4,
    PlotLegends ->
    Placed[Style["Region 1", 20], Style["Region 2", 20], 0.7, 0.82]]


    The result is the picture on the left. Could you please tell me to change the colour of the legend text and set for each plot legend set its own coordinate, see the picture on the right?



    enter image description here










    share|improve this question























      up vote
      1
      down vote

      favorite









      up vote
      1
      down vote

      favorite











      Consider example



       ContourPlot[(x - 2)^2 + (y - 2)^2 == 
      12, (x + 2)^3 + (y + 2)^3 ==8, x, -4, 4, y, -4, 4,
      PlotLegends ->
      Placed[Style["Region 1", 20], Style["Region 2", 20], 0.7, 0.82]]


      The result is the picture on the left. Could you please tell me to change the colour of the legend text and set for each plot legend set its own coordinate, see the picture on the right?



      enter image description here










      share|improve this question













      Consider example



       ContourPlot[(x - 2)^2 + (y - 2)^2 == 
      12, (x + 2)^3 + (y + 2)^3 ==8, x, -4, 4, y, -4, 4,
      PlotLegends ->
      Placed[Style["Region 1", 20], Style["Region 2", 20], 0.7, 0.82]]


      The result is the picture on the left. Could you please tell me to change the colour of the legend text and set for each plot legend set its own coordinate, see the picture on the right?



      enter image description here







      plotting syntax legending






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked 5 hours ago









      John Taylor

      682211




      682211




















          2 Answers
          2






          active

          oldest

          votes

















          up vote
          3
          down vote



          accepted










          Try this:



          Show[
          ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, (x + 2)^3 + (y + 2)^3 ==
          8, x, -4, 4, y, -4, 4, ContourStyle -> Blue, Orange],
          Graphics[Text[Style["Region 1", 20, Blue], Scaled[0.8, 0.8]],

          Text[Style["Region 2", 20, Orange], Scaled[0.2, 0.2]]
          ]
          ]


          enter image description here



          Done. Have fun!






          share|improve this answer




















          • Maybe a bit more "authomatic": Show[ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, x, -4, 4, y, -4, 4, ContourStyle -> Blue, PlotLegends -> Placed["Region 1", Right, Top]], ContourPlot[(x + 2)^3 + (y + 2)^3 == 8, x, -4, 4, y, -4, 4, ContourStyle -> Orange, PlotLegends -> Placed["Region 2", Left, Bottom]]]
            – b.gatessucks
            5 hours ago

















          up vote
          2
          down vote













          labels = Style[#, 20] & /@ "Region 1", "Region 2";
          colors = ColorData[97] /@ 1, 2;
          positions = 7, 7 / 10, 1, 1 / 4;

          ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, (x + 2)^3 + (y + 2)^3 == 8,
          x, -4, 4, y, -4, 4,
          PlotLegends -> ( Placed[Style@##2, #] & @@@ Transpose[positions, labels, colors])]


          enter image description here






          share|improve this answer
















          • 1




            Nice answer, first time I've ever seen ##n used.
            – N.J.Evans
            9 mins ago










          Your Answer





          StackExchange.ifUsing("editor", function ()
          return StackExchange.using("mathjaxEditing", function ()
          StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
          StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
          );
          );
          , "mathjax-editing");

          StackExchange.ready(function()
          var channelOptions =
          tags: "".split(" "),
          id: "387"
          ;
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function()
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled)
          StackExchange.using("snippets", function()
          createEditor();
          );

          else
          createEditor();

          );

          function createEditor()
          StackExchange.prepareEditor(
          heartbeatType: 'answer',
          convertImagesToLinks: false,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: null,
          bindNavPrevention: true,
          postfix: "",
          imageUploader:
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          ,
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          );



          );













           

          draft saved


          draft discarded


















          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f185071%2fhow-to-align-the-plot-legends-in-the-following-way%23new-answer', 'question_page');

          );

          Post as a guest






























          2 Answers
          2






          active

          oldest

          votes








          2 Answers
          2






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes








          up vote
          3
          down vote



          accepted










          Try this:



          Show[
          ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, (x + 2)^3 + (y + 2)^3 ==
          8, x, -4, 4, y, -4, 4, ContourStyle -> Blue, Orange],
          Graphics[Text[Style["Region 1", 20, Blue], Scaled[0.8, 0.8]],

          Text[Style["Region 2", 20, Orange], Scaled[0.2, 0.2]]
          ]
          ]


          enter image description here



          Done. Have fun!






          share|improve this answer




















          • Maybe a bit more "authomatic": Show[ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, x, -4, 4, y, -4, 4, ContourStyle -> Blue, PlotLegends -> Placed["Region 1", Right, Top]], ContourPlot[(x + 2)^3 + (y + 2)^3 == 8, x, -4, 4, y, -4, 4, ContourStyle -> Orange, PlotLegends -> Placed["Region 2", Left, Bottom]]]
            – b.gatessucks
            5 hours ago














          up vote
          3
          down vote



          accepted










          Try this:



          Show[
          ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, (x + 2)^3 + (y + 2)^3 ==
          8, x, -4, 4, y, -4, 4, ContourStyle -> Blue, Orange],
          Graphics[Text[Style["Region 1", 20, Blue], Scaled[0.8, 0.8]],

          Text[Style["Region 2", 20, Orange], Scaled[0.2, 0.2]]
          ]
          ]


          enter image description here



          Done. Have fun!






          share|improve this answer




















          • Maybe a bit more "authomatic": Show[ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, x, -4, 4, y, -4, 4, ContourStyle -> Blue, PlotLegends -> Placed["Region 1", Right, Top]], ContourPlot[(x + 2)^3 + (y + 2)^3 == 8, x, -4, 4, y, -4, 4, ContourStyle -> Orange, PlotLegends -> Placed["Region 2", Left, Bottom]]]
            – b.gatessucks
            5 hours ago












          up vote
          3
          down vote



          accepted







          up vote
          3
          down vote



          accepted






          Try this:



          Show[
          ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, (x + 2)^3 + (y + 2)^3 ==
          8, x, -4, 4, y, -4, 4, ContourStyle -> Blue, Orange],
          Graphics[Text[Style["Region 1", 20, Blue], Scaled[0.8, 0.8]],

          Text[Style["Region 2", 20, Orange], Scaled[0.2, 0.2]]
          ]
          ]


          enter image description here



          Done. Have fun!






          share|improve this answer












          Try this:



          Show[
          ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, (x + 2)^3 + (y + 2)^3 ==
          8, x, -4, 4, y, -4, 4, ContourStyle -> Blue, Orange],
          Graphics[Text[Style["Region 1", 20, Blue], Scaled[0.8, 0.8]],

          Text[Style["Region 2", 20, Orange], Scaled[0.2, 0.2]]
          ]
          ]


          enter image description here



          Done. Have fun!







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered 5 hours ago









          Alexei Boulbitch

          20.8k2369




          20.8k2369











          • Maybe a bit more "authomatic": Show[ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, x, -4, 4, y, -4, 4, ContourStyle -> Blue, PlotLegends -> Placed["Region 1", Right, Top]], ContourPlot[(x + 2)^3 + (y + 2)^3 == 8, x, -4, 4, y, -4, 4, ContourStyle -> Orange, PlotLegends -> Placed["Region 2", Left, Bottom]]]
            – b.gatessucks
            5 hours ago
















          • Maybe a bit more "authomatic": Show[ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, x, -4, 4, y, -4, 4, ContourStyle -> Blue, PlotLegends -> Placed["Region 1", Right, Top]], ContourPlot[(x + 2)^3 + (y + 2)^3 == 8, x, -4, 4, y, -4, 4, ContourStyle -> Orange, PlotLegends -> Placed["Region 2", Left, Bottom]]]
            – b.gatessucks
            5 hours ago















          Maybe a bit more "authomatic": Show[ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, x, -4, 4, y, -4, 4, ContourStyle -> Blue, PlotLegends -> Placed["Region 1", Right, Top]], ContourPlot[(x + 2)^3 + (y + 2)^3 == 8, x, -4, 4, y, -4, 4, ContourStyle -> Orange, PlotLegends -> Placed["Region 2", Left, Bottom]]]
          – b.gatessucks
          5 hours ago




          Maybe a bit more "authomatic": Show[ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, x, -4, 4, y, -4, 4, ContourStyle -> Blue, PlotLegends -> Placed["Region 1", Right, Top]], ContourPlot[(x + 2)^3 + (y + 2)^3 == 8, x, -4, 4, y, -4, 4, ContourStyle -> Orange, PlotLegends -> Placed["Region 2", Left, Bottom]]]
          – b.gatessucks
          5 hours ago










          up vote
          2
          down vote













          labels = Style[#, 20] & /@ "Region 1", "Region 2";
          colors = ColorData[97] /@ 1, 2;
          positions = 7, 7 / 10, 1, 1 / 4;

          ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, (x + 2)^3 + (y + 2)^3 == 8,
          x, -4, 4, y, -4, 4,
          PlotLegends -> ( Placed[Style@##2, #] & @@@ Transpose[positions, labels, colors])]


          enter image description here






          share|improve this answer
















          • 1




            Nice answer, first time I've ever seen ##n used.
            – N.J.Evans
            9 mins ago














          up vote
          2
          down vote













          labels = Style[#, 20] & /@ "Region 1", "Region 2";
          colors = ColorData[97] /@ 1, 2;
          positions = 7, 7 / 10, 1, 1 / 4;

          ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, (x + 2)^3 + (y + 2)^3 == 8,
          x, -4, 4, y, -4, 4,
          PlotLegends -> ( Placed[Style@##2, #] & @@@ Transpose[positions, labels, colors])]


          enter image description here






          share|improve this answer
















          • 1




            Nice answer, first time I've ever seen ##n used.
            – N.J.Evans
            9 mins ago












          up vote
          2
          down vote










          up vote
          2
          down vote









          labels = Style[#, 20] & /@ "Region 1", "Region 2";
          colors = ColorData[97] /@ 1, 2;
          positions = 7, 7 / 10, 1, 1 / 4;

          ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, (x + 2)^3 + (y + 2)^3 == 8,
          x, -4, 4, y, -4, 4,
          PlotLegends -> ( Placed[Style@##2, #] & @@@ Transpose[positions, labels, colors])]


          enter image description here






          share|improve this answer












          labels = Style[#, 20] & /@ "Region 1", "Region 2";
          colors = ColorData[97] /@ 1, 2;
          positions = 7, 7 / 10, 1, 1 / 4;

          ContourPlot[(x - 2)^2 + (y - 2)^2 == 12, (x + 2)^3 + (y + 2)^3 == 8,
          x, -4, 4, y, -4, 4,
          PlotLegends -> ( Placed[Style@##2, #] & @@@ Transpose[positions, labels, colors])]


          enter image description here







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered 12 mins ago









          kglr

          169k8192395




          169k8192395







          • 1




            Nice answer, first time I've ever seen ##n used.
            – N.J.Evans
            9 mins ago












          • 1




            Nice answer, first time I've ever seen ##n used.
            – N.J.Evans
            9 mins ago







          1




          1




          Nice answer, first time I've ever seen ##n used.
          – N.J.Evans
          9 mins ago




          Nice answer, first time I've ever seen ##n used.
          – N.J.Evans
          9 mins ago

















           

          draft saved


          draft discarded















































           


          draft saved


          draft discarded














          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f185071%2fhow-to-align-the-plot-legends-in-the-following-way%23new-answer', 'question_page');

          );

          Post as a guest













































































          Comments

          Popular posts from this blog

          What does second last employer means? [closed]

          List of Gilmore Girls characters

          Confectionery