Skip to main content

plotting - Is it possible to define a new PlotTheme?


In version 10 one can define, say,


$PlotTheme = "Scientific"


Which changes the appearance of all plots. This is fantastic because on the one hand I can have nice plots very easily and globally (i.e. No need to tune every option in Plot[...]), and on the other hand when I exchange code with my collaborators they may not have Mathematica 10 and defining $PlotTheme is harmless for previous versions.


However, none of the provided plot themes fit my needs and I would need to combine some options (for example, the lines should on the one hand have colors, and on the other hand, has solid/dashed/dotted styles). Thus I wonder if it is possible to define a plot theme myself, combining a few built-in themes, and specify it globally using


$PlotTheme = "myStyle"

Note: This is related to Specifying non-conflicting PlotTheme options (which focuses on changing and tuning plot theme as PlotStyle, etc.), and @kguler has already provided a great answer.



Answer




There appears to be a mechanism for doing just that, though I have yet to map its capabilities.


As a basic example for the time being:


Themes`AddThemeRules["wizard",

  DefaultPlotStyle -> Thread@Directive[{Purple, Orange, Hue[0.6]}, Thick],
  LabelStyle -> 18,
  AxesStyle -> White,
  TicksStyle -> LightGray,
  Background -> Gray
]

Now:


Plot[{Sinc[x], Sinc[2 x], Sinc[3 x]}, {x, 0, 10}, PlotTheme -> "wizard"]


enter image description here


Hideous, I know. :o)


You can attach rules to specific plot functions using the second parameter, e.g. BarChart:


Themes`AddThemeRules["wizard", BarChart,
  ChartStyle -> {Pink, Gray, Brown}
];

Now:


BarChart[{{1, 2, 3}, {1, 3, 2}}, PlotTheme -> "wizard"]


enter image description here


These themes do not persist across a kernel restart so you can experiment freely I believe.
If you wish to make any changes persist you could use kernel/init.m.



I could not find a way to use AddThemeRules to make Themes that would combine with others in the way that the default ones will. I found that I needed to take things to a lower level and make assignments to this System function:


System`PlotThemeDump`resolvePlotTheme

This appears to be the true home of PlotThemes and one can look at its Definition to see everything, once it has been preloaded by Plot or some other means. To read a specific definition I (once again) recommend my step function. Let's check the definition of "ThickLines" for "Plot" (note that plot function names must be given as strings):


Themes`ThemeRules;  (* preload PlotThemes subsystem *)


Defer @@ step @ System`PlotThemeDump`resolvePlotTheme["ThickLines", "Plot"]


Themes`SetWeight[{"DefaultThickness" ->
 {AbsoluteThickness[3]}}, System`PlotThemeDump`$ComponentWeight]

(Defer replaces HoldForm to allow proper copy&paste.)


We can use this knowledge to create a new thickness Theme for Plot:


System`PlotThemeDump`resolvePlotTheme["Thick5", "Plot"] := 
  Themes`SetWeight[{"DefaultThickness" -> {AbsoluteThickness[5]}}, 

    System`PlotThemeDump`$ComponentWeight]

Now we can combine this with existing Themes just as we can the defaults:


Plot[{x^2 + x, x^2}, {x, -1, 1}, PlotTheme -> {"Detailed", "Thick5"}]

enter image description here


For more on the role of SetWeight please see:



Comments

Post a Comment

Popular posts from this blog

plotting - Filling between two spheres in SphericalPlot3D

Manipulate[ SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, Mesh -> None, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], {n, 0, 1}] I cant' seem to be able to make a filling between two spheres. I've already tried the obvious Filling -> {1 -> {2}} but Mathematica doesn't seem to like that option. Is there any easy way around this or ... Answer There is no built-in filling in SphericalPlot3D . One option is to use ParametricPlot3D to draw the surfaces between the two shells: Manipulate[ Show[SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], ParametricPlot3D[{ r {Sin[t] Cos[1.5 Pi], Sin[t] Sin[1.5 Pi], Cos[t]}, r {Sin[t] Cos[0 Pi], Sin[t] Sin[0 Pi], Cos[t]}}, {r, 1, 2 - n}, {t, 0, Pi}, PlotStyle -> Yellow, Mesh -> {2, 15}]], {n, 0, 1}]
Post a Comment
Read more

plotting - Plot 4D data with color as 4th dimension

I have a list of 4D data (x position, y position, amplitude, wavelength). I want to plot x, y, and amplitude on a 3D plot and have the color of the points correspond to the wavelength. I have seen many examples using functions to define color but my wavelength cannot be expressed by an analytic function. Is there a simple way to do this? Answer Here a another possible way to visualize 4D data: data = Flatten[Table[{x, y, x^2 + y^2, Sin[x - y]}, {x, -Pi, Pi,Pi/10}, {y,-Pi,Pi, Pi/10}], 1]; You can use the function Point along with VertexColors . Now the points are places using the first three elements and the color is determined by the fourth. In this case I used Hue, but you can use whatever you prefer. Graphics3D[ Point[data[[All, 1 ;; 3]], VertexColors -> Hue /@ data[[All, 4]]], Axes -> True, BoxRatios -> {1, 1, 1/GoldenRatio}]
Post a Comment
Read more

plotting - Mathematica: 3D plot based on combined 2D graphs

I have several sigmoidal fits to 3 different datasets, with mean fit predictions plus the 95% confidence limits (not symmetrical around the mean) and the actual data. I would now like to show these different 2D plots projected in 3D as in but then using proper perspective. In the link here they give some solutions to combine the plots using isometric perspective, but I would like to use proper 3 point perspective. Any thoughts? Also any way to show the mean points per time point for each series plus or minus the standard error on the mean would be cool too, either using points+vertical bars, or using spheres plus tubes. Below are some test data and the fit function I am using. Note that I am working on a logit(proportion) scale and that the final vertical scale is Log10(percentage). (* some test data *) data = Table[Null, {i, 4}]; data[[1]] = {{1, -5.8}, {2, -5.4}, {3, -0.8}, {4, -0.2}, {5, 4.6}, {1, -6.4}, {2, -5.6}, {3, -0.7}, {4, 0.04}, {5, 1.0}, {1, -6.8}, {2, -4.7}, {3, -1.
Post a Comment
Read more