I attempted to make a legend in R...