我有一个脚本,用于生成多行带有条形文本的多面图。但这不再起作用了。下面是一个 MWE,应该从中解析条带文本,例如"bold(A)\nreally~long~extra"
:
一个
很长的额外
正如您通过调试功能看到的那样,第二行被切断。我什至增加了利润,但无济于事......
任何想法是什么问题?
exmpl = data.frame(a = 1:100,
b = rep(1:5, 20),
f = factor(rep(LETTERS[1:5], each = 20))) %>%
as_tibble() %>%
mutate(f2 = paste0("bold(",f, ")\nreally~long~extra"))
ggplot(exmpl, aes(x = b, y = a)) +
facet_grid(. ~ f2, labeller = label_parsed) +
geom_point() +
theme(strip.text.x = element_text(size = 10, hjust = 0, margin = margin(.5, 0, .5, 0, "cm"), debug = T))
编辑:
当我们这样做的时候,我只是想出了这个解决方法,因为我以前的使用解决方案label_bquote()
不再起作用了。请看看这个其他问题,也许你也可以帮我解决这个问题?