получение постоянного размера текста при использовании функции поверх

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 пакетом представ. (v0.2.1)}

Итак, я хотел выяснить, как сохранить постоянный размер текста для всех трех слоев . На самом деле я не уверен, почему размер текста автоматически изменяется в этом контексте.

Есть ли способ, которым я могу предотвратить это?

Answer 1

Я немного озадачен "заменой" в сюжете, но, возможно, следующее решает проблему:

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