You can use FillingStyle
and PlotStyle
:
Graphics3D[
Table[Plot[Sin[n x], {x, 0, 2 Pi}, Filling -> Axis,
FillingStyle -> Directive[Red, Opacity[.5]],
PlotStyle -> Red][[1]] /.
GraphicsComplex[pts_, other__] :>
GraphicsComplex[pts /. {x_Real, y_} :> {x, n, y}, other], {n, -3,
3, 1}], Axes -> True, AxesStyle -> Red, AxesLabel -> {x, y, z},
PlotRange -> {{-1, 7}, {-4, 4}, {-2, 2}}]