* `Plot`.

```
f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
Plot[{f[x], f[x]}, {x, 0, 2}, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> 
  Plot[f[x], {x, 0, 2}, 
    PlotStyle -> {AbsoluteThickness[2], White}][[1]]]
```
[![enter image description here][1]][1]

* `ListPlot`+ `Joined -> True`
```
f[x_] := 6 E^-x Sin[2*Pi*x^2];
g[x_] := Sin[2*x*10];
data = Table[{x, f[x]}, {x, 0, 2, .1}];
ListPlot[{data, data}, Joined -> True, 
 ColorFunction -> Function[{x, y}, Hue[g@x]], 
 ColorFunctionScaling -> True, Filling -> {{1 -> Bottom}, {2 -> Top}},
  Epilog -> ListPlot[data, PlotStyle -> White, Joined -> True][[1]]]
```
[![enter image description here][2]][2]

* `ListPlot`+ `Joined -> False`

[![enter image description here][3]][3]


  [1]: https://i.sstatic.net/UMPkw.png
  [2]: https://i.sstatic.net/YaPvG.png
  [3]: https://i.sstatic.net/HjrXa.png