How to Add Special Characters to Legends and Axes in R Using Plotmath and Expression()