RandomInteger[1]

length=10;n=length; LBern=RandomInteger[1,n]

LCoinToss=-1+2*LBern

LWalk=Accumulate[LCoinToss]

ListPlot[LWalk]

ListPlot[LWalk, Filling->Axis]

ListPlot[LWalk, AspectRatio -> 1, Joined -> True]

LWalk=Prepend[Accumulate[LCoinToss],0]

ListLinePlot[LWalk]

WalkToPlot[w_]:=Table[{i-1,w[[i]]}, {i,1,Length[w]}]

WalkToPlot[LWalk]

ListLinePlot[WalkToPlot[LWalk]]