U.S. Currency in Circulation
I thought this data was interesting: money in circulation:
In[]:=
data=Last[Last[Import["https://www.uscurrency.gov/life-cycle/data/circulation","Data"]]];
We can make a plot. There are more 100 bills in circulation than 1 bills.
In[]:=
ListPlot[Reverse/@Transpose[Drop[Drop[#,1],-2]&/@Last[data]],PlotLegends->Drop[data[[1]],-2]]
Out[]=
