Comparing nominal vs real gdp of the us

nom-vs-real.wls

With[{
  list = CountryData["UnitedStates", {"GDP", All}]["DatePath"]
  },
 With[{
   real = Table[
     With[{
       a = DateValue[First@list[[i]], "Year"],
       b = QuantityMagnitude[Last@list[[i]]]
       },
      {DateObject[{a, 1, 1}], 
       InflationAdjust[Quantity[b, DatedUnit["USDollars", a]]]}
      ], {i, 1, Length[list], 1}]
   },
  DateListPlot[{list, real}
   , PlotTheme -> "Marketing"
   , PlotLegends -> {"Nominal", "Real"}]
  ]
 ]