Themes for Scientific Data 

Detailed and Scientific themes are crafted to provide a suitable environment for carefully inspecting data.

show complete Wolfram Language inputhide input

In[1]:=

X months = DateString[{2013, #["Month"]}, "MonthNameShort"] & /@ DateRange[DateObject[{2013, 1, 1}], DateObject[{2013, 12, 31}], "Month"];

In[2]:=

X sunposKW = SunPosition[Entity["City", {"KeyWest", "Florida", "UnitedStates"}], DateRange[DateObject[{2013, 1, 1, 8}, TimeZone -> -4], DateObject[{2013, 12, 31, 8}, TimeZone -> -4], Quantity[7, "Days"]]]["Values"];

In[3]:=

X specialdatesKW = MapThread[ Labeled[#1, #2] &, {SunPosition[ Entity["City", {"KeyWest", "Florida", "UnitedStates"}], DateRange[DateObject[{2013, 1, 1, 8}, TimeZone -> -4], DateObject[{2013, 12, 31, 8}, TimeZone -> -4], "Month"]][ "Values"], months}];

In[4]:=

X sunposST = SunPosition[ Entity["City", {"Seattle", "Washington", "UnitedStates"}], DateRange[DateObject[{2013, 1, 1, 8}, TimeZone -> -7], DateObject[{2013, 12, 31, 8}, TimeZone -> -7], Quantity[7, "Days"]]]["Values"];

In[5]:=

X specialdatesST = MapThread[ Labeled[#1, #2] &, {SunPosition[ Entity["City", {"Seattle", "Washington", "UnitedStates"}], DateRange[DateObject[{2013, 1, 1, 8}, TimeZone -> -7], DateObject[{2013, 12, 31, 8}, TimeZone -> -7], "Month"]][ "Values"], months}];

In[6]:=

X analemmaPlot[theme_] := ListPlot[{sunposKW, specialdatesKW, sunposST, specialdatesST}, Joined -> {True, False, True, False}, AxesLabel -> {"azimuth(\[Degree])", "altitude(\[Degree])"}, FrameLabel -> {"azimuth(\[Degree])", "altitude(\[Degree])"}, ImageSize -> 550, PlotLabel -> Style["Analemma of The Sun at 8 AM", 18], theme, PlotLegends -> Placed[LineLegend[{"Key West", None, "Seattle", None}, Joined -> True], {Right, Top}]]

Plot the analemma of the Sun in the default theme.

In[7]:=

X analemmaPlot[PlotTheme -> "Default"]

Out[7]=

Detailed or scientific themes carefully weigh the grid lines and colors to keep the focus on data.

In[8]:=

X analemmaPlot[PlotTheme -> "Detailed"]

Out[8]=

In[9]:=

X analemmaPlot[PlotTheme -> "Scientific"]

Out[9]=