Create LegendExample.R