Search Results

I thought something like what @Mr Wizard suggested might work but it seems that PlotRange is called earlier in the evaluation sequence. You can however match the GridLines ok: niceTicks[min_, max_, n …

If you want different colours but the same thickness then you can set the thickness with BaseStyle ParametricPlot3D[{{t, 0, -t}, {0, t, 2 t}}, {t, 0, 100}, BaseStyle -> AbsoluteThickness[5], PlotSt …

Using ListLinePlot with a tick library seems most efficient for regular production plotting of data (with certain date range characteristics). Edit Ticks for the bottom plot. Same principle. …

I just saw a nice plot there: How could I implement that in Mathematica — by which I mean the plot structure, not so much the styling.

You often see plots styled like this (ignore the bar chart component): i.e. with a small drop shadow under the line. (I'm assuming Excel is being used to produce these plots). How could you make s …

I wrote some code for this a few years ago. Haven't looked at it in a long time but it may be useful. It is in the Wolfram library archive (that seems to have been all but abandoned by both users and …

As an alternative why not use GridLines as per J.Ms comment. sparkline[data_, datemarker_] := DateListPlot[data, {1997}, AspectRatio -> 0.2, Axes -> False, Filling -> Bottom, FrameTicks -> {{ …

An alternative is to plot the data over 3 separate time ranges and combine the 3 plots. Here is how to do it set out step by step. Firstly it looks like your y axis scale is logarithmic right? In that …

I suspect this must be a duplicate but depending on what features you want to alter (just label, label and ticks etc) you might have to use combinations of AxesStyle and TickStyle and so on but here i …

I just use "ColorList" ListPlot[Table[i*Range[0, 10], {i, 1, 5, 0.5}], Frame -> True, Joined -> True, PlotRange -> All, PlotStyle -> ColorData[3, "ColorList"]] You can add some interactivity …

Wrapping labels in Pane often helps in charts: labels = Pane[#, ImageSize -> 80] & /@ {"Profit versus Objectives", "Profitability Level", "Payback Period", "Relative Sales", "Relatives Prof …

Alternatives methods for you to use have been posted but the reason your attempt fails is that ColorFunction requires your data to be joined. e.g versus:

If you wanted to only ever have one plot the two ways come to mind. One is similar to @bbgodfrey's method but incorporating some front end code to delete the previous plot. The other is to make the pl …

PlotMarkers are rendered as insets to the graphics so you need to set a small image size in your graphics plot marker: ListPlot[myData, PlotRange -> {{-1, 101}, {2.9, 3.3}}, Joined -> True, Mesh -> …

...or do it dynamically so you can position the inset where you like it: DynamicModule[{pt = Scaled[{0.5, 0.5}]}, Plot[Sin[x], {x, 0, 2 Pi}, PlotRange -> All, Epilog -> {Dynamic[ Locator[ …