如何在tag_facets（）中创建新行？

Question

在图的第一个方面，我在顶角上有一个标题，上面写着“这很有趣”，但我希望它显示为：

this is interesting
what now

每次我放入\ n时我想要一条新行，但是我不确定如何在tag_facets（）的上下文中进行操作。

data(iris)
library(ggplot2)
# devtools::install_github("eliocamp/tagger")
library(tagger)


ggplot(data=iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point(aes(color=Species, shape=Species)) +
  xlab("Sepal Length") +  ylab("Sepal Width") +
  ggtitle("Sepal Length-Width") +
  tag_facets(
    tag_pool = c("this is interesting\nwhat now", "for what:\nnow", "hey:\nhow are you?"),
    tag_suffix = "",
    position = "tr") +
  theme(tagger.panel.tag.background = element_rect(fill = "white")) + facet_wrap(~Species)

任何指导都将不胜感激！

Answer 1

问题是tagger使用gridtext :: richtext_grob在引擎盖下，它允许通过html，css和markdown进行格式化，但需要使用＆lt; br＆gt; 而不是\ n添加销售折断：

library(ggplot2)
library(tagger)

tag_pool <- c("this is interesting\nwhat now", "for what:\nnow", "hey:\nhow are you?")
tag_pool <- gsub("\\n", "<br>", tag_pool)

ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point(aes(color = Species, shape = Species)) +
  xlab("Sepal Length") +
  ylab("Sepal Width") +
  ggtitle("Sepal Length-Width") +
  tag_facets(
    tag_pool = tag_pool,
    tag_suffix = "",
    position = "tr"
  ) +
  theme(tagger.panel.tag.background = element_rect(fill = "white")) +
  facet_wrap(~Species)

Answer 2

这是你想要的吗？

data(iris)
library(ggplot2)

ggplot(data=iris, aes(x = Sepal.Length, y = Sepal.Width)) + 
  geom_point(aes(color=Species, shape=Species)) +
  xlab("Sepal Length") +  ylab("Sepal Width") +
  ggtitle("Sepal Length-Width") +
  facet_wrap(~Species)+ 
  geom_label(data = data.frame(x = 6, y = 5, Species = "setosa", 
                              label = "this is interesting\nwhat now"), 
                                  aes(x = x, y = y, label = label), size = 4)