r ggplot2: các kích thước phông chữ khác nhau trong chú thích

Question

Tôi có hai dòng trong chú giải của mình. Làm cách nào để tạo một dòng chữ đậm, màu xanh dương và phông chữ lớn và một dòng với phông chữ nhỏ, màu đỏ và in nghiêng?

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))) 

Cảm ơn sự giúp đỡ của bạn.

Answer 1

Bạn cần phải chia văn bản của bạn thành hai textGrob s:

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)) 

Answer 2

Một giải pháp sử dụng expression và 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"))))