How to remove lines through the legend markers in ListPlot?ErrorListPlot Legend with MarkersHow to keep...

Injecting creativity into a cookbook

Which one of these password policies is more secure?

How should I handle players who ignore the session zero agreement?

Is that a center tap tranformer just labelled differently?

Table formatting top left corner caption

Why has the mole been redefined for 2019?

Using only 1s, make 29 with the minimum number of digits

How to limit sight distance to 1 km

Pronunciation of umlaut vowels in the history of German

Why do neural networks need so many training examples to perform?

Intern applicant asking for compensation equivalent to that of permanent employee

Finding a mistake using Mayer-Vietoris

Why zero tolerance on nudity in space?

How do Chazal know that the descendants of a Mamzer may never marry into the general populace?

Why would space fleets be aligned?

Strange Sign on Lab Door

Does SQL Server 2017, including older versions, support 8k disk sector sizes?

Am I a Rude Number?

Avoiding morning and evening handshakes

Caruana vs Carlsen game 10 (WCC) why not 18...Nxb6?

One Half of Ten; A Riddle

Difference between `vector<int> v;` and `vector<int> v = vector<int>();`

Find some digits of factorial 17

Incorporating research and background: How much is too much?



How to remove lines through the legend markers in ListPlot?


ErrorListPlot Legend with MarkersHow to keep markers as dots in a joined ListPlot?Legends in a combined Plot and ListPlotPlotLegends in ListPlot does not display different markersWhen using ListPlot, if Joined->True and PlotMarkers -> {Automatic} then if PlotRange is smaller than the range of data, then I get mismatched markersHow to put a PlotLegends in this case?How to improve a color in a legend to customly-made markers?Unwanted frame around markers in legendLabels on 2D ListPlot MarkersLegend with matching lines













2












$begingroup$


I am drawing a plot with some legends. It seems the legend markers will always have lines through them since I have to use Joined->True for this plot. The legend markers also seem to be always larger than those in the plot. My question is, is it possible to get rid of those lines through the legend markers and also make the legend markers smaller? Besides, is there a way to remove the grey outlines around the legend markers?



enter image description here



The code I used for this plot is



ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, Joined -> True, 
PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
AbsoluteThickness[1]}},
PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
0.04}}, InterpolationOrder -> 1,
Frame -> {{True, False}, {True, False}},
PlotLegends ->
Placed[PointLegend[
Automatic, {Style["Series 1", FontFamily -> "Times New Roman",
FontSize -> 9, ScriptMinSize -> 6],
Style["Series 2", FontFamily -> "Times New Roman", FontSize -> 9,
ScriptMinSize -> 6]}], {0.3, 0.8}], ImageSize -> 240]









share|improve this question











$endgroup$

















    2












    $begingroup$


    I am drawing a plot with some legends. It seems the legend markers will always have lines through them since I have to use Joined->True for this plot. The legend markers also seem to be always larger than those in the plot. My question is, is it possible to get rid of those lines through the legend markers and also make the legend markers smaller? Besides, is there a way to remove the grey outlines around the legend markers?



    enter image description here



    The code I used for this plot is



    ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, Joined -> True, 
    PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
    AbsoluteThickness[1]}},
    PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
    0.04}}, InterpolationOrder -> 1,
    Frame -> {{True, False}, {True, False}},
    PlotLegends ->
    Placed[PointLegend[
    Automatic, {Style["Series 1", FontFamily -> "Times New Roman",
    FontSize -> 9, ScriptMinSize -> 6],
    Style["Series 2", FontFamily -> "Times New Roman", FontSize -> 9,
    ScriptMinSize -> 6]}], {0.3, 0.8}], ImageSize -> 240]









    share|improve this question











    $endgroup$















      2












      2








      2





      $begingroup$


      I am drawing a plot with some legends. It seems the legend markers will always have lines through them since I have to use Joined->True for this plot. The legend markers also seem to be always larger than those in the plot. My question is, is it possible to get rid of those lines through the legend markers and also make the legend markers smaller? Besides, is there a way to remove the grey outlines around the legend markers?



      enter image description here



      The code I used for this plot is



      ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, Joined -> True, 
      PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
      AbsoluteThickness[1]}},
      PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
      0.04}}, InterpolationOrder -> 1,
      Frame -> {{True, False}, {True, False}},
      PlotLegends ->
      Placed[PointLegend[
      Automatic, {Style["Series 1", FontFamily -> "Times New Roman",
      FontSize -> 9, ScriptMinSize -> 6],
      Style["Series 2", FontFamily -> "Times New Roman", FontSize -> 9,
      ScriptMinSize -> 6]}], {0.3, 0.8}], ImageSize -> 240]









      share|improve this question











      $endgroup$




      I am drawing a plot with some legends. It seems the legend markers will always have lines through them since I have to use Joined->True for this plot. The legend markers also seem to be always larger than those in the plot. My question is, is it possible to get rid of those lines through the legend markers and also make the legend markers smaller? Besides, is there a way to remove the grey outlines around the legend markers?



      enter image description here



      The code I used for this plot is



      ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, Joined -> True, 
      PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
      AbsoluteThickness[1]}},
      PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
      0.04}}, InterpolationOrder -> 1,
      Frame -> {{True, False}, {True, False}},
      PlotLegends ->
      Placed[PointLegend[
      Automatic, {Style["Series 1", FontFamily -> "Times New Roman",
      FontSize -> 9, ScriptMinSize -> 6],
      Style["Series 2", FontFamily -> "Times New Roman", FontSize -> 9,
      ScriptMinSize -> 6]}], {0.3, 0.8}], ImageSize -> 240]






      plotting legending marker






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 4 hours ago









      corey979

      20.8k64282




      20.8k64282










      asked 5 hours ago









      nanjunnanjun

      32619




      32619






















          4 Answers
          4






          active

          oldest

          votes


















          1












          $begingroup$

          This is just an answer for your last question. You can get rid of the border of your markers in the legend by specifying EdgeForm[None], e.g.:



          ListPlot[
          {{1,2,3,4,5}, (1/2) {1,2,3,4,5}},
          Joined->True,
          PlotStyle->{
          {Blue,Dashed,AbsoluteThickness[1]},
          {Red,Dashed,AbsoluteThickness[1]}
          },
          PlotMarkers->{
          {Graphics@{EdgeForm[None],Disk[]},0.04},
          {Graphics@{EdgeForm[None],Rectangle[]},0.04}
          },
          InterpolationOrder->1,
          Frame->{{True,False},{True,False}},
          PlotLegends->Placed[
          PointLegend[
          Automatic,
          {
          Style["Series 1",FontFamily->"Times New Roman",FontSize->9,ScriptMinSize->6],
          Style["Series 2",FontFamily->"Times New Roman",FontSize->9,ScriptMinSize->6]
          }
          ],
          {0.3,0.8}
          ],
          ImageSize->240
          ]


          enter image description here






          share|improve this answer









          $endgroup$





















            1












            $begingroup$

            Here is a work around.



            Show[ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, 
            PlotStyle -> {Blue, Red},
            PlotMarkers -> {{Graphics@{EdgeForm[None], Disk[]},
            0.04}, {Graphics@{EdgeForm[None], Rectangle[]}, 0.04}},
            Frame -> {{True, False}, {True, False}},
            PlotLegends ->
            Placed[
            PointLegend[
            Automatic, {Style["Series 1", FontFamily -> "Times New Roman",
            FontSize -> 9, ScriptMinSize -> 6],
            Style["Series 2", FontFamily -> "Times New Roman",
            FontSize -> 9, ScriptMinSize -> 6]}], {0.3, 0.8}],
            ImageSize -> 240],
            ListLinePlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}},
            PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
            AbsoluteThickness[1]}}]]


            enter image description here






            share|improve this answer









            $endgroup$





















              1












              $begingroup$

              Just add the options Joined -> False and BaseStyle -> EdgeForm[] to PointLegend in your code to get



              enter image description here



              If you don't like the red syntax highlighting of BaseStyle -> EdgeForm[] you can use Method -> { BaseStyle -> EdgeForm[]}.






              share|improve this answer









              $endgroup$





















                0












                $begingroup$

                Define a standalone legend:



                legend = PointLegend[{Red, Blue},
                {Style["Series 1", FontFamily -> "Times New Roman", FontSize -> 9, ScriptMinSize -> 6],
                Style["Series 2", FontFamily -> "Times New Roman", FontSize -> 9, ScriptMinSize -> 6]},
                LegendMarkers -> {{Graphics@{EdgeForm[None], Disk[]}, 0.04},
                {Graphics@{EdgeForm[None], Rectangle[]}, 0.04}}]


                enter image description here



                Unfortunately, adding PlotLegends -> Placed[legend, {0.3, 0.8}] doesn't work:



                plot2 = ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, 
                Joined -> True,
                PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                AbsoluteThickness[1]}},
                PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
                0.04}}, InterpolationOrder -> 1,
                Frame -> {{True, False}, {True, False}},
                PlotLegends -> Placed[legend, {0.3, 0.8}], ImageSize -> 240]


                enter image description here



                However, Legended is a workaround:



                plot3 = Legended[
                ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, Joined -> True,
                PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                AbsoluteThickness[1]}},
                PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
                0.04}}, InterpolationOrder -> 1,
                Frame -> {{True, False}, {True, False}}, ImageSize -> 240],
                Placed[legend, {0.3, 0.8}]]


                enter image description here






                share|improve this answer









                $endgroup$













                  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',
                  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%2f192392%2fhow-to-remove-lines-through-the-legend-markers-in-listplot%23new-answer', 'question_page');
                  }
                  );

                  Post as a guest















                  Required, but never shown

























                  4 Answers
                  4






                  active

                  oldest

                  votes








                  4 Answers
                  4






                  active

                  oldest

                  votes









                  active

                  oldest

                  votes






                  active

                  oldest

                  votes









                  1












                  $begingroup$

                  This is just an answer for your last question. You can get rid of the border of your markers in the legend by specifying EdgeForm[None], e.g.:



                  ListPlot[
                  {{1,2,3,4,5}, (1/2) {1,2,3,4,5}},
                  Joined->True,
                  PlotStyle->{
                  {Blue,Dashed,AbsoluteThickness[1]},
                  {Red,Dashed,AbsoluteThickness[1]}
                  },
                  PlotMarkers->{
                  {Graphics@{EdgeForm[None],Disk[]},0.04},
                  {Graphics@{EdgeForm[None],Rectangle[]},0.04}
                  },
                  InterpolationOrder->1,
                  Frame->{{True,False},{True,False}},
                  PlotLegends->Placed[
                  PointLegend[
                  Automatic,
                  {
                  Style["Series 1",FontFamily->"Times New Roman",FontSize->9,ScriptMinSize->6],
                  Style["Series 2",FontFamily->"Times New Roman",FontSize->9,ScriptMinSize->6]
                  }
                  ],
                  {0.3,0.8}
                  ],
                  ImageSize->240
                  ]


                  enter image description here






                  share|improve this answer









                  $endgroup$


















                    1












                    $begingroup$

                    This is just an answer for your last question. You can get rid of the border of your markers in the legend by specifying EdgeForm[None], e.g.:



                    ListPlot[
                    {{1,2,3,4,5}, (1/2) {1,2,3,4,5}},
                    Joined->True,
                    PlotStyle->{
                    {Blue,Dashed,AbsoluteThickness[1]},
                    {Red,Dashed,AbsoluteThickness[1]}
                    },
                    PlotMarkers->{
                    {Graphics@{EdgeForm[None],Disk[]},0.04},
                    {Graphics@{EdgeForm[None],Rectangle[]},0.04}
                    },
                    InterpolationOrder->1,
                    Frame->{{True,False},{True,False}},
                    PlotLegends->Placed[
                    PointLegend[
                    Automatic,
                    {
                    Style["Series 1",FontFamily->"Times New Roman",FontSize->9,ScriptMinSize->6],
                    Style["Series 2",FontFamily->"Times New Roman",FontSize->9,ScriptMinSize->6]
                    }
                    ],
                    {0.3,0.8}
                    ],
                    ImageSize->240
                    ]


                    enter image description here






                    share|improve this answer









                    $endgroup$
















                      1












                      1








                      1





                      $begingroup$

                      This is just an answer for your last question. You can get rid of the border of your markers in the legend by specifying EdgeForm[None], e.g.:



                      ListPlot[
                      {{1,2,3,4,5}, (1/2) {1,2,3,4,5}},
                      Joined->True,
                      PlotStyle->{
                      {Blue,Dashed,AbsoluteThickness[1]},
                      {Red,Dashed,AbsoluteThickness[1]}
                      },
                      PlotMarkers->{
                      {Graphics@{EdgeForm[None],Disk[]},0.04},
                      {Graphics@{EdgeForm[None],Rectangle[]},0.04}
                      },
                      InterpolationOrder->1,
                      Frame->{{True,False},{True,False}},
                      PlotLegends->Placed[
                      PointLegend[
                      Automatic,
                      {
                      Style["Series 1",FontFamily->"Times New Roman",FontSize->9,ScriptMinSize->6],
                      Style["Series 2",FontFamily->"Times New Roman",FontSize->9,ScriptMinSize->6]
                      }
                      ],
                      {0.3,0.8}
                      ],
                      ImageSize->240
                      ]


                      enter image description here






                      share|improve this answer









                      $endgroup$



                      This is just an answer for your last question. You can get rid of the border of your markers in the legend by specifying EdgeForm[None], e.g.:



                      ListPlot[
                      {{1,2,3,4,5}, (1/2) {1,2,3,4,5}},
                      Joined->True,
                      PlotStyle->{
                      {Blue,Dashed,AbsoluteThickness[1]},
                      {Red,Dashed,AbsoluteThickness[1]}
                      },
                      PlotMarkers->{
                      {Graphics@{EdgeForm[None],Disk[]},0.04},
                      {Graphics@{EdgeForm[None],Rectangle[]},0.04}
                      },
                      InterpolationOrder->1,
                      Frame->{{True,False},{True,False}},
                      PlotLegends->Placed[
                      PointLegend[
                      Automatic,
                      {
                      Style["Series 1",FontFamily->"Times New Roman",FontSize->9,ScriptMinSize->6],
                      Style["Series 2",FontFamily->"Times New Roman",FontSize->9,ScriptMinSize->6]
                      }
                      ],
                      {0.3,0.8}
                      ],
                      ImageSize->240
                      ]


                      enter image description here







                      share|improve this answer












                      share|improve this answer



                      share|improve this answer










                      answered 5 hours ago









                      Carl WollCarl Woll

                      68.7k390176




                      68.7k390176























                          1












                          $begingroup$

                          Here is a work around.



                          Show[ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, 
                          PlotStyle -> {Blue, Red},
                          PlotMarkers -> {{Graphics@{EdgeForm[None], Disk[]},
                          0.04}, {Graphics@{EdgeForm[None], Rectangle[]}, 0.04}},
                          Frame -> {{True, False}, {True, False}},
                          PlotLegends ->
                          Placed[
                          PointLegend[
                          Automatic, {Style["Series 1", FontFamily -> "Times New Roman",
                          FontSize -> 9, ScriptMinSize -> 6],
                          Style["Series 2", FontFamily -> "Times New Roman",
                          FontSize -> 9, ScriptMinSize -> 6]}], {0.3, 0.8}],
                          ImageSize -> 240],
                          ListLinePlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}},
                          PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                          AbsoluteThickness[1]}}]]


                          enter image description here






                          share|improve this answer









                          $endgroup$


















                            1












                            $begingroup$

                            Here is a work around.



                            Show[ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, 
                            PlotStyle -> {Blue, Red},
                            PlotMarkers -> {{Graphics@{EdgeForm[None], Disk[]},
                            0.04}, {Graphics@{EdgeForm[None], Rectangle[]}, 0.04}},
                            Frame -> {{True, False}, {True, False}},
                            PlotLegends ->
                            Placed[
                            PointLegend[
                            Automatic, {Style["Series 1", FontFamily -> "Times New Roman",
                            FontSize -> 9, ScriptMinSize -> 6],
                            Style["Series 2", FontFamily -> "Times New Roman",
                            FontSize -> 9, ScriptMinSize -> 6]}], {0.3, 0.8}],
                            ImageSize -> 240],
                            ListLinePlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}},
                            PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                            AbsoluteThickness[1]}}]]


                            enter image description here






                            share|improve this answer









                            $endgroup$
















                              1












                              1








                              1





                              $begingroup$

                              Here is a work around.



                              Show[ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, 
                              PlotStyle -> {Blue, Red},
                              PlotMarkers -> {{Graphics@{EdgeForm[None], Disk[]},
                              0.04}, {Graphics@{EdgeForm[None], Rectangle[]}, 0.04}},
                              Frame -> {{True, False}, {True, False}},
                              PlotLegends ->
                              Placed[
                              PointLegend[
                              Automatic, {Style["Series 1", FontFamily -> "Times New Roman",
                              FontSize -> 9, ScriptMinSize -> 6],
                              Style["Series 2", FontFamily -> "Times New Roman",
                              FontSize -> 9, ScriptMinSize -> 6]}], {0.3, 0.8}],
                              ImageSize -> 240],
                              ListLinePlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}},
                              PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                              AbsoluteThickness[1]}}]]


                              enter image description here






                              share|improve this answer









                              $endgroup$



                              Here is a work around.



                              Show[ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, 
                              PlotStyle -> {Blue, Red},
                              PlotMarkers -> {{Graphics@{EdgeForm[None], Disk[]},
                              0.04}, {Graphics@{EdgeForm[None], Rectangle[]}, 0.04}},
                              Frame -> {{True, False}, {True, False}},
                              PlotLegends ->
                              Placed[
                              PointLegend[
                              Automatic, {Style["Series 1", FontFamily -> "Times New Roman",
                              FontSize -> 9, ScriptMinSize -> 6],
                              Style["Series 2", FontFamily -> "Times New Roman",
                              FontSize -> 9, ScriptMinSize -> 6]}], {0.3, 0.8}],
                              ImageSize -> 240],
                              ListLinePlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}},
                              PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                              AbsoluteThickness[1]}}]]


                              enter image description here







                              share|improve this answer












                              share|improve this answer



                              share|improve this answer










                              answered 4 hours ago









                              Okkes DulgerciOkkes Dulgerci

                              5,0391917




                              5,0391917























                                  1












                                  $begingroup$

                                  Just add the options Joined -> False and BaseStyle -> EdgeForm[] to PointLegend in your code to get



                                  enter image description here



                                  If you don't like the red syntax highlighting of BaseStyle -> EdgeForm[] you can use Method -> { BaseStyle -> EdgeForm[]}.






                                  share|improve this answer









                                  $endgroup$


















                                    1












                                    $begingroup$

                                    Just add the options Joined -> False and BaseStyle -> EdgeForm[] to PointLegend in your code to get



                                    enter image description here



                                    If you don't like the red syntax highlighting of BaseStyle -> EdgeForm[] you can use Method -> { BaseStyle -> EdgeForm[]}.






                                    share|improve this answer









                                    $endgroup$
















                                      1












                                      1








                                      1





                                      $begingroup$

                                      Just add the options Joined -> False and BaseStyle -> EdgeForm[] to PointLegend in your code to get



                                      enter image description here



                                      If you don't like the red syntax highlighting of BaseStyle -> EdgeForm[] you can use Method -> { BaseStyle -> EdgeForm[]}.






                                      share|improve this answer









                                      $endgroup$



                                      Just add the options Joined -> False and BaseStyle -> EdgeForm[] to PointLegend in your code to get



                                      enter image description here



                                      If you don't like the red syntax highlighting of BaseStyle -> EdgeForm[] you can use Method -> { BaseStyle -> EdgeForm[]}.







                                      share|improve this answer












                                      share|improve this answer



                                      share|improve this answer










                                      answered 4 hours ago









                                      kglrkglr

                                      186k10203422




                                      186k10203422























                                          0












                                          $begingroup$

                                          Define a standalone legend:



                                          legend = PointLegend[{Red, Blue},
                                          {Style["Series 1", FontFamily -> "Times New Roman", FontSize -> 9, ScriptMinSize -> 6],
                                          Style["Series 2", FontFamily -> "Times New Roman", FontSize -> 9, ScriptMinSize -> 6]},
                                          LegendMarkers -> {{Graphics@{EdgeForm[None], Disk[]}, 0.04},
                                          {Graphics@{EdgeForm[None], Rectangle[]}, 0.04}}]


                                          enter image description here



                                          Unfortunately, adding PlotLegends -> Placed[legend, {0.3, 0.8}] doesn't work:



                                          plot2 = ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, 
                                          Joined -> True,
                                          PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                                          AbsoluteThickness[1]}},
                                          PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
                                          0.04}}, InterpolationOrder -> 1,
                                          Frame -> {{True, False}, {True, False}},
                                          PlotLegends -> Placed[legend, {0.3, 0.8}], ImageSize -> 240]


                                          enter image description here



                                          However, Legended is a workaround:



                                          plot3 = Legended[
                                          ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, Joined -> True,
                                          PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                                          AbsoluteThickness[1]}},
                                          PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
                                          0.04}}, InterpolationOrder -> 1,
                                          Frame -> {{True, False}, {True, False}}, ImageSize -> 240],
                                          Placed[legend, {0.3, 0.8}]]


                                          enter image description here






                                          share|improve this answer









                                          $endgroup$


















                                            0












                                            $begingroup$

                                            Define a standalone legend:



                                            legend = PointLegend[{Red, Blue},
                                            {Style["Series 1", FontFamily -> "Times New Roman", FontSize -> 9, ScriptMinSize -> 6],
                                            Style["Series 2", FontFamily -> "Times New Roman", FontSize -> 9, ScriptMinSize -> 6]},
                                            LegendMarkers -> {{Graphics@{EdgeForm[None], Disk[]}, 0.04},
                                            {Graphics@{EdgeForm[None], Rectangle[]}, 0.04}}]


                                            enter image description here



                                            Unfortunately, adding PlotLegends -> Placed[legend, {0.3, 0.8}] doesn't work:



                                            plot2 = ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, 
                                            Joined -> True,
                                            PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                                            AbsoluteThickness[1]}},
                                            PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
                                            0.04}}, InterpolationOrder -> 1,
                                            Frame -> {{True, False}, {True, False}},
                                            PlotLegends -> Placed[legend, {0.3, 0.8}], ImageSize -> 240]


                                            enter image description here



                                            However, Legended is a workaround:



                                            plot3 = Legended[
                                            ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, Joined -> True,
                                            PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                                            AbsoluteThickness[1]}},
                                            PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
                                            0.04}}, InterpolationOrder -> 1,
                                            Frame -> {{True, False}, {True, False}}, ImageSize -> 240],
                                            Placed[legend, {0.3, 0.8}]]


                                            enter image description here






                                            share|improve this answer









                                            $endgroup$
















                                              0












                                              0








                                              0





                                              $begingroup$

                                              Define a standalone legend:



                                              legend = PointLegend[{Red, Blue},
                                              {Style["Series 1", FontFamily -> "Times New Roman", FontSize -> 9, ScriptMinSize -> 6],
                                              Style["Series 2", FontFamily -> "Times New Roman", FontSize -> 9, ScriptMinSize -> 6]},
                                              LegendMarkers -> {{Graphics@{EdgeForm[None], Disk[]}, 0.04},
                                              {Graphics@{EdgeForm[None], Rectangle[]}, 0.04}}]


                                              enter image description here



                                              Unfortunately, adding PlotLegends -> Placed[legend, {0.3, 0.8}] doesn't work:



                                              plot2 = ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, 
                                              Joined -> True,
                                              PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                                              AbsoluteThickness[1]}},
                                              PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
                                              0.04}}, InterpolationOrder -> 1,
                                              Frame -> {{True, False}, {True, False}},
                                              PlotLegends -> Placed[legend, {0.3, 0.8}], ImageSize -> 240]


                                              enter image description here



                                              However, Legended is a workaround:



                                              plot3 = Legended[
                                              ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, Joined -> True,
                                              PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                                              AbsoluteThickness[1]}},
                                              PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
                                              0.04}}, InterpolationOrder -> 1,
                                              Frame -> {{True, False}, {True, False}}, ImageSize -> 240],
                                              Placed[legend, {0.3, 0.8}]]


                                              enter image description here






                                              share|improve this answer









                                              $endgroup$



                                              Define a standalone legend:



                                              legend = PointLegend[{Red, Blue},
                                              {Style["Series 1", FontFamily -> "Times New Roman", FontSize -> 9, ScriptMinSize -> 6],
                                              Style["Series 2", FontFamily -> "Times New Roman", FontSize -> 9, ScriptMinSize -> 6]},
                                              LegendMarkers -> {{Graphics@{EdgeForm[None], Disk[]}, 0.04},
                                              {Graphics@{EdgeForm[None], Rectangle[]}, 0.04}}]


                                              enter image description here



                                              Unfortunately, adding PlotLegends -> Placed[legend, {0.3, 0.8}] doesn't work:



                                              plot2 = ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, 
                                              Joined -> True,
                                              PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                                              AbsoluteThickness[1]}},
                                              PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
                                              0.04}}, InterpolationOrder -> 1,
                                              Frame -> {{True, False}, {True, False}},
                                              PlotLegends -> Placed[legend, {0.3, 0.8}], ImageSize -> 240]


                                              enter image description here



                                              However, Legended is a workaround:



                                              plot3 = Legended[
                                              ListPlot[{{1, 2, 3, 4, 5}, (1/2) {1, 2, 3, 4, 5}}, Joined -> True,
                                              PlotStyle -> {{Blue, Dashed, AbsoluteThickness[1]}, {Red, Dashed,
                                              AbsoluteThickness[1]}},
                                              PlotMarkers -> {{Graphics@{Disk[]}, 0.04}, {Graphics@{Rectangle[]},
                                              0.04}}, InterpolationOrder -> 1,
                                              Frame -> {{True, False}, {True, False}}, ImageSize -> 240],
                                              Placed[legend, {0.3, 0.8}]]


                                              enter image description here







                                              share|improve this answer












                                              share|improve this answer



                                              share|improve this answer










                                              answered 4 hours ago









                                              corey979corey979

                                              20.8k64282




                                              20.8k64282






























                                                  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%2f192392%2fhow-to-remove-lines-through-the-legend-markers-in-listplot%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

                                                  VNC viewer RFB protocol error: bad desktop size 0x0I Cannot Type the Key 'd' (lowercase) in VNC Viewer...

                                                  Couldn't open a raw socket. Error: Permission denied (13) (nmap)Is it possible to run networking commands...

                                                  Why not use the yoke to control yaw, as well as pitch and roll? Announcing the arrival of...