可以通过添加一个额外的数据点来实现将最低点用红色标记出来。具体做法是，首先找到最低点的位置，然后将该位置对应的数据点复制一份，并将其颜色设置为红色。
修改后的代码如下：
f[r, y] := (r^2*y)/(r - 1 - Log[r]); yIter[r_] := Block[{y0 = 0}, FixedPoint[(# /. y -> Function @@ {1 - Exp[-r #]}) &, y0, 50]] rList = Range[0, 4, 4⁄999]; data = Table[{rList[[i]], f[rList[[i]], yIter[rList[[i]]]]}, {i, 1,
1000}];
min = First@Ordering[data[[All, 2]]]; highlightedData = Join[data, {data[[min]]}, 2][[{min, -1}]]; ListPlot[highlightedData, PlotRange -> All, Frame -> True, Axes -> False, FrameLabel -> {“r”, “!(*FractionBox[(r^2*y), (r - 1 - Log[r])])”}, PlotStyle -> {PointSize[Tiny], Red}]
