У меня в легенде две строчки. Как сделать одну строку полужирной, синего цвета и крупным шрифтом, а одну строку мелким шрифтом, красным цветом и курсивом?
library(ggplot2)
library(gridExtra)
p <- qplot(data = mtcars, wt, mpg)
print(arrangeGrob(p, legend =
textGrob("large font size colour blue bold\n small font size colour red italic",
rot = -90, vjust = 1)))
Спасибо за помощь.
Вам нужно разделить текст на два textGrob:
library(ggplot2)
library(gridExtra)
p <- qplot(data = mtcars, wt, mpg)
t1 <- textGrob("small font size colour red italic",
gp = gpar(fontsize = 12, col = 'red', fontface = 'italic'),
rot = -90, vjust = 1)
t2 <- textGrob("large font size colour blue bold",
gp = gpar(fontsize = 20, col = 'blue', fontface = 'bold'),
rot = -90, vjust = 1)
print(arrangeGrob(p, t1, t2, widths = c(9/10, 1/20, 1/20), nrow = 1))
Решение с использованием expression и atop:
p <- qplot(data = mtcars, wt, mpg)
print(arrangeGrob(p, legend=
textGrob(expression(atop("large font size colour blue bold\n", atop(italic("small font size colour red italic")))),
rot = -90, vjust = 1, gp=gpar(fontsize=16,fontface="bold"))))
