Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: How to get decent quality plots.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg57401] Re: [mg57393] How to get decent quality plots.
  • From: "Jaccard Florian" <Florian.Jaccard at he-arc.ch>
  • Date: Fri, 27 May 2005 04:56:39 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Hello Dave !

Yes, It's not worth while to use Excel.

Is this what you want :

data = Table[{x, x^2 + Random[Real, {-1, 1}]}, {x, -4, 4, 0.2}]; 

ListPlot[data, AxesLabel -> {"your text 1", "your text 2"}, PlotStyle -> PointSize[0.01], 
   TextStyle -> {FontSize -> 13, FontFamily -> Times, FontSlant -> Italic}, 
   Epilog -> Text[StyleForm["your plotlabel", FontWeight -> Bold], {-1.8, 20}], 
   PlotRange -> All, ImageSize -> 500];


Or, with not-automatic gridlines :

ListPlot[data, AxesLabel -> {"your text 1", "your text 2"}, PlotStyle -> PointSize[0.01], 
   TextStyle -> {FontSize -> 13, FontFamily -> Times, FontSlant -> Italic}, 
   AxesStyle -> Thickness[0.007], GridLines -> Map[{#1, {Dashing[{0.01}]}} & , 
     {Range[-5, 5, 2], Range[1, 17, 2]}, {2}], 
   Epilog -> Text[StyleForm["your plotlabel", FontWeight -> Bold], {-1.8, 20}], 
   PlotRange -> All, ImageSize -> 500];


And, last but not least, with the text like you want :

ListPlot[data,  PlotStyle -> PointSize[0.01], 
   TextStyle -> {FontSize -> 13, FontFamily -> Times, FontSlant -> Italic}, 
   PlotLabel->StyleForm["your plotlabel", FontWeight -> Bold], 
   PlotRange -> All, ImageSize -> 500,Epilog->{Text["your text 1",{4,-2}],Text["your text 2",{-.8,14},{0,0},{0,1}]}];


Regards
 
F.Jaccard


-----Message d'origine-----
De : Dave [mailto:nospam at nowhere.com] 
Envoyé : jeudi, 26. mai 2005 10:32
À : mathgroup at smc.vnet.net
Objet : [mg57393] How to get decent quality plots.

I'm using ListPlot to plot some data points and have used options like

PlotLabel -> "64 cycles in FIFO", AxesLabel -> {"S/N dB", "RMS error mm"}

But the graphs come out look pretty awful.

1) The font looks like courier
2) The text on the x-axis starts at the end of the axis, not under the 
numbers which is more usual.
3) The text on the y-axis runs horizontally, along the top, rather than 
vertically.

Any suggestions for some ways to make graphs look better. I don't want 
to have to export the data into Excel!!


  • Prev by Date: Re: A.I for mathematica
  • Next by Date: Re: A.I for mathematica
  • Previous by thread: Re: How to get decent quality plots.
  • Next by thread: Re: How to get decent quality plots.