带表达式的ggplot2双行标签

Question

我想在两行上用expression()语句写一个轴标签。但是，plotmath和expression不允许这样做（例如，下标文字显示在最右侧）。我在2005年左右发现this discussion类似的问题，但他们提供的工作并没有转化为我在ggplot2中的应用程序。 A recent question解决了多行表达式语句的不同排列问题，但此处提供的工作再次不适用于此。

示例：

p <- ggplot(mtcars,aes(x=wt,y=mpg))+
  geom_point()+
  xlab(expression(paste("A long string of text goes here just for the purpose \n of illustrating my point Weight "[reported])))
try(ggsave(plot=p,filename=<some file>,height=4,width=6))

产生一个图像，其中下标“报告”在我希望它位于前一个单词旁边时向右踢出。

Answer 1

我认为这是一个错误。 （或者是“不支持多行表达”这一事实的结果，如您链接到的对话中所述）。

Gavin Simpson提到的解决方法是：

#For convenience redefine p as the unlabeled plot
p <- ggplot(mtcars,aes(x=wt,y=mpg))+geom_point()

#Use atop to fake a line break
p + xlab(expression(atop("A long string of text for the purpose", paste("of illustrating my point" [reported]))))

可以对下标使用真正的换行符。在下面的简短示例中，与示例的格式相同，下标正确放置在文本的其余部分旁边，但两行文本未正确居中：

p + xlab(expression(paste("line1 \n line2 a" [b])))

我认为在这两种情况下，当文本的上一行比文本的下一行长时，下标是错误的。比较

p + xlab(expression(paste("abc \n abcd" [reported])))

p + xlab(expression(paste("abc \n ab" [reported])))

下标总是最终对齐在右上角的右边。

p + xlab(expression(paste("abcdefghijklmnop \n ab" [reported])))

Answer 2

你可以使用这个技巧，

library(gridExtra)
library(grid)

element_custom <- function() {
  structure(list(), class = c("element_custom", "element_text"))
}

element_grob.element_custom <- function(element, label="", ...)  {

  mytheme <- ttheme_minimal(core = list(fg_params = list(parse=TRUE, 
                                                         hjust=0, x=0.1)))
  disect <- strsplit(label, "\\n")[[1]]
  tableGrob(as.matrix(disect), theme=mytheme)
}

# default method is unreliable
heightDetails.gtable <- function(x) sum(x$heights)

ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
  geom_line() + 
  labs(x= "First~line \n italic('and a second') \n integral(f(x)*dx, a, b)")+
  (theme_grey() %+replace% theme(axis.title.x = element_custom()))

Answer 3

ggtext包通过允许HTML标签格式化/自定义标签和文本来提供不同的选择。

library(ggtext)
ggplot(mtcars, aes(wt, mpg)) +
  geom_point() +
  xlab("A long string of text goes here just for the purpose<br>of illustrating my point Weight<sub>reported</sub>") +
  theme(axis.title.x = element_markdown())

Answer 4

1）使用cowplot::draw_label()

的解决方案

还可以使用来自软件包cowplot的注释功能draw_label()（在this讨论中建议）。我们可以称呼cowplot::draw_label()尽可能多的文本行。当cowplot::draw_label()与cowplot::ggdraw()结合使用时，它可以在画布/工作表上的任何地方进行注释，坐标的范围是0到1（相对于整个画布）。

需要调整注释位置，并为自定义轴标题留出足够的空间。

请注意，cowplot软件包当前会更改默认的ggplot主题，因此，如果需要，请按照here的说明在加载软件包后使用theme_set()。

还要注意，函数cowplot::draw_label()在幕后使用ggplot2::annotation_custom()。我将在下面的第二部分中对此进行更多介绍。

library(ggplot2)
library(cowplot)
#> 
#> Attaching package: 'cowplot'
#> The following object is masked from 'package:ggplot2':
#> 
#>     ggsave

# If needed, revert to default theme (cowplot modifies the theme); 
# theme_set(theme_grey())

p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()
# Make enough space for the custom two lines axis title
p <- p + 
  xlab("") + # empty label
  # Tweak the margins (push the label down by forcing a wider top margin)
  theme(axis.title.x = element_text(size = 10, # also adjust text size if needed
                                    margin = margin(t = 10, r = 0, b = 0, l = 0,
                                                    unit = "mm")))

# The two lines we wish on the plot
line_1 <- "A long string of text for the purpose"
line_2 <- expression(paste("of illustrating my point" [reported]))
# Or avoid paste() (is not actually needed)
# line_2 <- expression("of illustrating my point" [reported])

# Call cowplot::draw_label two times to plot two lines of text
ggdraw(p) + 
  draw_label(line_1, x = 0.55, y = 0.075) + # use relative coordinates for positioning
  draw_label(line_2, x = 0.55, y = 0.025)

请注意，cowplot::draw_label()也可以与设置剪裁coord_cartesian(clip = "off")结合使用，从而可以在画布上的任何位置进行绘制。这次我们不再使用相对坐标，而是使用绘图/数据中的相对坐标（绝对坐标）：

# Other two expressions
line_1b <- expression(bolditalic('First line'))
line_2b <- expression(integral(f(x)*dx, a, b))

p + coord_cartesian(clip = "off") + # allows plotting anywhere on the canvas
  draw_label(line_1b, x = 3.5, y = 8.2) + # use absolute coordinates for positioning
  draw_label(line_2b, x = 3.5, y = 6)

^{由reprex package（v0.2.1）于2019-01-14创建}

---

2）使用ggplot2::annotation_custom()

的解决方案

如上所述，cowplot::draw_label()是ggplot2::annotation_custom()的包装。因此，除了cowplot::draw_label()之外，我们还可以直接使用ggplot2::annotation_custom()并与剪切功能结合使用-coord_cartesian(clip = "off")，合并this pull request后才可用。

但是，这种方法比较冗长，坐标参数更多，我们需要使用grid::textGrob()。

# Some other two lines we wish on the plot as OX axis title
line_1c <- expression("Various fonts:" ~ bolditalic("bolditalic") ~ bold("bold") ~ italic("italic"))
line_2c <- expression("this" ~~ sqrt(x, y) ~~ "or this" ~~ sum(x[i], i==1, n) ~~ "math expression")
# the ~~ ads a bit more space than ~ between the expression's components

p + coord_cartesian(clip = "off") +
  annotation_custom(grid::textGrob(line_1c), xmin = 3.5, xmax = 3.5, ymin = 7.3, ymax = 7.3) +
  annotation_custom(grid::textGrob(line_2c), xmin = 3.5, xmax = 3.5, ymin = 5.5, ymax = 5.5)

^{由reprex package（v0.2.1）于2019-01-14创建}