Как добавить математический символ (лезвие) в заголовок ggplot

Question

Я пытаюсь добавить \lozenge в заголовок ggplot2. Некоторым примером может служить код:

tmp = data.frame(x = rnorm(100), y = rnorm(100)) 
ggplot(tmp, aes(x, y)) + 
    geom_point() + 
    ggtitle(expression(lozenge)) 

Но я не могу получить лепешку. Он просто печатает слово «лепешка». Мне также нужно иметь возможность менять цвет лепешки.

Answer 1

Вы можете попробовать:

ggplot(tmp, aes(x, y)) + 
     geom_point() + 
     ggtitle(bquote(symbol("\340"))) 

Чтобы изменить цвет, вы можете добавить theme аргумент.
Например, для красного пастилки:

ggplot(tmp, aes(x, y)) + 
      geom_point() + 
      ggtitle(bquote(symbol("\340"))) + 
      theme(plot.title=element_text(color="red")) 

на примере:

EDIT

Если вы хотите, чтобы иметь название двухцветный, после решения Роланда из this question , вот как это делается:

# assign your plot object to a variable 
p<-ggplot(tmp, aes(x, y)) + geom_point() + ggtitle(bquote(paste("some text ",symbol("\340")," some more text",sep=""))) 

# get the "Grob" object 
grob_p<- ggplotGrob(p) 

# modify the text and text colors. Here, you have to use the hexadecimal code for the lozenge  
grob_p[[1]][[8]]$label<-c("some text ", bquote("\U0025CA"), " some more text") 
grob_p[[1]][[8]]$gp$col<-c("black","red","black") 

# adjust the coordinates of the different strings 
grob_p[[1]][[8]]$x<-unit(c(0.41,0.5,0.63),"npc") 

# plot the modified object 
plot(grob_p)