Temas para datos científicos 

Los temas Detailed y Scientific han sido creados para proporcionar un entorno adecuado para la inspección cuidadosa de datos.

muestre la entrada completa de Wolfram Languageoculte la entrada

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}]]

Grafique la analema del Sol en el tema predeterminado.

In[7]:=

X analemmaPlot[PlotTheme -> "Default"]

Out[7]=

Los temas Detailed y Scientific hacen un balance cuidadoso de las líneas de cuadrícula y los colores para mantener el enfoque en los datos.

In[8]:=

X analemmaPlot[PlotTheme -> "Detailed"]

Out[8]=

In[9]:=

X analemmaPlot[PlotTheme -> "Scientific"]

Out[9]=