Stick Figure Function Fun - R

I have created a stick figure generating function for the purposes of adding a human figure as a demonstration of scale to some of my graphs as well as potentially emoticons to my shiny/concerto applications.

You can change basic graphing parameters like scale, line color, and line width as well as more entertaining options such as arm position, gender (dress or no dress), facial emotion (happy, sad, or annoyed), as well as whether the figure is wearing a hat, and color or clothes.

The code is available on github so feel free to add additional options or modifications!

Github-Source 

Figure on right:
draw.stick(0,0, 
            face="surprised", 
            gender="male",
            arms="down", hat=F)