I would like add parallel line to $x$ axis to emphasize that part is longer than it appears. See the figure I added (highlited part).

[![enter image description here](https://i.stack.imgur.com/X6hVc.png)](https://i.stack.imgur.com/X6hVc.png)

**Additional request:** Is it possible get longer ticks?

Here is my MWE:

```
f1[i_] := 2883.03 + (27645.2 i^0.993489)/(0.248356 + i^0.993489)

ticks = {

   {Table[{10^(3 + i), Superscript[10, 3 + i]}, {i, 0.4, 1.8, 0.3}], 
    None},

   {{{10^-4, 0}, {10^-3, Spacer@0}, {10^-2, 
      Superscript[10, -2]}, {10^-1, Spacer@0}, {10^0, 
      Superscript[10, 0]}, {10^1, ""}, {10^2, Superscript[10, 2]}}, 
    None}

   };

LogLogPlot[f1[i], {i, 10^-4, 100}, Frame -> True, 
 PlotRange -> {{10^-4.2, 130}, {10^3.35, 10^4.6}}, 
 FrameStyle -> Directive[Black, Thick], 
 FrameTicksStyle -> Directive[Black, Thick, 27], FrameTicks -> ticks, 
 PlotStyle -> Directive[Purple, AbsoluteThickness@2.7], 
 ImageSize -> 600]

```

[![enter image description here](https://i.stack.imgur.com/AHCR6.png)](https://i.stack.imgur.com/AHCR6.png)