Ubarwienie części tytułu na wykresie

Question

Czy można pokolorować części tytułu na wykresie?

x = 1:10 
y = 1:10 
plot(x, y, main="title (slope=1)") 

W tym wykresie chciałbym zmienić kolor na slope=1 na czerwony.

Answer 1

Jest to dość proste rozwiązanie problemu:

plot(x, y) 
title(expression("title (" * phantom("slope=1)") * ")"), col.main = "black") 
title(expression(phantom("title (") * "slope=1"), col.main = "red")