R-使用atop时不同的字体大小

Question

创建y轴有两条线的曲线图。我使用atop函数，如下所示：

plot + ylab(expressions(atop("Line 1","Line 2")))

想知道是否可以更改第一行的字体大小，即使其比第二行更大？

谢谢!

Answer 1

是一种使用绘图数学scriptstyle函数使字体的特定部分变小的机制。它还有另一个make-甚至更小的版本。有关绘图数学函数的完整列表，请查看?plotmath页面。我不知道有什么方法可以让字体变大。

plot + ylab(expression( atop(Line~1, 
                             scriptstyle(Line~2))
           ))

注意，这里没有expressions函数，并且我将您的文本转换为真实的R表达式。您可以查看axis.title.y的element_text特性的主题()设置，以增加文本大小。

plot + ylab(expression( atop( Line~ 1,
                             scriptstyle( Line~ 2) ))) + 
       theme(axis.title.y = element_text( size = rel(2) ) )

Answer 2

除了plotmath之外，您还可以使用grid函数直接绘制文本：

library("gridExtra")
gt <- grobTree(ggplotGrob(plot + ylab("")), textGrob("Line 1", 0.01, 0.5, rot = 90, gp = gpar(fontsize = 18)), textGrob("Line 2", 0.025, 0.5, rot = 90, gp = gpar(fontsize = 10)))
plot.new()
grid.draw(gt)