可以通过添加一个额外的数据点来实现将最低点用红色标记出来。具体做法是，首先找到最低点的位置，然后将该位置对应的数据点复制一份，并将其颜色设置为红色。
修改后的代码如下：
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}]
