原子半径と原子番号の階段プロットを作成する.
ListStepPlot[Table[ElementData[z, "AtomicRadius"], {z, 82}], PlotMarkers -> Automatic, ImageSize -> 550, PlotTheme -> "Detailed"]