Wyrównaj tekst legendy w ggplot

Question

Mam trudności z wyrównaniem tekstu legendy w lewo.

library(ggplot2) 
library(reshape2) 
o3<- rnorm(1827, 50, 10) 
NO2<- rnorm(1827, 35, 7) 
NOx<- rnorm(1827, 45, 10) 
pm25<- rnorm(1827, 15, 4) 
date<-seq(as.Date('2000-01-01'),as.Date('2004-12-31'),by = 1) 
df<-data.frame(date,o3,NO2,NOx,pm25) 
meltdf <- melt(df,id="date") 

Z tego kodu jest automatycznie wyrównanie do lewej

ggplot(meltdf, aes(x = date, y = value, colour =variable)) + geom_smooth() + stat_smooth(method = "gam") 

jednak z po alignemt jest do centrum.

ggplot(meltdf, aes(x = date, y = value, colour =variable)) + 
     geom_smooth() + stat_smooth(method = "gam") + 
     scale_color_discrete(name="Pollutant" ,labels = c(expression(O[3]), 
           expression(NO[2]), 
           expression(NO[x]), 
           expression(PM[2.5]))) 

Jak mogę osiągnąć lewe wyrównanie z ostatnim scenariuszem?

Answer 1

musisz określić legend.text.align w theme():

ggplot(meltdf, aes(x = date, y = value, colour =variable)) + 
geom_smooth() + 
stat_smooth(method = "gam") + 
scale_color_discrete(name="Pollutant", 
    labels = c(expression(O[3]), 
       expression(NO[2]), 
       expression(NO[x]), 
       expression(PM[2.5]))) + 
theme(legend.text.align = 0) 

Alternatywnie, można użyć bquote zamiast expression i domyślne wyrównanie do lewej odbywa. Nie wiem, dlaczego po prostu użycie expression zmienia wyrównanie w prawo ...

ggplot(meltdf, aes(x = date, y = value, colour =variable)) + 
geom_smooth() + 
stat_smooth(method = "gam") + 
scale_color_discrete(name="Pollutant", 
    labels = c(bquote(O[3]), 
       bquote(NO[2]), 
       bquote(NO[x]), 
       bquote(PM[2.5])))