If the number of data points is high enough, `BarChart` with the option `ChartLayout -> "Percentile"` can produce this kind of plots. E.g.: `BarChart[Table[{1 + Sin[x/10]^2, Log[x] Cos[x/7]^2, Sqrt[x], Log[x],
2 + Sin[x/23], 2 - Cos[x/50]}, {x, 1, 50, 0.1}],
ChartLayout -> "Percentile", Joined -> Automatic, BarSpacing -> None,
ChartStyle -> 3]`