(New^([1])) in Visualization

[1] V10.1 – V11.0

Brett Champion
Wolfram Research

Join the Conversation #WolframTechConf

Related Talks

Core Visualization – Min-Hsuan Peng, @2:30 today

Geo Visualization – Emmanuel Garces, @3:30 today

3D Printing – Jaebum Jung, @5:00 today

Date Visualization – Nirmal Malapaka, @5:30 today

AnatomyPlot3D – Jeff Bryant & Keiko Hirayama, @11:00 Thursday

Graphics3D – Yuzhu Lu, @4:00 Friday

Overview

Basics

Date & Time

Volumes

Geography

Anatomy

Text

Themes

Core Functions

ScalingFunctions – V10.3+

Plot[x,{x,1,100},ScalingFunctions->{"Reverse","Log"}]

Exclusions – V11.0

Plot[1/(x-1),{x,-3,3}]

Plot[Tan[x],{x,0,10}]

PlotLabels – V10.4

DateListPlot[Table[FinancialData[ticker,(DateObject["Fri 1 Jan 2016", DateObject[{2016,1,1}]])],{ticker,{"AAPL","MSFT","CSCO","AMZN"}}],ScalingFunctions->"Log",PlotLabels->{"AAPL","MSFT","CSCO","AMZN"}]

Callout – V11.0

Plot[{
Callout[Sin[x],Sin[x],Above,Background->,LabelStyle->{,20},Appearance->"Balloon"],Callout[Cos[x],Cos[x],Below,Background->,LabelStyle->{,20},Appearance->"Balloon"]
},{x,0,2Pi},PlotTheme->"Web",LabelStyle->20]

Date & Time

TimelinePlot – V10.1

releases=\[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}]]), "10.4"->(DateObject["Wed 2 Mar 2016", DateObject[{2016,3,2}]]),"11.0"->(DateObject["Mon 8 Aug 2016", DateObject[{2016,8,8}]])\[RightAssociation];

TimelinePlot[releases]

TimelinePlot[releases,PlotLayout->"Packed"]

DateHistogram – V10.2

files=Select[FileSystemMap[FileDate[#,"Creation"]&,"~/Desktop",Infinity,1,FileNameForms->"*.nb"],#>DateObject[{2010,1,1}]&];

Length[files]

DateHistogram[files,"Year"]

DateHistogram[files,DateReduction->"Week"]

DateHistogram[files,DateReduction->"Day"]

DateListStepPlot – V10.3

girls=SortBy[EntityList[EntityClass["GivenName",{"Gender"->"Female","Rank"->Interval[{1,10}]}]],#["Rank"]&]

ranksgirls=Table[EntityValue[name,Dated[EntityProperty["GivenName","Rank"],All]],{name,girls}];

DateListStepPlot[ranksgirls,ScalingFunctions->{-Log[#]&,Exp[-#]&},PlotLegends->girls,PlotTheme->{"Detailed","ThickLines"},ImageSize->475,PlotRange->{{DateObject[{1965}],DateObject[{2017}]},All}]

Volumes

DensityPlot3D – V10.2

mesh=;

density=DensityPlot3D[Sin[x/50] Sin[ y/50] Sin[z/50],{x,y,z}∈mesh,BoxRatios->Automatic]

Slice__Plot3D – V10.2

slice=SliceDensityPlot3D[Sin[x/50] Sin[ y/50] Sin[z/50],{"XStackedPlanes",9},{x,y,z}∈mesh,BoxRatios->Automatic]

Show[density,slice]

Geography

DynamicGeoGraphics – V10.4

DynamicGeoGraphics[{AbsoluteThickness[5],Red,GeoPath[TravelDirections[{LinguisticAssistant,LinguisticAssistant}]]},GeoRange->LinguisticAssistant]

GeoHistogram – V11.0

GeoHistogram[GeoPosition[],PlotTheme->"Web"]

GeoHistogram[GeoPosition[],"USState",PlotTheme->"Web"]

Anatomy

AnatomyPlot3D – V11.0

AnatomyPlot3D[{AnatomyForm[\[LeftAssociation](Entity["muscle", Entity["AnatomicalStructure","Muscle"], "Entity[\"AnatomicalStructure\", \"Muscle\"]", "anatomical structure"])->Directive[,ClipPlanes->{InfinitePlane[{{0,-100,850},{300,0,1050},{0,0,850}}]}],(Entity["skin", Entity["AnatomicalStructure","Skin"], "Entity[\"AnatomicalStructure\", \"Skin\"]", "anatomical structure"])->Directive[,ClipPlanes->{InfinitePlane[{{0,-200,1050},{300,0,1250},{0,0,1050}}]}],(Entity["bone", Entity["AnatomicalStructure","SetOfBones"], "Entity[\"AnatomicalStructure\", \"SetOfBones\"]", "anatomical structure"])->,All->Transparent\[RightAssociation]],(Entity["left upper limb", Entity["AnatomicalStructure","LeftUpperLimb"], "Entity[\"AnatomicalStructure\", \"LeftUpperLimb\"]", "anatomical structure"]),(Entity["skin", Entity["AnatomicalStructure","Skin"], "Entity[\"AnatomicalStructure\", \"Skin\"]", "anatomical structure"])},PlotRange->{{0,400},{-300,100},{650,1375}},Background->Black]

Text

WordCloud – V10.1

text=ExampleData[{"Text","TheRaven"}];

WordCloud[text]

WordCloud[text,,Background->Black,ColorFunction->"SolarColors"]

TextStructure – V10.3

TextStructure["I like poems about animals."]

Style[TextStructure["Once upon a midnight dreary, while I pondered, weak and weary, Over many a quaint and curious volume of forgotten lore-- While I nodded, nearly napping, suddenly there came a tapping, As of some one gently rapping--rapping at my chamber door."],Orange,24,Background->Black]

Themes

3D Printing – V11.0

{Plot3D[Sin[x]Cos[y],{x,0,9},{y,0,9},PlotTheme->"FilledSurface"],Plot3D[Sin[x]Cos[y],{x,0,9},{y,0,9},PlotTheme->"ThickSurface"]}

More Autocompletions – V11.0

Plot3D[Sin[x]Cos[y],{x,0,9},{y,0,9},PlotTheme->"Web"]

Gauges – V10.1

Multicolumn[Table[Labeled[AngularGauge[7,{0,10},PlotTheme->t,ImageSize->200],t],{t,{"Business","Marketing","Minimal","Scientific","Web","Detailed"}}]]

Meshes – V10.2

Multicolumn[Table[Labeled[MeshRegion[,PlotTheme->t,ImageSize->200],t],{t,{"Business","Marketing","Minimal","Scientific","Web","Detailed","SampledPoints","Lines","SphereAndTube" }}]]

Graphs – V10.4

Multicolumn[Table[Labeled[Graph[{1->2,2->1,3->1,3->2,4->1,4->2,4->4},PlotTheme->t,ImageSize->300],t],{t,{"Business","Marketing","Minimal","Scientific","Web","Detailed"}}]]

But Wait, There’s More

AudioPlot – V11.0

rule30=Import["ExampleData/rule30.wav"]

AudioPlot[rule30,PlotRange->All]

AudioPlot[rule30,Appearance->"ContinuousAbs",PlotRange->All]

AudioPlot[rule30,Appearance->"Discrete",ImageSize->Medium,ColorFunction->Function[{x,y},ColorData["Rainbow",y]],PlotRange->All]

Dendrogram – V10.4

colors=DominantColors[]

Dendrogram[colors]

Icons – V10.1

EntityClassList["Icon"]

EntityList[(EntityClass["landmark icons", EntityClass["Icon","LandmarkIcons"], "EntityClass[\"Icon\", \"LandmarkIcons\"]", "icons"])]

(Entity["lighthouse", Entity["Icon","Lighthouse"], "Entity[\"Icon\", \"Lighthouse\"]", "icon"])["Image"]

GeoGraphics[GeoMarker[LinguisticAssistant,LinguisticAssistant]]

RulePlot – V11.0

RulePlot[CellularAutomaton[30]]

RulePlot[TuringMachine[{596440,2,3}]]

RulePlot[SubstitutionSystem[{1->{1,0},0->{0,1}}],Appearance->"Arrow"]