Cycle through MeshStyle directives in ListLinePlot

career in signal processing

Helping ease my back pain by studying 13 hours everyday , even weekends

Prime sieve in Python

Should an enameled cast iron pan be seasoned?

Why isn't my calculation that we should be able to see the sun well beyond the observable universe valid?

Count All Possible Unique Combinations of Letters in a Word

How can I get my left hand to sound legato when I'm leaping?

Explain why a line can never intersect a plane in exactly two points.

What happened to Steve's Shield in Iron Man 2?

When to remove insignificant variables?

What can I do with a research project that is my university’s intellectual property?

Should I submit Original or copy of my passport to canadian embassy?

Why does cooking oatmeal starting with cold milk make it creamy?

How do I professionally let my manager know I'll quit over an issue?

Can Ogre clerics use Purify Food and Drink on humanoid characters?

RandomInteger with equal number of 1 and -1

Will generated tokens be progressively stronger when using Cathar's Crusade and Sorin, Grim Nemesis?

Heavily limited premature compiler translates text into excecutable python code

Do I have any obligations to my PhD supervisor's requests after I have graduated?

Understanding the reasoning of the woman who agreed with Shlomo to "cut the baby in half"

Is "Busen" just the area between the breasts?

How does DC work with natural 20?

I found a password with hashcat, but it doesn't work

Why is it easier to balance a non-moving bike standing up than sitting down?



Cycle through MeshStyle directives in ListLinePlot







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








8












$begingroup$


I would like to specify my own mesh styles for successive data rows within a single ListLinePlot. The Wolfram reference for ListLinePlot lists PlotStyle and MeshStyle as options for ListLinePlot. Both options' refrence pages state that




successive directives gi should be used cyclically




This works fine for PlotStyle, but not for MeshStyle. The following was run on Mathematica 12.0.0.0 on Linux:



ListLinePlot[
Table[1/n + RandomReal[-1, 1]/n, n, 1, 20],
Table[1/n, n, 1, 20]
,
Mesh -> All,
PlotStyle -> Red, Blue,
MeshStyle -> Yellow, Green
]


With this output:



enter image description here



Is this a bug or am I doing something wrong?










share|improve this question









$endgroup$


















    8












    $begingroup$


    I would like to specify my own mesh styles for successive data rows within a single ListLinePlot. The Wolfram reference for ListLinePlot lists PlotStyle and MeshStyle as options for ListLinePlot. Both options' refrence pages state that




    successive directives gi should be used cyclically




    This works fine for PlotStyle, but not for MeshStyle. The following was run on Mathematica 12.0.0.0 on Linux:



    ListLinePlot[
    Table[1/n + RandomReal[-1, 1]/n, n, 1, 20],
    Table[1/n, n, 1, 20]
    ,
    Mesh -> All,
    PlotStyle -> Red, Blue,
    MeshStyle -> Yellow, Green
    ]


    With this output:



    enter image description here



    Is this a bug or am I doing something wrong?










    share|improve this question









    $endgroup$














      8












      8








      8





      $begingroup$


      I would like to specify my own mesh styles for successive data rows within a single ListLinePlot. The Wolfram reference for ListLinePlot lists PlotStyle and MeshStyle as options for ListLinePlot. Both options' refrence pages state that




      successive directives gi should be used cyclically




      This works fine for PlotStyle, but not for MeshStyle. The following was run on Mathematica 12.0.0.0 on Linux:



      ListLinePlot[
      Table[1/n + RandomReal[-1, 1]/n, n, 1, 20],
      Table[1/n, n, 1, 20]
      ,
      Mesh -> All,
      PlotStyle -> Red, Blue,
      MeshStyle -> Yellow, Green
      ]


      With this output:



      enter image description here



      Is this a bug or am I doing something wrong?










      share|improve this question









      $endgroup$




      I would like to specify my own mesh styles for successive data rows within a single ListLinePlot. The Wolfram reference for ListLinePlot lists PlotStyle and MeshStyle as options for ListLinePlot. Both options' refrence pages state that




      successive directives gi should be used cyclically




      This works fine for PlotStyle, but not for MeshStyle. The following was run on Mathematica 12.0.0.0 on Linux:



      ListLinePlot[
      Table[1/n + RandomReal[-1, 1]/n, n, 1, 20],
      Table[1/n, n, 1, 20]
      ,
      Mesh -> All,
      PlotStyle -> Red, Blue,
      MeshStyle -> Yellow, Green
      ]


      With this output:



      enter image description here



      Is this a bug or am I doing something wrong?







      plotting






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Jun 4 at 13:42









      DLichtiDLichti

      1536




      1536




















          2 Answers
          2






          active

          oldest

          votes


















          7












          $begingroup$

          SeedRandom[123]
          data = Table[1/n + RandomReal[-1, 1]/n, n, 1, 20], Table[1/n, n, 1, 20];


          Assuming that you want different mesh styles for points on different lines (with default setting for the option MeshFunctions, that is, #&), you can



          1. Combine two separate plots using Show:



          Show[MapThread[ListLinePlot[#, Mesh -> All, PlotRange -> All,
          PlotStyle -> #2, MeshStyle -> #3]&, data, Red, Blue, Yellow, Green],
          PlotRange -> All]


          enter image description here



          1. Post-process the output of a single ListLinePlot to change the
            colors of points:



          llp = ListLinePlot[data, Mesh -> All,
          PlotStyle -> Red, Blue, MeshStyle -> Yellow, Green, PlotRange -> All];
          meshstyles = Reverse @ Yellow, Green;
          llp /. p_Point :> First[meshstyles = RotateRight[meshstyles]], p



          same picture




          1. Use a Dynamic mesh style:



          meshstyles = Reverse @ Yellow, Green;
          ListLinePlot[data, Mesh -> All, PlotStyle -> Red, Blue, PlotRange -> All,
          MeshStyle -> Dynamic[First[meshstyles = RotateRight[meshstyles]]]]



          same picture




          1. Use a function as the MeshStyle setting:



          meshstyles = Reverse @ Yellow, Green;
          ListLinePlot[data, Mesh ->All, PlotStyle -> Red, Blue,PlotRange -> All,
          MeshStyle -> (First[meshstyles = RotateRight[meshstyles]],
          PointSize[Large], #&)]



          same picture




          All the methods above work with arbitrary number of data rows:



          n = 10;
          meshstyles = Reverse [ ColorData[70] /@ Range[n]];
          plotstyles = ColorData[97] /@ Range[n];
          SeedRandom[1]
          data = MapThread[Plus, 5 + Range[n], (Accumulate /@ RandomReal[-1, 1, n, 15])];

          ListLinePlot[data, Mesh -> All, ImageSize -> Large, PlotRange -> All,
          PlotStyle -> plotstyles,
          MeshStyle -> (First[meshstyles = RotateRight[meshstyles]], PointSize[Large], # &),
          PlotLegends -> LineLegend[Automatic, Range[n], LegendMarkers ->
          (Graphics[#, PointSize[Large], Point[0, 0]] & /@ Reverse[meshstyles])]]


          enter image description here






          share|improve this answer











          $endgroup$












          • $begingroup$
            The styles rotation can be simplified by dropping Reverse@... and using Last[meshstyles = RotateLeft[meshstyles]], # &. Setting the PointSize is not necessary.
            $endgroup$
            – DLichti
            Jun 6 at 9:26










          • $begingroup$
            @DLichti, thank you; great point. Will update with an edit.
            $endgroup$
            – kglr
            Jun 6 at 9:32


















          5












          $begingroup$

          The problem is that in order for MeshStyle to cycle through the list, you have to have more than one mesh, and this is determined by the number of MeshFunctions you have. By default, this is set to



          MeshFunctions -> #1&


          for ListLinePlot. If you add



          MeshFunctions -> #1 &, #2 &


          to your plot, Yellow will be used for the horizontal mesh, and Green for the vertical mesh, e.g.



          SeedRandom[15];
          ListLinePlot[Table[1/n + RandomReal[-1, 1]/n, n, 1, 20],
          Table[1/n, n, 1, 20], Mesh -> 5, 7,
          MeshFunctions -> #1 &, #2 &, PlotStyle -> Red, Blue,
          MeshStyle -> Yellow, Green]


          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%2f199710%2fcycle-through-meshstyle-directives-in-listlineplot%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









            7












            $begingroup$

            SeedRandom[123]
            data = Table[1/n + RandomReal[-1, 1]/n, n, 1, 20], Table[1/n, n, 1, 20];


            Assuming that you want different mesh styles for points on different lines (with default setting for the option MeshFunctions, that is, #&), you can



            1. Combine two separate plots using Show:



            Show[MapThread[ListLinePlot[#, Mesh -> All, PlotRange -> All,
            PlotStyle -> #2, MeshStyle -> #3]&, data, Red, Blue, Yellow, Green],
            PlotRange -> All]


            enter image description here



            1. Post-process the output of a single ListLinePlot to change the
              colors of points:



            llp = ListLinePlot[data, Mesh -> All,
            PlotStyle -> Red, Blue, MeshStyle -> Yellow, Green, PlotRange -> All];
            meshstyles = Reverse @ Yellow, Green;
            llp /. p_Point :> First[meshstyles = RotateRight[meshstyles]], p



            same picture




            1. Use a Dynamic mesh style:



            meshstyles = Reverse @ Yellow, Green;
            ListLinePlot[data, Mesh -> All, PlotStyle -> Red, Blue, PlotRange -> All,
            MeshStyle -> Dynamic[First[meshstyles = RotateRight[meshstyles]]]]



            same picture




            1. Use a function as the MeshStyle setting:



            meshstyles = Reverse @ Yellow, Green;
            ListLinePlot[data, Mesh ->All, PlotStyle -> Red, Blue,PlotRange -> All,
            MeshStyle -> (First[meshstyles = RotateRight[meshstyles]],
            PointSize[Large], #&)]



            same picture




            All the methods above work with arbitrary number of data rows:



            n = 10;
            meshstyles = Reverse [ ColorData[70] /@ Range[n]];
            plotstyles = ColorData[97] /@ Range[n];
            SeedRandom[1]
            data = MapThread[Plus, 5 + Range[n], (Accumulate /@ RandomReal[-1, 1, n, 15])];

            ListLinePlot[data, Mesh -> All, ImageSize -> Large, PlotRange -> All,
            PlotStyle -> plotstyles,
            MeshStyle -> (First[meshstyles = RotateRight[meshstyles]], PointSize[Large], # &),
            PlotLegends -> LineLegend[Automatic, Range[n], LegendMarkers ->
            (Graphics[#, PointSize[Large], Point[0, 0]] & /@ Reverse[meshstyles])]]


            enter image description here






            share|improve this answer











            $endgroup$












            • $begingroup$
              The styles rotation can be simplified by dropping Reverse@... and using Last[meshstyles = RotateLeft[meshstyles]], # &. Setting the PointSize is not necessary.
              $endgroup$
              – DLichti
              Jun 6 at 9:26










            • $begingroup$
              @DLichti, thank you; great point. Will update with an edit.
              $endgroup$
              – kglr
              Jun 6 at 9:32















            7












            $begingroup$

            SeedRandom[123]
            data = Table[1/n + RandomReal[-1, 1]/n, n, 1, 20], Table[1/n, n, 1, 20];


            Assuming that you want different mesh styles for points on different lines (with default setting for the option MeshFunctions, that is, #&), you can



            1. Combine two separate plots using Show:



            Show[MapThread[ListLinePlot[#, Mesh -> All, PlotRange -> All,
            PlotStyle -> #2, MeshStyle -> #3]&, data, Red, Blue, Yellow, Green],
            PlotRange -> All]


            enter image description here



            1. Post-process the output of a single ListLinePlot to change the
              colors of points:



            llp = ListLinePlot[data, Mesh -> All,
            PlotStyle -> Red, Blue, MeshStyle -> Yellow, Green, PlotRange -> All];
            meshstyles = Reverse @ Yellow, Green;
            llp /. p_Point :> First[meshstyles = RotateRight[meshstyles]], p



            same picture




            1. Use a Dynamic mesh style:



            meshstyles = Reverse @ Yellow, Green;
            ListLinePlot[data, Mesh -> All, PlotStyle -> Red, Blue, PlotRange -> All,
            MeshStyle -> Dynamic[First[meshstyles = RotateRight[meshstyles]]]]



            same picture




            1. Use a function as the MeshStyle setting:



            meshstyles = Reverse @ Yellow, Green;
            ListLinePlot[data, Mesh ->All, PlotStyle -> Red, Blue,PlotRange -> All,
            MeshStyle -> (First[meshstyles = RotateRight[meshstyles]],
            PointSize[Large], #&)]



            same picture




            All the methods above work with arbitrary number of data rows:



            n = 10;
            meshstyles = Reverse [ ColorData[70] /@ Range[n]];
            plotstyles = ColorData[97] /@ Range[n];
            SeedRandom[1]
            data = MapThread[Plus, 5 + Range[n], (Accumulate /@ RandomReal[-1, 1, n, 15])];

            ListLinePlot[data, Mesh -> All, ImageSize -> Large, PlotRange -> All,
            PlotStyle -> plotstyles,
            MeshStyle -> (First[meshstyles = RotateRight[meshstyles]], PointSize[Large], # &),
            PlotLegends -> LineLegend[Automatic, Range[n], LegendMarkers ->
            (Graphics[#, PointSize[Large], Point[0, 0]] & /@ Reverse[meshstyles])]]


            enter image description here






            share|improve this answer











            $endgroup$












            • $begingroup$
              The styles rotation can be simplified by dropping Reverse@... and using Last[meshstyles = RotateLeft[meshstyles]], # &. Setting the PointSize is not necessary.
              $endgroup$
              – DLichti
              Jun 6 at 9:26










            • $begingroup$
              @DLichti, thank you; great point. Will update with an edit.
              $endgroup$
              – kglr
              Jun 6 at 9:32













            7












            7








            7





            $begingroup$

            SeedRandom[123]
            data = Table[1/n + RandomReal[-1, 1]/n, n, 1, 20], Table[1/n, n, 1, 20];


            Assuming that you want different mesh styles for points on different lines (with default setting for the option MeshFunctions, that is, #&), you can



            1. Combine two separate plots using Show:



            Show[MapThread[ListLinePlot[#, Mesh -> All, PlotRange -> All,
            PlotStyle -> #2, MeshStyle -> #3]&, data, Red, Blue, Yellow, Green],
            PlotRange -> All]


            enter image description here



            1. Post-process the output of a single ListLinePlot to change the
              colors of points:



            llp = ListLinePlot[data, Mesh -> All,
            PlotStyle -> Red, Blue, MeshStyle -> Yellow, Green, PlotRange -> All];
            meshstyles = Reverse @ Yellow, Green;
            llp /. p_Point :> First[meshstyles = RotateRight[meshstyles]], p



            same picture




            1. Use a Dynamic mesh style:



            meshstyles = Reverse @ Yellow, Green;
            ListLinePlot[data, Mesh -> All, PlotStyle -> Red, Blue, PlotRange -> All,
            MeshStyle -> Dynamic[First[meshstyles = RotateRight[meshstyles]]]]



            same picture




            1. Use a function as the MeshStyle setting:



            meshstyles = Reverse @ Yellow, Green;
            ListLinePlot[data, Mesh ->All, PlotStyle -> Red, Blue,PlotRange -> All,
            MeshStyle -> (First[meshstyles = RotateRight[meshstyles]],
            PointSize[Large], #&)]



            same picture




            All the methods above work with arbitrary number of data rows:



            n = 10;
            meshstyles = Reverse [ ColorData[70] /@ Range[n]];
            plotstyles = ColorData[97] /@ Range[n];
            SeedRandom[1]
            data = MapThread[Plus, 5 + Range[n], (Accumulate /@ RandomReal[-1, 1, n, 15])];

            ListLinePlot[data, Mesh -> All, ImageSize -> Large, PlotRange -> All,
            PlotStyle -> plotstyles,
            MeshStyle -> (First[meshstyles = RotateRight[meshstyles]], PointSize[Large], # &),
            PlotLegends -> LineLegend[Automatic, Range[n], LegendMarkers ->
            (Graphics[#, PointSize[Large], Point[0, 0]] & /@ Reverse[meshstyles])]]


            enter image description here






            share|improve this answer











            $endgroup$



            SeedRandom[123]
            data = Table[1/n + RandomReal[-1, 1]/n, n, 1, 20], Table[1/n, n, 1, 20];


            Assuming that you want different mesh styles for points on different lines (with default setting for the option MeshFunctions, that is, #&), you can



            1. Combine two separate plots using Show:



            Show[MapThread[ListLinePlot[#, Mesh -> All, PlotRange -> All,
            PlotStyle -> #2, MeshStyle -> #3]&, data, Red, Blue, Yellow, Green],
            PlotRange -> All]


            enter image description here



            1. Post-process the output of a single ListLinePlot to change the
              colors of points:



            llp = ListLinePlot[data, Mesh -> All,
            PlotStyle -> Red, Blue, MeshStyle -> Yellow, Green, PlotRange -> All];
            meshstyles = Reverse @ Yellow, Green;
            llp /. p_Point :> First[meshstyles = RotateRight[meshstyles]], p



            same picture




            1. Use a Dynamic mesh style:



            meshstyles = Reverse @ Yellow, Green;
            ListLinePlot[data, Mesh -> All, PlotStyle -> Red, Blue, PlotRange -> All,
            MeshStyle -> Dynamic[First[meshstyles = RotateRight[meshstyles]]]]



            same picture




            1. Use a function as the MeshStyle setting:



            meshstyles = Reverse @ Yellow, Green;
            ListLinePlot[data, Mesh ->All, PlotStyle -> Red, Blue,PlotRange -> All,
            MeshStyle -> (First[meshstyles = RotateRight[meshstyles]],
            PointSize[Large], #&)]



            same picture




            All the methods above work with arbitrary number of data rows:



            n = 10;
            meshstyles = Reverse [ ColorData[70] /@ Range[n]];
            plotstyles = ColorData[97] /@ Range[n];
            SeedRandom[1]
            data = MapThread[Plus, 5 + Range[n], (Accumulate /@ RandomReal[-1, 1, n, 15])];

            ListLinePlot[data, Mesh -> All, ImageSize -> Large, PlotRange -> All,
            PlotStyle -> plotstyles,
            MeshStyle -> (First[meshstyles = RotateRight[meshstyles]], PointSize[Large], # &),
            PlotLegends -> LineLegend[Automatic, Range[n], LegendMarkers ->
            (Graphics[#, PointSize[Large], Point[0, 0]] & /@ Reverse[meshstyles])]]


            enter image description here







            share|improve this answer














            share|improve this answer



            share|improve this answer








            edited Jun 4 at 23:20

























            answered Jun 4 at 13:57









            kglrkglr

            199k10228454




            199k10228454











            • $begingroup$
              The styles rotation can be simplified by dropping Reverse@... and using Last[meshstyles = RotateLeft[meshstyles]], # &. Setting the PointSize is not necessary.
              $endgroup$
              – DLichti
              Jun 6 at 9:26










            • $begingroup$
              @DLichti, thank you; great point. Will update with an edit.
              $endgroup$
              – kglr
              Jun 6 at 9:32
















            • $begingroup$
              The styles rotation can be simplified by dropping Reverse@... and using Last[meshstyles = RotateLeft[meshstyles]], # &. Setting the PointSize is not necessary.
              $endgroup$
              – DLichti
              Jun 6 at 9:26










            • $begingroup$
              @DLichti, thank you; great point. Will update with an edit.
              $endgroup$
              – kglr
              Jun 6 at 9:32















            $begingroup$
            The styles rotation can be simplified by dropping Reverse@... and using Last[meshstyles = RotateLeft[meshstyles]], # &. Setting the PointSize is not necessary.
            $endgroup$
            – DLichti
            Jun 6 at 9:26




            $begingroup$
            The styles rotation can be simplified by dropping Reverse@... and using Last[meshstyles = RotateLeft[meshstyles]], # &. Setting the PointSize is not necessary.
            $endgroup$
            – DLichti
            Jun 6 at 9:26












            $begingroup$
            @DLichti, thank you; great point. Will update with an edit.
            $endgroup$
            – kglr
            Jun 6 at 9:32




            $begingroup$
            @DLichti, thank you; great point. Will update with an edit.
            $endgroup$
            – kglr
            Jun 6 at 9:32













            5












            $begingroup$

            The problem is that in order for MeshStyle to cycle through the list, you have to have more than one mesh, and this is determined by the number of MeshFunctions you have. By default, this is set to



            MeshFunctions -> #1&


            for ListLinePlot. If you add



            MeshFunctions -> #1 &, #2 &


            to your plot, Yellow will be used for the horizontal mesh, and Green for the vertical mesh, e.g.



            SeedRandom[15];
            ListLinePlot[Table[1/n + RandomReal[-1, 1]/n, n, 1, 20],
            Table[1/n, n, 1, 20], Mesh -> 5, 7,
            MeshFunctions -> #1 &, #2 &, PlotStyle -> Red, Blue,
            MeshStyle -> Yellow, Green]


            enter image description here






            share|improve this answer









            $endgroup$

















              5












              $begingroup$

              The problem is that in order for MeshStyle to cycle through the list, you have to have more than one mesh, and this is determined by the number of MeshFunctions you have. By default, this is set to



              MeshFunctions -> #1&


              for ListLinePlot. If you add



              MeshFunctions -> #1 &, #2 &


              to your plot, Yellow will be used for the horizontal mesh, and Green for the vertical mesh, e.g.



              SeedRandom[15];
              ListLinePlot[Table[1/n + RandomReal[-1, 1]/n, n, 1, 20],
              Table[1/n, n, 1, 20], Mesh -> 5, 7,
              MeshFunctions -> #1 &, #2 &, PlotStyle -> Red, Blue,
              MeshStyle -> Yellow, Green]


              enter image description here






              share|improve this answer









              $endgroup$















                5












                5








                5





                $begingroup$

                The problem is that in order for MeshStyle to cycle through the list, you have to have more than one mesh, and this is determined by the number of MeshFunctions you have. By default, this is set to



                MeshFunctions -> #1&


                for ListLinePlot. If you add



                MeshFunctions -> #1 &, #2 &


                to your plot, Yellow will be used for the horizontal mesh, and Green for the vertical mesh, e.g.



                SeedRandom[15];
                ListLinePlot[Table[1/n + RandomReal[-1, 1]/n, n, 1, 20],
                Table[1/n, n, 1, 20], Mesh -> 5, 7,
                MeshFunctions -> #1 &, #2 &, PlotStyle -> Red, Blue,
                MeshStyle -> Yellow, Green]


                enter image description here






                share|improve this answer









                $endgroup$



                The problem is that in order for MeshStyle to cycle through the list, you have to have more than one mesh, and this is determined by the number of MeshFunctions you have. By default, this is set to



                MeshFunctions -> #1&


                for ListLinePlot. If you add



                MeshFunctions -> #1 &, #2 &


                to your plot, Yellow will be used for the horizontal mesh, and Green for the vertical mesh, e.g.



                SeedRandom[15];
                ListLinePlot[Table[1/n + RandomReal[-1, 1]/n, n, 1, 20],
                Table[1/n, n, 1, 20], Mesh -> 5, 7,
                MeshFunctions -> #1 &, #2 &, PlotStyle -> Red, Blue,
                MeshStyle -> Yellow, Green]


                enter image description here







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Jun 4 at 13:56









                rcollyerrcollyer

                28.8k674167




                28.8k674167



























                    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%2f199710%2fcycle-through-meshstyle-directives-in-listlineplot%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

                    Club Baloncesto Breogán Índice Historia | Pavillón | Nome | O Breogán na cultura popular | Xogadores | Adestradores | Presidentes | Palmarés | Historial | Líderes | Notas | Véxase tamén | Menú de navegacióncbbreogan.galCadroGuía oficial da ACB 2009-10, páxina 201Guía oficial ACB 1992, páxina 183. Editorial DB.É de 6.500 espectadores sentados axeitándose á última normativa"Estudiantes Junior, entre as mellores canteiras"o orixinalHemeroteca El Mundo Deportivo, 16 setembro de 1970, páxina 12Historia do BreogánAlfredo Pérez, o último canoneiroHistoria C.B. BreogánHemeroteca de El Mundo DeportivoJimmy Wright, norteamericano do Breogán deixará Lugo por ameazas de morteResultados de Breogán en 1986-87Resultados de Breogán en 1990-91Ficha de Velimir Perasović en acb.comResultados de Breogán en 1994-95Breogán arrasa al Barça. "El Mundo Deportivo", 27 de setembro de 1999, páxina 58CB Breogán - FC BarcelonaA FEB invita a participar nunha nova Liga EuropeaCharlie Bell na prensa estatalMáximos anotadores 2005Tempada 2005-06 : Tódolos Xogadores da Xornada""Non quero pensar nunha man negra, mais pregúntome que está a pasar""o orixinalRaúl López, orgulloso dos xogadores, presume da boa saúde económica do BreogánJulio González confirma que cesa como presidente del BreogánHomenaxe a Lisardo GómezA tempada do rexurdimento celesteEntrevista a Lisardo GómezEl COB dinamita el Pazo para forzar el quinto (69-73)Cafés Candelas, patrocinador del CB Breogán"Suso Lázare, novo presidente do Breogán"o orixinalCafés Candelas Breogán firma el mayor triunfo de la historiaEl Breogán realizará 17 homenajes por su cincuenta aniversario"O Breogán honra ao seu fundador e primeiro presidente"o orixinalMiguel Giao recibiu a homenaxe do PazoHomenaxe aos primeiros gladiadores celestesO home que nos amosa como ver o Breo co corazónTita Franco será homenaxeada polos #50anosdeBreoJulio Vila recibirá unha homenaxe in memoriam polos #50anosdeBreo"O Breogán homenaxeará aos seus aboados máis veteráns"Pechada ovación a «Capi» Sanmartín e Ricardo «Corazón de González»Homenaxe por décadas de informaciónPaco García volve ao Pazo con motivo do 50 aniversario"Resultados y clasificaciones""O Cafés Candelas Breogán, campión da Copa Princesa""O Cafés Candelas Breogán, equipo ACB"C.B. Breogán"Proxecto social"o orixinal"Centros asociados"o orixinalFicha en imdb.comMario Camus trata la recuperación del amor en 'La vieja música', su última película"Páxina web oficial""Club Baloncesto Breogán""C. B. Breogán S.A.D."eehttp://www.fegaba.com

                    Vilaño, A Laracha Índice Patrimonio | Lugares e parroquias | Véxase tamén | Menú de navegación43°14′52″N 8°36′03″O / 43.24775, -8.60070

                    Cegueira Índice Epidemioloxía | Deficiencia visual | Tipos de cegueira | Principais causas de cegueira | Tratamento | Técnicas de adaptación e axudas | Vida dos cegos | Primeiros auxilios | Crenzas respecto das persoas cegas | Crenzas das persoas cegas | O neno deficiente visual | Aspectos psicolóxicos da cegueira | Notas | Véxase tamén | Menú de navegación54.054.154.436928256blindnessDicionario da Real Academia GalegaPortal das Palabras"International Standards: Visual Standards — Aspects and Ranges of Vision Loss with Emphasis on Population Surveys.""Visual impairment and blindness""Presentan un plan para previr a cegueira"o orixinalACCDV Associació Catalana de Cecs i Disminuïts Visuals - PMFTrachoma"Effect of gene therapy on visual function in Leber's congenital amaurosis"1844137110.1056/NEJMoa0802268Cans guía - os mellores amigos dos cegosArquivadoEscola de cans guía para cegos en Mortágua, PortugalArquivado"Tecnología para ciegos y deficientes visuales. Recopilación de recursos gratuitos en la Red""Colorino""‘COL.diesis’, escuchar los sonidos del color""COL.diesis: Transforming Colour into Melody and Implementing the Result in a Colour Sensor Device"o orixinal"Sistema de desarrollo de sinestesia color-sonido para invidentes utilizando un protocolo de audio""Enseñanza táctil - geometría y color. Juegos didácticos para niños ciegos y videntes""Sistema Constanz"L'ocupació laboral dels cecs a l'Estat espanyol està pràcticament equiparada a la de les persones amb visió, entrevista amb Pedro ZuritaONCE (Organización Nacional de Cegos de España)Prevención da cegueiraDescrición de deficiencias visuais (Disc@pnet)Braillín, un boneco atractivo para calquera neno, con ou sen discapacidade, que permite familiarizarse co sistema de escritura e lectura brailleAxudas Técnicas36838ID00897494007150-90057129528256DOID:1432HP:0000618D001766C10.597.751.941.162C97109C0155020