plot_tree: Added ggplot code to fix ugly legend "a"s #1748
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
When using plot_tree with tip labels and a color, the legend is altered and colored "a"s appear. I tried removing these after executing the plot_tree command but was not able to. Instead I needed to edit the plot_tree function itself to add "show.legend = FALSE" in the final section.
This removes the geom_text "a" from the legend.
This image shows the "a"s in the legend:
![image](https://private-user-images.githubusercontent.com/37250718/326570945-044a772f-b6e4-4e81-801b-987477d0f8c2.png?jwt=eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJnaXRodWIuY29tIiwiYXVkIjoicmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbSIsImtleSI6ImtleTUiLCJleHAiOjE3Mzk0NjcwMjEsIm5iZiI6MTczOTQ2NjcyMSwicGF0aCI6Ii8zNzI1MDcxOC8zMjY1NzA5NDUtMDQ0YTc3MmYtYjZlNC00ZTgxLTgwMWItOTg3NDc3ZDBmOGMyLnBuZz9YLUFtei1BbGdvcml0aG09QVdTNC1ITUFDLVNIQTI1NiZYLUFtei1DcmVkZW50aWFsPUFLSUFWQ09EWUxTQTUzUFFLNFpBJTJGMjAyNTAyMTMlMkZ1cy1lYXN0LTElMkZzMyUyRmF3czRfcmVxdWVzdCZYLUFtei1EYXRlPTIwMjUwMjEzVDE3MTIwMVomWC1BbXotRXhwaXJlcz0zMDAmWC1BbXotU2lnbmF0dXJlPTM5N2U4MTFlNzlmYmQzNTNkZTQzYjY3Y2M0MDNlNGMwYzYxNmRkZTNlOWEwY2E5OWJlZjk1MzBjZGEyMjhjMmUmWC1BbXotU2lnbmVkSGVhZGVycz1ob3N0In0.dp1ZAux7zgdRNXO0kONSxWfivsqJPCqa-cRT2ZdBq4A)
Here is what a similar tree looks like with "show.legend=FALSE" added for the tip labels:
p <- p + geom_text(labelMap, tiplabDT, size = I(text.size),
hjust = -0.1, na.rm = TRUE, show.legend = FALSE) #added show.legend=FALSE so that the legend does not show colored "a"s when using plot_tree.