Plot Cellular Automata

Starting from a single black square, plot the evolution of the elementary cellular automaton rule 30 for 100 steps, and include a legend showing the rule icon.

In[1]:=

RulePlot[CellularAutomaton[30], {{1}, 0}, 100, PlotLegends -> "Icon", ImageSize -> 400]

Out[1]=