r - 在r中使用atop函数时获得恒定的文本大小

Question

下面是我编写的复杂自定义函数的一个简单得多的示例。在这个函数的全长形式中，

"layer1"对应于 caption由用户输入，

"layer2"对应于统计检验的结果，

"layer3"对应于有关执行的统计测试的详细信息。

但是当所有三层都包含在标题中时，它看起来像这样 -

library(ggplot2)

ggplot(iris, aes(Species, Sepal.Length)) +
  geom_boxplot()  +
  labs(caption = substitute(atop(substitute(
    atop("layer1", "layer2")
  )
  , "layer3")))

创建于 2018-11-09 由 reprex package (v0.2.1)

所以我想找出一种方法来保留 所有三层的文本大小不变 .我实际上不确定为什么在这种情况下文本大小会自动更改。

有什么办法可以防止这种情况发生吗？

Answer 1

我对情节中的“替代品”有点困惑，但也许以下解决了问题:

ggplot(iris, aes(Species, Sepal.Length)) +
  geom_boxplot()  +
  labs(caption = substitute(atop(
    atop(displaystyle("layer1"), displaystyle("layer2")), "layer3")))