Mathematica- filling to y-axis

Study all the responses here and see if you can adapt it to what you need

http://stackoverflow.com/questions/6204898/plotting-on-the-y-axis-in-mathematica

This might not be an understandable or easy or dependable thing to do.

Start by trying to reproduce exactly the examples that they show. Then make very small changes and see if it continues to work. Try to figure out what went wrong and how to possibly correct it if it fails. Gradually work up to the actual problem you have.

 

Post the smallest simplest example dataset you can construct along with a simple clear explanation of what you want the result to look like and perhaps someone can see a way to accomplish what you are looking for.

 

Thank you. A good simple clear concrete example makes it much more likely to give you an answer like you are looking for.

In[1]:= Show[{
ListPlot[Table[{x, x*x}, {x, 1, 5, 1}], Filling -> Bottom, PlotStyle -> {Black, PointSize[0.015]}],
Graphics[Table[Line[{{1, x^2}, {x, x^2}}], {x, 1, 5, 1}]]
}]

Out[1]= ...PlotSnipped...

Then, only if you really need to, you spend minutes or hours or days fiddling with the hundreds of options and directives to adjust the style to try to get close to exactly what you want.