legend code snippets in r