如何在光泽中逐个添加图形

I am trying to make some demos for my stat class. Among other things i want to show the step by step process involved. For a simplified example of what i am looking for consider the following little toy R function:I am trying to make some demos for my stat clas