If I have the following code:

```
data = {{2, 66.9795853828354}, {Log(300)/Log(10),
70.18157017698786}, {Log(600)/Log(10), 71.76921354704794}, {3,
72.4945695680508}, {-2.3010299956639813`,
54.00231502199229}, {-(Log(60)/Log(10)),
55.1941444178587}, {-(Log(20)/Log(10)), 56.003834022541035}, {-1,
56.949679030549746}, {-(Log(6)/Log(10)),
57.3050045190135}, {-(Log(10/3)/Log(10)),
57.72132372329668}, {-(Log(2)/Log(10)),
58.24888194249831}, {-2.3010299956639813,
54.03670125564749}, {-(Log(60)/Log(10)),
55.11571197888246}, {-(Log(20)/Log(10)), 56.17041542461532}, {-1,
56.71167863055032}, {-(Log(6)/Log(10)),
57.25059302294601}, {-(Log(10/3)/Log(10)),
57.70966183063876}, {-(Log(2)/Log(10)), 58.106793148660984}};
eqn = ((log10q - Log10(qref)) ==
c1*(Tfp - Tfpref)/(c2 + (Tfp - Tfpref)));
model = Tfp /. Solve(eqn, Tfp)((1)) // FullSimplify;
const = {Tfpref -> 57.25, qref -> 10/60 };
model2 = model /. (const // Rationalize) // FullSimplify;
nlm = NonlinearModelFit(data, {model2, c1 > 5, c2 > 5}, {c1, c2},
log10q);
```

Which plotted with the following code gives:

```
Show({ListPlot(data, PlotStyle -> {Red, AbsolutePointSize(6)},Frame -> True, Axes -> False, FrameStyle -> 16, ImageSize -> Large,GridLines -> Automatic, GridLinesStyle -> Lighter(Gray, .8),FrameLabel -> (Style(#, 20, Bold) & /@ {HoldForm@Log10("q (K/s)"), Row({Subscript(T, f'), " (", Degree, " C)"})})), Plot(nlm(log10q), {log10q, Min(data((All, 1))), Max(data((All, 1)))})},(*The legends in the Epilog start here*)Epilog -> Inset(Framed(Column({PointLegend({Red}, {"Data"}, {LegendMarkerSize -> 15}, {LabelStyle -> 15}),LineLegend({Blue}, {"Fit"}, {LegendMarkerSize -> 15}, {LabelStyle -> 15})}), RoundingRadius -> 10),Scaled({0.35, 0.8})))
```

Question:

How can I add text in the Figure as to create a plot similar to this (done with Paint)?:

Where in the image I have two texts “Range 1” and “Range 2” as well as two red lines separating the two ranges.