Function Repository Resource:

RankedTimeSeriesBarChart

Source Notebook

Animate time series as bar charts

Contributed by: Bob Sandheinrich

ResourceFunction["RankedTimeSeriesBarChart"][{ts₁,ts₂.…}]

creates an animated BarChart visualization of the time series ts_i.

ResourceFunction["RankedTimeSeriesBarChart"][{ts₁,ts₂.…},{min,max}]

animates over the specified timespan min–max.

ResourceFunction["RankedTimeSeriesBarChart"][{ts₁,ts₂.…},{min,max,delta}]

uses step size delta.

ResourceFunction["RankedTimeSeriesBarChart"][{ts₁,ts₂.…},{{t₁,t₂,…}}]

shows values only at the specified times.

Details and Options

The time series ts_i should be TimeSeries or TemporalData objects or any value supported as an input to TimeSeries. Each ts_i must have a single numeric time series sequence.

During the animation, at any time t, only the ts_i which cover time t are displayed.

All options for BarChart except for PlotLabel are supported with the following additions and changes:

"AnimateOptions"

{}

options for Animate

BarOrigin

Left

origin placement for bars

ChartLabels

Automatic

labels for data elements

ChartStyle

Automatic

by default, colors each element consistently throughout animation

"PlotLabelFunction"

Automatic

function to create a plot label from the timestamp

PlotRange

Full

range to show while animating

"RankingFunction"

Sort

function to rank bars

By default, the PlotRange will be static during animation. Using Automatic will create a dynamic plot range.

Examples

Basic Examples (2)

Create an animation of two time series:

In[1]:=

Out[1]=

Create an animation of GDP per capita for a few countries over a few decades:

In[2]:=

gdps = AssociationMap[#[
EntityProperty[
"Country", "GDP", {"CurrencyUnit" -> "CurrentUSDollar", "Date" -> Interval[{
DateObject[{1970}, "Year", "Gregorian", -5.],
DateObject[{2020}, "Year", "Gregorian", -5.]}], "PerCapita" -> "PerCapita"}]] &, {Entity["Country", "UnitedStates"], Entity["Country", "China"], Entity["Country", "UnitedKingdom"], Entity["Country", "France"], Entity["Country", "Germany"]}]

Out[2]=

In[3]:=

Out[3]=

Scope (3)

Create an animation for a list of raw data sequences. Note that integer labels are automatically assigned:

In[4]:=

Out[4]=

Retrieve data on COVID-19 cases from five random countries:

In[5]:=

$coviddata = Association@Normal@ResourceData[\!$\* TagBox["\"\<Epidemic Data for Novel Coronavirus COVID-19\>\"", #& , BoxID -> "ResourceTag-Epidemic Data for Novel Coronavirus COVID-19-Input", AutoDelete->True]$, "WorldCountries"][ RandomSample[#, 5] &, #Country -> #ConfirmedCases &]$