Message Boards

WOLFRAM COMMUNITY

4022 Views

3 Replies

2 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Graphics and Visualization Wolfram Language

Set ListLogPlot labels?

David G. Aragonés

David G. Aragonés, University of Castilla-La Mancha

Posted 5 years ago

I've made a graph using Mathematica. Here is an example of the code: ListLogPlot[{2.7181\[CenterDot]10^7, 2.65025\[CenterDot]10^7, 2.16187\[CenterDot]10^7, 1.75271\[CenterDot]10^7, 1.38775\[CenterDot]10^7, 4.5853\[CenterDot]10^6, 4.1939\[CenterDot]10^6, 3.19263\[CenterDot]10^6, 2.85248\[CenterDot]10^6, 2.60797\[CenterDot]10^6, 2.38964\[CenterDot]10^6, 2.10467\[CenterDot]10^6, 2.01396\[CenterDot]10^6, 1.95501\[CenterDot]10^6, 1.89437\[CenterDot]10^6, 1.83573\[CenterDot]10^6, 1.80379\[CenterDot]10^6, 1.72423\[CenterDot]10^6}-> Table[iter, {iter, 1, 18}], Mesh -> All, Joined -> True, PlotTheme -> "Detailed", InterpolationOrder -> 1, MeshStyle -> Directive[PointSize[Large], Darker[Blue]], PlotRange -> {{0.5, 18.5}, {110^\!\(TraditionalForm\`6\), 510^\!\(TraditionalForm\`7\)}}, FrameLabel -> {"Iteration number", "\[CapitalPhi](d) (euros)"}, Filling -> Bottom, PlotStyle -> "Aquamarine"] However, the last point hasn't been labeled with "18". Does anyone know how can I fix this? Thank you in advance for any help!

I've made a graph using Mathematica. Here is an example of the code:

ListLogPlot[{2.7181\[CenterDot]10^7, 2.65025\[CenterDot]10^7, 
 2.16187\[CenterDot]10^7, 1.75271\[CenterDot]10^7, 
 1.38775\[CenterDot]10^7, 4.5853\[CenterDot]10^6, 
 4.1939\[CenterDot]10^6, 3.19263\[CenterDot]10^6, 
 2.85248\[CenterDot]10^6, 2.60797\[CenterDot]10^6, 
 2.38964\[CenterDot]10^6, 2.10467\[CenterDot]10^6, 
 2.01396\[CenterDot]10^6, 1.95501\[CenterDot]10^6, 
 1.89437\[CenterDot]10^6, 1.83573\[CenterDot]10^6, 
 1.80379\[CenterDot]10^6, 1.72423\[CenterDot]10^6}-> Table[iter, {iter, 1, 18}], Mesh -> All,
  Joined -> True, PlotTheme -> "Detailed", InterpolationOrder -> 1, 
 MeshStyle -> Directive[PointSize[Large], Darker[Blue]], 
 PlotRange -> {{0.5, 18.5}, {1*10^\!\(TraditionalForm\`6\), 
    5*10^\!\(TraditionalForm\`7\)}}, 
 FrameLabel -> {"Iteration number", "\[CapitalPhi](d) (euros)"}, 
 Filling -> Bottom, PlotStyle -> "Aquamarine"]

ListLogPlot

However, the last point hasn't been labeled with "18". Does anyone know how can I fix this?

Thank you in advance for any help!

POSTED BY: David G. Aragonés

3 Replies

Sort By:

David G. Aragonés

David G. Aragonés, University of Castilla-La Mancha

Posted 5 years ago

Thank you both Claudio and Rohit for your help! I will try your solutions

POSTED BY: David G. Aragonés

Rohit Namjoshi

Posted 5 years ago

David, If you want more control over the appearance try Callout. data = {2.718110^7, 2.6502510^7, 2.1618710^7, 1.7527110^7, 1.3877510^7, 4.585310^6, 4.193910^6, 3.1926310^6, 2.8524810^6, 2.6079710^6, 2.3896410^6, 2.1046710^6, 2.0139610^6, 1.9550110^6, 1.8943710^6, 1.8357310^6, 1.8037910^6, 1.7242310^6} ListLogPlot[ Table[Callout[data[[i]], i, Appearance -> "CurvedLeader", Background -> Yellow, CalloutStyle -> Red, LabelStyle -> {10, Bold}], {i, 1, 18}], MeshStyle -> Directive[PointSize[Large], Darker[Blue]], Mesh -> All, Joined -> True, PlotRange -> {{0.5, 18.5}, {10^6, 5*10^7}}, PlotTheme -> "Detailed", FrameLabel -> {"Iteration number", "\[CapitalPhi](d) (euros)"} , Filling -> Bottom, PlotStyle -> "Aquamarine", ImageSize -> Large]

David,

If you want more control over the appearance try Callout.

data = {2.7181*10^7, 2.65025*10^7, 2.16187*10^7, 1.75271*10^7, 
  1.38775*10^7, 4.5853*10^6, 4.1939*10^6, 3.19263*10^6, 2.85248*10^6, 
  2.60797*10^6, 2.38964*10^6, 2.10467*10^6, 2.01396*10^6, 
  1.95501*10^6, 1.89437*10^6, 1.83573*10^6, 1.80379*10^6, 1.72423*10^6}

ListLogPlot[
 Table[Callout[data[[i]], i, Appearance -> "CurvedLeader", 
   Background -> Yellow, CalloutStyle -> Red, 
   LabelStyle -> {10, Bold}], {i, 1, 18}], 
 MeshStyle -> Directive[PointSize[Large], Darker[Blue]], Mesh -> All, 
 Joined -> True, PlotRange -> {{0.5, 18.5}, {10^6, 5*10^7}}, PlotTheme -> "Detailed", 
 FrameLabel -> {"Iteration number", "\[CapitalPhi](d) (euros)"} , 
 Filling -> Bottom, PlotStyle -> "Aquamarine", ImageSize -> Large]

enter image description here

POSTED BY: Rohit Namjoshi

Claudio Chaib

Claudio Chaib, Consultant at Wolfram Research Inc.

Posted 5 years ago

I added in the plot ImageSize-> Large and for me appeared all points. Interesting that without adding this, the value that does not appear to me is the 16. Without adding ImageSize: With ImageSize-> Large : ListLogPlot[{2.718110^7, 2.6502510^7, 2.1618710^7, 1.7527110^7, 1.3877510^7, 4.585310^6, 4.193910^6, 3.1926310^6, 2.8524810^6, 2.6079710^6, 2.3896410^6, 2.1046710^6, 2.0139610^6, 1.9550110^6, 1.8943710^6, 1.8357310^6, 1.8037910^6, 1.7242310^6} -> Table[iter, {iter, 1, 18}], Mesh -> All, Joined -> True, PlotTheme -> "Detailed", InterpolationOrder -> 1, MeshStyle -> Directive[PointSize[Large], Darker[Blue]], PlotRange -> {{0.5, 18.5}, {110^\!\(TraditionalForm\`6\), 510^\!\(TraditionalForm\`7\)}}, FrameLabel -> {"Iteration number", "\[CapitalPhi](d) (euros)"}, Filling -> Bottom, PlotStyle -> "Aquamarine", ImageSize -> Large]

I added in the plot ImageSize-> Large and for me appeared all points. Interesting that without adding this, the value that does not appear to me is the 16.

Without adding ImageSize:

imag1

With ImageSize-> Large :

ListLogPlot[{2.7181*10^7, 2.65025*10^7, 
    2.16187*10^7, 1.75271*10^7, 
    1.38775*10^7, 4.5853*10^6, 
    4.1939*10^6, 3.19263*10^6, 
    2.85248*10^6, 2.60797*10^6, 
    2.38964*10^6, 2.10467*10^6, 
    2.01396*10^6, 1.95501*10^6, 
    1.89437*10^6, 1.83573*10^6, 
    1.80379*10^6, 1.72423*10^6} -> Table[iter, {iter, 1, 18}], 
 Mesh -> All,
   Joined -> True, PlotTheme -> "Detailed", InterpolationOrder -> 1, 
  MeshStyle -> Directive[PointSize[Large], Darker[Blue]], 
  PlotRange -> {{0.5, 18.5}, {1*10^\!\(TraditionalForm\`6\), 
        5*10^\!\(TraditionalForm\`7\)}}, 
  FrameLabel -> {"Iteration number", "\[CapitalPhi](d) (euros)"}, 
  Filling -> Bottom, PlotStyle -> "Aquamarine", ImageSize -> Large]

imag2

POSTED BY: Claudio Chaib

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback