Units over time

UnitsOverTime.nb

TextGrid[VALS = 
  Cases[Apply[
    Flatten[{#1, {"StandardYear", "Value", 
         "StandardUncertainty"} /. #2}] &, 
    Entity["PhysicalConstant", "GravitationalConstant"][
     "ValueAssociation"], {1}], {source_, y_Integer, 
     rest__} :> {source, DateObject[{y}], rest}], 
 Sequence[Dividers -> All, 
  Background -> {Automatic, {{LightBlue, None}}}]]
hvals = Callout[{#2, 
      Around[#3 - Quantity["GravitationalConstant"], #4]}, #1] & @@@ 
   VALS;
DateListPlot[Sort@hvals, 
 PlotLabel -> 
  "Deviation from " <> ToString[Quantity["GravitationalConstant"]], 
 FrameLabel -> {Automatic, Automatic}]