The numbers will confusingly overlap, especially with more precision shown. What aboutJust in case here is a solution with 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]