Is there a way more convenient to position the text beside the circles. How can I do this in automatic mode?
data = {{0, 2}, {4, 5}, {8, 7}, {10, 25}}
Graphics[{PointSize[0.1],
Point[data],
Text[Style["0,2",
FontSize -> 20, Bold, Red], {0, 2}, {2, 0}],
Text[Style["4,5", FontSize -> 20, Bold, Red], {4, 5}, {2, 0}],
Text[Style["8,7", FontSize -> 20, Bold, Red], {8, 7}, {2, 0}],
Text[Style["10,25", FontSize -> 20, Bold, Red], {10, 25}, {2, 0}]}]