R verketten unterschiedlich stilisierte Zeichen

Question

Ich würde gerne meinen Plot wie "Plot 1(p = 0,05)" nennen. Bitte beachten Sie, dass der Titel bolded ist und p-Wert ist kursiv.

Ich konnte manuell nach Inhalt und etwas tun, wie Plotten:

text(x1, y, "Plot 1", font=2) 
text(x2, y, "(p=0.05)", font=3) 

Es ist jedoch umständlich zu berechnen Koordinaten so möchte ich etwas tun:

title <- (string concatenation here?) 
plot(..., main=title) 

ich gescheitert Finden Sie in dieser Angelegenheit Hilfe, lassen Sie diese Frage hier.

Vielen Dank im Voraus für Ihre Hilfe!

Answer 1

Ich würde vorschlagen, die ?plotmath Ausdrücke zu verwenden, um Ihre Formatierung anstelle der font= Parameter zu tun. Zum Beispiel

plot(c(1,3), c(1,3)) 
text(2,2,expression(bold("Plot 1") ~ (italic("p=.05")))) 

Ergebnisse in

Hinweis, dass man nicht paste() Ausdrücke zusammen so leicht wie können Sie Strings. Oft versuchen die Leute dann aber Variablen für die Teile in Anführungszeichen einzugeben, aber um das zu tun, müssen Sie einen Ausdruck mit bquote() oder substitute() erstellen. Zum Beispiel

plotname <- "Plot 1" 
pvalue <- paste0("p=", formatC(.04944, digits=2, format="f")) 
text(2,2,bquote(bold(.(plotname)) ~ (italic(.(pvalue))))) 

Answer 2

Es ist ziemlich einfach. Versuchen Sie, Ausdrücke in main = einzufügen.

wie folgt aus:

x<- seq(6:1) 
y<-c(5,3,77,6,5,1) 
main="title", sub="subtitle" 
plot(x,y, main=expression(paste(bold("Plot1"), italic("(p=0.05)"))))