怎么在mathematica中给曲线上的点加上坐标表示

题目

怎么在mathematica中给曲线上的点加上坐标表示
ListPlot[{{2.000,
12},{1.900,14},{1.8,15},{1.7,16},{1.6,19},{1.5,21},{1.4,29},{
1.3,39},{1.2,64},{1.18,69},{1.17,70},{1.169,70},{1.164,
70},{1.161,70},{1.159,71},{1.158,71},{1.157,71},{1.155,
70.8},{1.150,70},{1.114,
69},{1.112,61},{1.110,57},{1.100,
52},{1.00,25}},PlotJoined -> True,AxesLabel -> {"x"," y"}] 想把一部分点表示在曲线旁边
我想把点坐标也表示在图上.不好意思,没表达清楚

答案

ListPlot[Tooltip@{{2.000, 12}, {1.900, 14}, {1.8, 15}, {1.7,
16}, {1.6, 19}, {1.5, 21}, {1.4, 29}, {1.3, 39}, {1.2, 64}, {1.18,
69}, {1.17, 70}, {1.169, 70}, {1.164, 70}, {1.161, 70}, {1.159,
71}, {1.158, 71}, {1.157, 71}, {1.155, 70.8}, {1.150, 70}, {1.114,
69}, {1.112, 61}, {1.110, 57}, {1.100, 52}, {1.00, 25}},
AxesLabel -> {"x", " y"}, Joined -> True]
这样怎么样啊?鼠标一移近,就显示坐标.