Re: Incorrectly Cropped ListPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg131622] Re: Incorrectly Cropped ListPlot
- From: "djmpark" <djmpark at comcast.net>
- Date: Thu, 12 Sep 2013 02:26:45 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- References: <13655642.175307.1378886306010.JavaMail.root@m06>
Themis, Basically you have to also put a PlotRange into the ListPlot statement. I'm not certain why you are trying to combine two plots in this manner. Why not just make a single plot? In any case PlotRange is an option that does double duty. It determines which range will be used in retaining plot points in a curve, and it also determines the overall plot ranges for display. (This distinction also comes into play in ContourPlot and DensityPlot where the display is only 2D but a z PlotRange is necessary to specify which contours or values will be retained in the plot.) This gets confused when you are combining plots. With Presentations I would do it this way: << Presentations` Draw2D[ {(* possible other curves maybe with a PlotRange *) ListDraw[Evaluate[f], Filling -> Axis, Joined -> True, PlotRange -> All]}, AspectRatio -> 1/GoldenRatio, Axes -> True, ImageSize -> Medium, PlotRange -> {{0, Length[f]}, {0, 0.1}}, FrameLabel -> {"X", "Y"}] The PlotRange in ListDraw determines what y range of points is to be accepted for that curve and the PlotRange at the end determines the ranges used in the displayed graphic. If you are going to use Show you could put the first PlotRange in the ListPlot, and the second PlotRange in the Show statement. David Park djmpark at comcast.net http://home.comcast.net/~djmpark/index.html From: Themis Matsoukas [mailto:tmatsoukas at me.com] In the ListPlot below, the graph is unexpectedly cropped. Do others confirm this? Is there a cure? I apologize for the long data set (166 points) but this problem does not not normally appear with other data sets. (v9.01, Mac OS 10.8.4) f = {28.1792365971891`, 3.5982872799476424`, 1.0378983682569967`, 0.4632719164938047`, 0.21685764678476743`, 0.10593018225382422`, 0.06130960964625232`, 0.05244650523022995`, 0.03653950681649269`, 0.027787329865001275`, 0.019062884779642592`, 0.021808339526783436`, 0.009390009872544344`, 0.00662236963249731`, 0.009561947442567305`, 0.00849704378307025`, 0.010621304728837813`, 0.008186446882383609`, 0.0048197983338694825`, 0.015407824823348014`, 0.0031891646052646175`, 0.0007154821462245838`, 0.005257961818766708`, 0.01064903659497055`, 0.004021120589246692`, 0.0024681360858134866`, 0.005856970127233802`, 0.0007820386249431496`, 0.0005879155620139991`, 0.004742149108697823`, 0.0026012490432506183`, 0.002623434536156807`, 0.0022961985157905246`, 0.0020077871080100723`, 0.0047587882283774635`, 0.004126501680551088`, 0.004653407137073068`, 5.5463732265471604`*^-6, 0.00021630855583533928`, 0.`, 0.`, 0.0017138293270030727`, 0.00359404985080256`, 0.00404330608215288`, 0.`, 0.`, 0.`, 0.`, 0.0005823691887874519`, 0.0024071259803214676`, 0.`, 0.`, 0.002274013022884336`, 0.`, 0.0011480992578952623`, 0.`, 0.`, 0.`, 0.0003272360203662825`, 0.`, 0.0016805510876437898`, 0.00009428834485130173`, 0.`, 0.`, 0.0024681360858134866`, 0.001031625420137772`, 0.0014254179192226203`, 0.006239669879865556`, 0.`, 0.`, 0.0018413959112136575`, 0.0013921396798633374`, 0.011980166169341867`, 0.`, 0.0048197983338694825`, 0.`, 0.`, 0.0003826997526317541`, 0.`, 0.`, 0.00009428834485130173`, 0.`, 0.0044925623135032`, 0.002939577810069995`, 0.010981818988563378`, 0.`, 0.008186446882383609`, 0.`, 0.`, 0.0004104316187644899`, 0.`, 0.0003272360203662825`, 0.0020466117205959022`, 0.00039379249908484844`, 0.`, 0.`, 0.0030615980210540327`, 0.`, 0.0024681360858134866`, 0.001137006511442168`, 0.00017193757002296198`, 0.`, 0.`, 0.0002606795416477166`, 0.`, 0.`, 0.`, 0.007476511109385573`, 0.`, 0.`, 0.0013311295743713186`, 0.`, 0.`, 0.0028730213313514293`, 0.`, 0.`, 0.002318384008696713`, 0.`, 0.00023294767551498076`, 0.0011536456311218093`, 0.`, 0.0015696236231128465`, 0.007687273291994365`, 0.0015252526373004693`, 0.`, 0.011946887929982584`, 0.008031148432040289`, 0.`, 0.0008042241178493383`, 0.0021908174244861284`, 0.004021120589246692`, 0.013422223208244129`, 0.001724922073456167`, 0.0004381634848972257`, 0.002723269254234656`, 0.006073278683069141`, 0.011508724445085359`, 0.0005379982029750746`, 0.0006156474281467348`, 0.0013810469334102431`, 0.00584033100755416`, 0.`, 0.006960698399316687`, 0.`, 0.01813109407758267`, 0.020599230163396154`, 0.03043294989406427`, 0.027315888140744767`, 0.04342810236386427`, 0.0009484298217395645`, 0.03459827618720119`, 0.011747218493826886`, 0.018508247456987877`, 0.0733618786675393`, 0.03374413471031293`, 0.08204749914031215`, 0.06322865478263763`, 0.15423354668382344`, 0.06886376998080955`, 0.019229275976439007`, 0.07850336664854851`, 0.025596512440515147`, 0.03347236242221212`, 0.00814762226979778`, 0.`, 0.00795349920686863`}; graph1 = ListPlot[{Null}, ImageSize -> Medium, PlotRange -> {{0, 200}, {0, 0.1}}, FrameLabel -> {"X", "Y"}]; graph2 = ListPlot[f, Filling -> Axis, Joined -> True]; Show[graph1, graph2]