R ggplot2 annotieren mit tiefgestelltem und Tilde

Question

Ich versuche, ein ggplot2 Diagramm mit einer Markierung annotieren, die die Verteilung für X1 ~ N angibt (mu = 10, Sigma = 3), wo die 1 tiefgestellt werden soll, mögen dies:

label1<-"X[1] ~ N(\U03bc = 10, \U03c3 = 3)" 

Wenn ich label1 wie folgt aus:

library(ggplot2) 
label1<-"X[1] ~ N(\U03bc = 10, \U03c3 = 3)" 
ggplot() + annotate("text", x=18,y=0.05,label=label1) 

der Index wird ignoriert, der Rest ist, was gewünscht wird.

Wenn ich label1 wie folgt aus:

library(ggplot2) 
label1<-"X[1] ~ N(\U03bc = 10, \U03c3 = 3)" 
ggplot() + annotate("text", x=18,y=0.05,label=label1,parse=TRUE) 

der Index korrekt aufgetragen ist, aber die Tilde-Transformationen in einem Raum.

Irgendwelche Ratschläge wie zu machen und der Index und das Tilde-Zeichen passieren? Vielen Dank!

Answer 1

% auf die Tilde als solche hinzufügen:

label1<-"X[1] %~% N(\U03bc = 10, \U03c3 = 3)" 

Answer 2

Sie 2 ~ mit %~% in Verfahren ersetzen kann (das heißt parse = TRUE). Ich ersetzen auch die Unicode für mu & Sigma mit ihren griechischen Buchstaben Darstellungen:

label1 <- "X[1] %~% N(mu == 10, sigma == 3)" 
ggplot() + 
    annotate("text", x=18, y=0.05, label=label1, parse=TRUE)