Question: I am preparing a figure for an article, and I would like very much to be able to fill a curve, but not under it, but to the vertical axis, i.e. to the left. Due to the meaning of the data I present, I cannot exchange the axes.

Here is a minimal example:

```
Plot[ArcCot[x], {x, 0, 1}, PlotRange -> {{0, 1.1}, {0.5, 2}}, AxesLabel -> {x, y}]

```

Can anyone think of a way of filling the curve to the`y` axis? I find no mention of this kind of filling in the standard documentation.

Answer: 
Adding a line at the minimum value and shading as normal:-

```
min = MinValue[ArcCot[x], 0 <= x <= 1, x];
Plot[{ArcCot[x], min}, {x, 0, 1}, PlotRange -> {{0, 1.1}, {0.5, 2}}, 
 AxesLabel -> {x, y}, Filling -> {1 -> {2}}, PlotStyle -> {Automatic, None}]

```

![enter image description here](https://i.stack.imgur.com/2EIdA.png)
Using the function that I've previously defined [here](https://mathematica.stackexchange.com/questions/33126/filling-between-curves/33134#33134), we can do this:

```
Clear[x, y];

p = Plot[ArcCot[x], {x, 0, 1}, PlotRange -> {{0, 1.1}, {0.5, 2}}, AxesLabel -> {x, y}];

shadeBoundedArea[p, ArcCot[1] < y < ArcCot[x]]

```

![filled](https://i.stack.imgur.com/7HCo5.png)