如何在悬停时使工具提示仅显示ListLinePlot上的收尾值？

Question

所以，我有许多塞曼干涉图案的图像。我的任务是找到强度峰值的位置。我已经写了一个可以找到最大值的脚本，所以我可以通过“手”来选择我需要的值，但这会非常非常无聊，而且需要很长时间。

kep = Import["C:\Users\Martin\Documents\Egyetem\4. félév\Modern fizika \labor\6. Zeeman-effektus\sigma_50.png"]; 
adat = ImageData[kep, "Byte"][[577]][[All, 1]]; 
csucsok = N[FindPeaks[adat, 0.6, 0.6, 75]]; 
ListLinePlot[adat, AxesLabel -> {"Pixel", "Intenzitás"}, PlotLabel -> "sigma_50.png", ImageSize -> Large, PlotTheme -> "Classic", Epilog -> {Red, PointSize[0.008], Point[csucsok]}] 

我将是很好的具有小工具提示示出的位置（x轴的值）的红色点的（并且只有红点），并且强度值（y轴）当我点击他们，或者鼠标在他们身上。 有没有办法做到这一点？

Answer 1

也许让你Tooltip点单独情节：

data = Table[{i, RandomReal[{-1, 1}]}, {i, 20}]; 
toplot = Select[data, #[[2]] > 0 & ]; 
Show[{ 
     ListLinePlot[ data], 
     ListPlot[Tooltip[toplot], PlotStyle -> {PointSize[.05], Red}]}] 

（我们不能真正看到你没有你的数据在做什么。）