Using `PlotLegends` with a `ColorFunction`Using PlotLegendsPlotLegends questionChange the legend labels' font when PlotLegends is AutomaticHow to simulate Placed in workaround for PlotLegends ParametricPlot bug?Piecewise ColorFunction for Plot3DHow to prevent ColorFunction from blending colors between points on a ListLinePlotListPlot with different color optionsMake Legend dot largerCommon legend for two density plotsColorFunction ranges for SphericalPlot3D

What specific instant in time in the MCU has been depicted the most times?

LED glows slightly during soldering

Why isn't pressure filtration popular compared to vacuum filtration?

Is it unbalanced to allow a monk with the Tavern Brawler feat to use improvised weapons as monk weapons?

Is it possible to create a craft with specific bones, like the bones of a forgotten beast?

Is there a strong legal guarantee that the U.S. can give to another country that it won't attack them?

Why weren't bootable game disks ever common on the IBM PC?

How can a dictatorship government be beneficial to a dictator in a post-scarcity society?

Great Unsolved Problems in O.R

Is a request to book a business flight ticket for a graduate student an unreasonable one?

How to deal with moral/legal subjects in writing?

Are there any sports for which the world's best player is female?

Why was hardware diversification an asset for the IBM PC ecosystem?

Would dual wielding daggers be a viable choice for a covert bodyguard?

Confirming the Identity of a (Friendly) Reviewer After the Reviews

Received a dinner invitation through my employer's email, is it ok to attend?

How to memorize multiple pieces?

Fivenum and a little bit

Graduate student with abysmal English writing skills, how to help

How can I fix the dull colors I am getting in Ubuntu 19.04 Terminal?

Why is the air gap between the stator and rotor on a motor kept as small as it is?

Why didn't Thanos kill all the Dwarves on Nidavellir?

Why is the ladder of the LM always in the dark side of the LM?

Are there any medieval light sources without fire?



Using `PlotLegends` with a `ColorFunction`


Using PlotLegendsPlotLegends questionChange the legend labels' font when PlotLegends is AutomaticHow to simulate Placed in workaround for PlotLegends ParametricPlot bug?Piecewise ColorFunction for Plot3DHow to prevent ColorFunction from blending colors between points on a ListLinePlotListPlot with different color optionsMake Legend dot largerCommon legend for two density plotsColorFunction ranges for SphericalPlot3D






.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;








3












$begingroup$


Is there a way to put a legend mark with a color function rainbow?



For example:



legend2 = 
Grid[Graphics[Red, Thick, Line[0, 0, 2, 0],
ImageSize -> 5], "u"]
u[x_] := x
Plot[u[x], x, 0, 1, ColorFunction -> "Rainbow",
PlotLegends -> Placed[legend2, 1.05, 0.5, 0, 0.5]]


enter image description here



In this case the plot marker is red. Is there a way to put a rainbow scale like the function?










share|improve this question









$endgroup$











  • $begingroup$
    I don't want a bar. I want a line (like the image) but instead the color red, a rainbow color.
    $endgroup$
    – Mateus
    7 hours ago

















3












$begingroup$


Is there a way to put a legend mark with a color function rainbow?



For example:



legend2 = 
Grid[Graphics[Red, Thick, Line[0, 0, 2, 0],
ImageSize -> 5], "u"]
u[x_] := x
Plot[u[x], x, 0, 1, ColorFunction -> "Rainbow",
PlotLegends -> Placed[legend2, 1.05, 0.5, 0, 0.5]]


enter image description here



In this case the plot marker is red. Is there a way to put a rainbow scale like the function?










share|improve this question









$endgroup$











  • $begingroup$
    I don't want a bar. I want a line (like the image) but instead the color red, a rainbow color.
    $endgroup$
    – Mateus
    7 hours ago













3












3








3


1



$begingroup$


Is there a way to put a legend mark with a color function rainbow?



For example:



legend2 = 
Grid[Graphics[Red, Thick, Line[0, 0, 2, 0],
ImageSize -> 5], "u"]
u[x_] := x
Plot[u[x], x, 0, 1, ColorFunction -> "Rainbow",
PlotLegends -> Placed[legend2, 1.05, 0.5, 0, 0.5]]


enter image description here



In this case the plot marker is red. Is there a way to put a rainbow scale like the function?










share|improve this question









$endgroup$




Is there a way to put a legend mark with a color function rainbow?



For example:



legend2 = 
Grid[Graphics[Red, Thick, Line[0, 0, 2, 0],
ImageSize -> 5], "u"]
u[x_] := x
Plot[u[x], x, 0, 1, ColorFunction -> "Rainbow",
PlotLegends -> Placed[legend2, 1.05, 0.5, 0, 0.5]]


enter image description here



In this case the plot marker is red. Is there a way to put a rainbow scale like the function?







plotting legending






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked 9 hours ago









MateusMateus

6241 silver badge7 bronze badges




6241 silver badge7 bronze badges











  • $begingroup$
    I don't want a bar. I want a line (like the image) but instead the color red, a rainbow color.
    $endgroup$
    – Mateus
    7 hours ago
















  • $begingroup$
    I don't want a bar. I want a line (like the image) but instead the color red, a rainbow color.
    $endgroup$
    – Mateus
    7 hours ago















$begingroup$
I don't want a bar. I want a line (like the image) but instead the color red, a rainbow color.
$endgroup$
– Mateus
7 hours ago




$begingroup$
I don't want a bar. I want a line (like the image) but instead the color red, a rainbow color.
$endgroup$
– Mateus
7 hours ago










2 Answers
2






active

oldest

votes


















4












$begingroup$

u[x_] := x
sparkline = Plot[0, x, 0, 1,
ColorFunction -> (ColorData[ "Rainbow"][#] &),
PlotStyle -> Thick,
PlotTheme -> "Sparkline", Axes -> False];

Plot[u[x], x, 0, 1,
ColorFunction -> "Rainbow",
PlotStyle -> Thick,
PlotLegends -> Labeled[sparkline, "u", Right]]


enter image description here



An alternative ways is to use sparkline with the (undocumented) option "LegendItem" inside LineLegend:



Plot[u[x], x, 0, 1, 
ColorFunction -> "Rainbow",
PlotStyle -> Thick,
PlotLegends -> LineLegend[Automatic, u, "LegendItem" -> sparkline]]


enter image description here



Variations on the same idea:



colorfunctions = "Rainbow", "SolarColors";
functions = Sin[x], Cos[x];

sparklines = MapThread[Plot[#, x, 0, 2 Pi,
ColorFunction -> #2, PlotStyle -> Thick,
PlotTheme -> "Sparkline", Axes -> False] &,
functions, colorfunctions];

Show[MapThread[Plot[#, x, 0, 2 Pi,
ColorFunction -> #2, PlotStyle -> Thick,
PlotLegends -> LineLegend[Automatic, TraditionalForm @ #,
"LegendItem" -> #3, LegendMarkerSize -> Large]] &,
functions, colorfunctions, sparklines]]


enter image description here






share|improve this answer











$endgroup$




















    2












    $begingroup$

    You can use LegendLayout to modify the Line[] in LineLegend:



    ClearAll[cfline];
    cfline[cf_String] := cfline[ColorData@cf];
    cfline[cf_][pairs_] := Grid[
    pairs /.
    Line[a_, b_] :>
    Line[Subdivide[a, b, 20],
    VertexColors -> cf /@ Subdivide[0., 1., 20]]
    ];

    Plot[u[x], x, 0, 4,
    ColorFunction -> "Rainbow",
    PlotLegends -> LineLegend["Expressions", LegendLayout -> cfline@"Rainbow"]]


    enter image description here






    share|improve this answer









    $endgroup$















      Your Answer








      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',
      autoActivateHeartbeat: false,
      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%2f201821%2fusing-plotlegends-with-a-colorfunction%23new-answer', 'question_page');

      );

      Post as a guest















      Required, but never shown

























      2 Answers
      2






      active

      oldest

      votes








      2 Answers
      2






      active

      oldest

      votes









      active

      oldest

      votes






      active

      oldest

      votes









      4












      $begingroup$

      u[x_] := x
      sparkline = Plot[0, x, 0, 1,
      ColorFunction -> (ColorData[ "Rainbow"][#] &),
      PlotStyle -> Thick,
      PlotTheme -> "Sparkline", Axes -> False];

      Plot[u[x], x, 0, 1,
      ColorFunction -> "Rainbow",
      PlotStyle -> Thick,
      PlotLegends -> Labeled[sparkline, "u", Right]]


      enter image description here



      An alternative ways is to use sparkline with the (undocumented) option "LegendItem" inside LineLegend:



      Plot[u[x], x, 0, 1, 
      ColorFunction -> "Rainbow",
      PlotStyle -> Thick,
      PlotLegends -> LineLegend[Automatic, u, "LegendItem" -> sparkline]]


      enter image description here



      Variations on the same idea:



      colorfunctions = "Rainbow", "SolarColors";
      functions = Sin[x], Cos[x];

      sparklines = MapThread[Plot[#, x, 0, 2 Pi,
      ColorFunction -> #2, PlotStyle -> Thick,
      PlotTheme -> "Sparkline", Axes -> False] &,
      functions, colorfunctions];

      Show[MapThread[Plot[#, x, 0, 2 Pi,
      ColorFunction -> #2, PlotStyle -> Thick,
      PlotLegends -> LineLegend[Automatic, TraditionalForm @ #,
      "LegendItem" -> #3, LegendMarkerSize -> Large]] &,
      functions, colorfunctions, sparklines]]


      enter image description here






      share|improve this answer











      $endgroup$

















        4












        $begingroup$

        u[x_] := x
        sparkline = Plot[0, x, 0, 1,
        ColorFunction -> (ColorData[ "Rainbow"][#] &),
        PlotStyle -> Thick,
        PlotTheme -> "Sparkline", Axes -> False];

        Plot[u[x], x, 0, 1,
        ColorFunction -> "Rainbow",
        PlotStyle -> Thick,
        PlotLegends -> Labeled[sparkline, "u", Right]]


        enter image description here



        An alternative ways is to use sparkline with the (undocumented) option "LegendItem" inside LineLegend:



        Plot[u[x], x, 0, 1, 
        ColorFunction -> "Rainbow",
        PlotStyle -> Thick,
        PlotLegends -> LineLegend[Automatic, u, "LegendItem" -> sparkline]]


        enter image description here



        Variations on the same idea:



        colorfunctions = "Rainbow", "SolarColors";
        functions = Sin[x], Cos[x];

        sparklines = MapThread[Plot[#, x, 0, 2 Pi,
        ColorFunction -> #2, PlotStyle -> Thick,
        PlotTheme -> "Sparkline", Axes -> False] &,
        functions, colorfunctions];

        Show[MapThread[Plot[#, x, 0, 2 Pi,
        ColorFunction -> #2, PlotStyle -> Thick,
        PlotLegends -> LineLegend[Automatic, TraditionalForm @ #,
        "LegendItem" -> #3, LegendMarkerSize -> Large]] &,
        functions, colorfunctions, sparklines]]


        enter image description here






        share|improve this answer











        $endgroup$















          4












          4








          4





          $begingroup$

          u[x_] := x
          sparkline = Plot[0, x, 0, 1,
          ColorFunction -> (ColorData[ "Rainbow"][#] &),
          PlotStyle -> Thick,
          PlotTheme -> "Sparkline", Axes -> False];

          Plot[u[x], x, 0, 1,
          ColorFunction -> "Rainbow",
          PlotStyle -> Thick,
          PlotLegends -> Labeled[sparkline, "u", Right]]


          enter image description here



          An alternative ways is to use sparkline with the (undocumented) option "LegendItem" inside LineLegend:



          Plot[u[x], x, 0, 1, 
          ColorFunction -> "Rainbow",
          PlotStyle -> Thick,
          PlotLegends -> LineLegend[Automatic, u, "LegendItem" -> sparkline]]


          enter image description here



          Variations on the same idea:



          colorfunctions = "Rainbow", "SolarColors";
          functions = Sin[x], Cos[x];

          sparklines = MapThread[Plot[#, x, 0, 2 Pi,
          ColorFunction -> #2, PlotStyle -> Thick,
          PlotTheme -> "Sparkline", Axes -> False] &,
          functions, colorfunctions];

          Show[MapThread[Plot[#, x, 0, 2 Pi,
          ColorFunction -> #2, PlotStyle -> Thick,
          PlotLegends -> LineLegend[Automatic, TraditionalForm @ #,
          "LegendItem" -> #3, LegendMarkerSize -> Large]] &,
          functions, colorfunctions, sparklines]]


          enter image description here






          share|improve this answer











          $endgroup$



          u[x_] := x
          sparkline = Plot[0, x, 0, 1,
          ColorFunction -> (ColorData[ "Rainbow"][#] &),
          PlotStyle -> Thick,
          PlotTheme -> "Sparkline", Axes -> False];

          Plot[u[x], x, 0, 1,
          ColorFunction -> "Rainbow",
          PlotStyle -> Thick,
          PlotLegends -> Labeled[sparkline, "u", Right]]


          enter image description here



          An alternative ways is to use sparkline with the (undocumented) option "LegendItem" inside LineLegend:



          Plot[u[x], x, 0, 1, 
          ColorFunction -> "Rainbow",
          PlotStyle -> Thick,
          PlotLegends -> LineLegend[Automatic, u, "LegendItem" -> sparkline]]


          enter image description here



          Variations on the same idea:



          colorfunctions = "Rainbow", "SolarColors";
          functions = Sin[x], Cos[x];

          sparklines = MapThread[Plot[#, x, 0, 2 Pi,
          ColorFunction -> #2, PlotStyle -> Thick,
          PlotTheme -> "Sparkline", Axes -> False] &,
          functions, colorfunctions];

          Show[MapThread[Plot[#, x, 0, 2 Pi,
          ColorFunction -> #2, PlotStyle -> Thick,
          PlotLegends -> LineLegend[Automatic, TraditionalForm @ #,
          "LegendItem" -> #3, LegendMarkerSize -> Large]] &,
          functions, colorfunctions, sparklines]]


          enter image description here







          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited 5 hours ago

























          answered 7 hours ago









          kglrkglr

          204k10 gold badges233 silver badges463 bronze badges




          204k10 gold badges233 silver badges463 bronze badges























              2












              $begingroup$

              You can use LegendLayout to modify the Line[] in LineLegend:



              ClearAll[cfline];
              cfline[cf_String] := cfline[ColorData@cf];
              cfline[cf_][pairs_] := Grid[
              pairs /.
              Line[a_, b_] :>
              Line[Subdivide[a, b, 20],
              VertexColors -> cf /@ Subdivide[0., 1., 20]]
              ];

              Plot[u[x], x, 0, 4,
              ColorFunction -> "Rainbow",
              PlotLegends -> LineLegend["Expressions", LegendLayout -> cfline@"Rainbow"]]


              enter image description here






              share|improve this answer









              $endgroup$

















                2












                $begingroup$

                You can use LegendLayout to modify the Line[] in LineLegend:



                ClearAll[cfline];
                cfline[cf_String] := cfline[ColorData@cf];
                cfline[cf_][pairs_] := Grid[
                pairs /.
                Line[a_, b_] :>
                Line[Subdivide[a, b, 20],
                VertexColors -> cf /@ Subdivide[0., 1., 20]]
                ];

                Plot[u[x], x, 0, 4,
                ColorFunction -> "Rainbow",
                PlotLegends -> LineLegend["Expressions", LegendLayout -> cfline@"Rainbow"]]


                enter image description here






                share|improve this answer









                $endgroup$















                  2












                  2








                  2





                  $begingroup$

                  You can use LegendLayout to modify the Line[] in LineLegend:



                  ClearAll[cfline];
                  cfline[cf_String] := cfline[ColorData@cf];
                  cfline[cf_][pairs_] := Grid[
                  pairs /.
                  Line[a_, b_] :>
                  Line[Subdivide[a, b, 20],
                  VertexColors -> cf /@ Subdivide[0., 1., 20]]
                  ];

                  Plot[u[x], x, 0, 4,
                  ColorFunction -> "Rainbow",
                  PlotLegends -> LineLegend["Expressions", LegendLayout -> cfline@"Rainbow"]]


                  enter image description here






                  share|improve this answer









                  $endgroup$



                  You can use LegendLayout to modify the Line[] in LineLegend:



                  ClearAll[cfline];
                  cfline[cf_String] := cfline[ColorData@cf];
                  cfline[cf_][pairs_] := Grid[
                  pairs /.
                  Line[a_, b_] :>
                  Line[Subdivide[a, b, 20],
                  VertexColors -> cf /@ Subdivide[0., 1., 20]]
                  ];

                  Plot[u[x], x, 0, 4,
                  ColorFunction -> "Rainbow",
                  PlotLegends -> LineLegend["Expressions", LegendLayout -> cfline@"Rainbow"]]


                  enter image description here







                  share|improve this answer












                  share|improve this answer



                  share|improve this answer










                  answered 5 hours ago









                  Michael E2Michael E2

                  155k12 gold badges213 silver badges502 bronze badges




                  155k12 gold badges213 silver badges502 bronze badges



























                      draft saved

                      draft discarded
















































                      Thanks for contributing an answer to Mathematica Stack Exchange!


                      • Please be sure to answer the question. Provide details and share your research!

                      But avoid


                      • Asking for help, clarification, or responding to other answers.

                      • Making statements based on opinion; back them up with references or personal experience.

                      Use MathJax to format equations. MathJax reference.


                      To learn more, see our tips on writing great answers.




                      draft saved


                      draft discarded














                      StackExchange.ready(
                      function ()
                      StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f201821%2fusing-plotlegends-with-a-colorfunction%23new-answer', 'question_page');

                      );

                      Post as a guest















                      Required, but never shown





















































                      Required, but never shown














                      Required, but never shown












                      Required, but never shown







                      Required, but never shown

































                      Required, but never shown














                      Required, but never shown












                      Required, but never shown







                      Required, but never shown







                      Popular posts from this blog

                      Invision Community Contents History See also References External links Navigation menuProprietaryinvisioncommunity.comIPS Community ForumsIPS Community Forumsthis blog entry"License Changes, IP.Board 3.4, and the Future""Interview -- Matt Mecham of Ibforums""CEO Invision Power Board, Matt Mecham Is a Liar, Thief!"IPB License Explanation 1.3, 1.3.1, 2.0, and 2.1ArchivedSecurity Fixes, Updates And Enhancements For IPB 1.3.1Archived"New Demo Accounts - Invision Power Services"the original"New Default Skin"the original"Invision Power Board 3.0.0 and Applications Released"the original"Archived copy"the original"Perpetual licenses being done away with""Release Notes - Invision Power Services""Introducing: IPS Community Suite 4!"Invision Community Release Notes

                      Canceling a color specificationRandomly assigning color to Graphics3D objects?Default color for Filling in Mathematica 9Coloring specific elements of sets with a prime modified order in an array plotHow to pick a color differing significantly from the colors already in a given color list?Detection of the text colorColor numbers based on their valueCan color schemes for use with ColorData include opacity specification?My dynamic color schemes

                      Ласкавець круглолистий Зміст Опис | Поширення | Галерея | Примітки | Посилання | Навігаційне меню58171138361-22960890446Bupleurum rotundifoliumEuro+Med PlantbasePlants of the World Online — Kew ScienceGermplasm Resources Information Network (GRIN)Ласкавецькн. VI : Літери Ком — Левиправивши або дописавши її