The numbers will confusingly overlap, especially with more precision shown. What about radius of disk reflecting the `Norm` and `Tooltip` showing the number?

    Graphics[{Hue[RandomReal[], 1, 1, .4], 
        Map[Tooltip[Disk[#, .02 Norm[#]], Norm[#]] &, #]} & /@ data, Frame -> True]

![enter image description here][1]


  [1]: https://i.sstatic.net/mCJkI.png