使用atop（）时完全左对齐

Question

使用atop()时如何完全左对齐文本？

library(tidyverse)

mtcars %>%
  mutate(cyl = str_c("atop(bold(", cyl, "~long~text~on~the~top),(shorttext))")) %>% 
  ggplot(aes(hp, wt)) +
  geom_line() +
  facet_wrap(~cyl, labeller = label_parsed) +
  theme(strip.text.x = element_text(hjust = 0))

Answer 1

现在我肯定会使用出色的 unload_extension 包来回答这个问题

ggtext

^{由 reprex package (v0.3.0) 于 2021 年 1 月 3 日创建}