問題來自群友，直接上程式碼

ListLinePlot[Labeled[{#[[2,1,2]],#[[2,2,2]]},NumberForm[#[[1]],3]]&/@Table[FindMinimum[{Cos[x]-Exp[x y],z+x^2+y^2<=8},{x,y}],{z,0.1,1,.1}],
Mesh->All,ColorFunction->([email protected][#2,{1.86,2}]&),ColorFunctionScaling->False,MeshStyle->Directive[PointSize->Smaller,Black]]
 

剛好是簡單的圖形 插值函式就簡單粗暴搞定了

拐彎的那種還是自己自行插值得到一個顏色函式 或者插值成引數方程就容易解決了

再附上一個相容性程式碼，沒有使用Labeled騷操作，自己繪製的標籤

data=Table[FindMinimum[{Cos[x]-Exp[x y],z+x^2+y^2<=8},{x,y}],{z,0.1,1,.1}];
ListLinePlot[{x,y}/.data[[;;,2]],Epilog->(Text[NumberForm[#[[1]],3],{#[[2,1,2]]+.005,#[[2,2,2]]-.005}]&/@data),Mesh->All]