What’s New in Visualization

Brett Champion
Wolfram

Join the Conversation #WolframTechConf

10.0

ChromaticityPlot, ChromaticityPlot3D

MandelbrotSetPlot, JuliaSetPlots

GeoRegionValuePlot, GeoListPlot

NumberLinePlot

Plotting over Regions

PlotTheme

10.1

Themes for Gauges

TimelinePlot

WordCloud

10.2

DensityPlot3D, ListDensityPlot3DSlice

SliceContourPlot3D, ListSliceContourPlot3D

SliceDensityPlot3D, ListSliceDensityPlot3D

SliceVectorPlot3D, ListSliceVectorPlot3D

DateHistogram

ListStepPlot

Histogram Improvements

10.3

DateListStepPlot

Plotting Over Regions

Plotting over Regions

Plot3D[Sin[x]Cos[y]/(x^2+y^2+1),{x,y}∈Disk[{0,0},3]]

Plot[Sin[x],x∈Interval[{-2,-1},{-1/2,1/2},{1,2}]]

RegionPlot[Disk[{0,0},3],MeshFunctions->{#1 & , #2 & },Mesh->10,MeshShading->{{Red, Yellow}, {Black, Orange}}]

Themes

PlotTheme

Common Styles

DateListPlot[TimeSeries[],PlotTheme->#]&/@{"Web","Minimal","Marketing"}

Plot3D[Sin[x]Cos[y],{x,0,2Pi},{y,0,2Pi},PlotTheme->#]&/@{"Web","Minimal","Marketing"}

AngularGauge[57,{0,100},PlotTheme->#]&/@{"Web","Minimal","Marketing"}

Serve as a Starting Point

DateListPlot[TimeSeries[],PlotTheme->{"Minimal","Monochrome"},Frame->True]

Miscellaneous

ChromaticityPlot, ChromaticityPlot3D

{ChromaticityPlot["sRGB"],ChromaticityPlot3D["sRGB"]}

MandelbrotSetPlot, JuliaSetPlots

{MandelbrotSetPlot[],JuliaSetPlot[0.365-0.37I]}

Geographic

GeoRegionValuePlot, GeoListPlot

{GeoRegionValuePlot[(EntityClass["US counties in Illinois", EntityClass["AdministrativeDivision","USCountiesIllinois"], "EntityClass[\"AdministrativeDivision\", \"USCountiesIllinois\"]", "administrative divisions"])->(EntityProperty["county sales tax rate", EntityProperty["AdministrativeDivision","CountySalesTaxRate"], "EntityProperty[\"AdministrativeDivision\", \"CountySalesTaxRate\"]"])],GeoListPlot[GeoEntities[(Entity["Illinois, United States", Entity["AdministrativeDivision",{"Illinois","UnitedStates"}], "Entity[\"AdministrativeDivision\", {\"Illinois\", \"UnitedStates\"}]", "administrative division"]), "University"]]}

General

NumberLinePlot

NumberLinePlot[Prime[Range[50]]]

NumberLinePlot[{Sin[x]≥0,Cos[x]≥0},x]

NumberLinePlot[x^3<Sin[13x],x]

ListStepPlot

ListStepPlot[Prime[Range[15]],Mesh->Automatic]

{ListStepPlot[Prime[Range[15]],Left,Mesh->Automatic],ListStepPlot[Prime[Range[15]],Center,Mesh->Automatic]}

ListStepPlot[Prime[Range[15]],Joined->False,Mesh->Automatic]

Histogram Improvements

Then

Histogram[Append[RandomVariate[NormalDistribution[],1000],999]]

Now

Histogram[Append[RandomVariate[NormalDistribution[],1000],999]]

Histogram[Append[RandomVariate[NormalDistribution[],1000],999],PlotRange->All]

Temporal

TimelinePlot

TimelinePlot[\[LeftAssociation]"1.0"->(DateObject["Thu 23 Jun 1988", DateObject[{1988,6,23}]]),"1.1"->(DateObject["Mon 31 Oct 1988", DateObject[{1988,10,31}]]),"1.2"->(DateObject["Tue 1 Aug 1989", DateObject[{1989,8,1}]]),"2.0"->(DateObject["Tue 15 Jan 1991", DateObject[{1991,1,15}]]),"2.1"->(DateObject["Mon 15 Jun 1992", DateObject[{1992,6,15}]]),"2.2"->(DateObject["Tue 1 Jun 1993", DateObject[{1993,6,1}]]),"3.0"->(DateObject["Tue 3 Sep 1996", DateObject[{1996,9,3}]]),"4.0"->(DateObject["Wed 19 May 1999", DateObject[{1999,5,19}]]),"4.1"->(DateObject["Thu 2 Nov 2000", DateObject[{2000,11,2}]]),"4.2"->(DateObject["Fri 1 Nov 2002", DateObject[{2002,11,1}]]),"5.0"->(DateObject["Thu 12 Jun 2003", DateObject[{2003,6,12}]]),"5.1"->(DateObject["Mon 25 Oct 2004", DateObject[{2004,10,25}]]),"5.2"->(DateObject["Mon 20 Jun 2005", DateObject[{2005,6,20}]]),"6.0"->(DateObject["Tue 1 May 2007", DateObject[{2007,5,1}]]),"7.0"->(DateObject["Tue 18 Nov 2008", DateObject[{2008,11,18}]]),"8.0"->(DateObject["Mon 15 Nov 2010", DateObject[{2010,11,15}]]),"9.0"->(DateObject["Wed 28 Nov 2012", DateObject[{2012,11,28}]]),"10.0"->(DateObject["Wed 9 Jul 2014", DateObject[{2014,7,9}]]),"10.1"->(DateObject["Mon 30 Mar 2015", DateObject[{2015,3,30}]]),"10.2"->(DateObject["Tue 14 Jul 2015", DateObject[{2015,7,14}]]),"10.3"->(DateObject["Thu 15 Oct 2015", DateObject[{2015,10,15}]])\[RightAssociation],PlotLayout->"Packed"]

TimelinePlot[EntityList[]->(EntityProperty["release date", EntityProperty["Movie","ReleaseDate"], "EntityProperty[\"Movie\", \"ReleaseDate\"]"])]

DateHistogram

movies=Quiet[DeleteMissing[MovieData[All,(EntityProperty["release date", EntityProperty["Movie","ReleaseDate"], "EntityProperty[\"Movie\", \"ReleaseDate\"]"])]]];

DateHistogram[movies,"Year"]

DateHistogram[movies,"Day",DateReduction->"Week"]

DateListStepPlot

versions=Transpose[MapAt[Accumulate,Transpose[Sort@Tally[EntityValue["WolframLanguageSymbol","DateIntroduced"]]/._Missing->DateObject[{2015, 10, 15}]],2]]

DateListPlot[versions,PlotTheme->{"Marketing","Wide"}]

DateListStepPlot[versions,PlotTheme->{"Marketing","Wide"}]

Word Clouds

WordCloud

declaration=DeleteStopwords[ExampleData[{"Text","DeclarationOfIndependence"}]];

WordCloud[declaration]

{WordCloud[declaration,WordOrientation->{{0,Pi/2}}],WordCloud[declaration,WordOrientation->"Random"]}

mask=EntityValue[(Entity["George Washington", Entity["Person","GeorgeWashington::7v7hm"], "Entity[\"Person\", \"GeorgeWashington::7v7hm\"]", "person"]),(EntityProperty["image", EntityProperty["Person","Image"], "EntityProperty[\"Person\", \"Image\"]"])]

mask=ColorNegate[];

WordCloud[declaration,mask,FontFamily->"Copperplate"]

Volume

DensityPlot3D, ListDensityPlot3DSlice

SliceContourPlot3D, ListSliceContourPlot3D

SliceDensityPlot3D, ListSliceDensityPlot3D

SliceVectorPlot3D, ListSliceVectorPlot3D

DensityPlot3D[Sin[x y z],{x,y,z}∈Ball[{0,0,0},2]]