使用 ggtext 在标签中的两个单词之间添加空格

Posted 2023-02-16

【中文标题】使用 ggtext 在标签中的两个单词之间添加空格

【英文标题】：Add white spaces between two words in a label using ggtext

【发布时间】：2021-05-17 21:54:33

【问题描述】：

我使用 ggtext 包来格式化由 ggplot2 制作的绘图的轴标签，特别是函数 element_textbox_simple()，我在 html 格式中存在一些问题，以在单词之间引入空格或空格。

在上图中，每个轴标签都有两个级别：

变量名称（例如 niceness） 带有标签的第二行描述了相应轴的每个极值（例如 jerk - nice）

为了实现这个“多级标签”，我使用 ggtext 来格式化带有以下 html 表达式的标签：

<br><span style = 'font-size:8pt'>Niceness</br><br><span style='word-spacing:20pt;font-size:10pt;color:red'>JERK NICE</span></br>"

我的问题是属性word-spacing 不起作用，我需要将每个轴的“带有标签的第二行”间隔到轴的极端。例如，在情节中，我想用许多空格替换 JERK 和 NICE 之间的文本。我尝试使用nbsp;，它假设编码一个空格但没有成功，它只将两个标签分隔一个默认空间。有什么想法吗？

您可以通过以下方式重现情节：

library(ggplot2)
library(ggtext)
library(latex2exp)

# Multivariate normal dist parameters:
mu <- c(50, 50)
Sigma <- matrix(c(200, 4, 8, 200), 2)

# Generate 10.000 data points
set.seed(323)
df <- as.data.frame(MASS::mvrnorm(5e3, mu, Sigma))

# Compute correlation between V1 and V2
cor0 <- round(cor(df$V1, df$V2), 2)

# Initial plot
p0 <- df %>% 
   ggplot() +
   geom_point(aes(V1, V2), alpha = .3, size = .2) +
   scale_x_continuous(breaks = seq(0, 100, 20), n.breaks = seq(0, 100, 5)) +
   scale_y_continuous(breaks = seq(0, 100, 20)) +
   coord_cartesian(xlim = c(0, 100), ylim = c(0, 100)) +
   labs(x = "<br><span style = 'font-size:8pt'>Niceness</br><br><span style='word-spacing:5pt;font-size:10pt;color:red'>JERK  (replace this text by a blank separation between these two extrem label descriptions)  NICE</span></br>",
   y = "<br><span style = 'font-size:8pt'>Attractiveness</br><br><span style = 'font-size:10pt;color:red'>NOT  (replace this text by a blank separation between these two extrem label descriptions)  HOT</span></br>",
   title = TeX(paste("$\\rho$ =", as.character(cor0)))) +
   theme_bw(base_size = 8) +
   theme(plot.title = element_text(hjust = 0.5),
         panel.grid.major = element_blank(),
         panel.grid.minor = element_blank(),
         axis.title.x = element_textbox_simple(
                          margin = margin(0, 100, 15, 100),
                          halign = 0.5
                        ),
         axis.title.y = element_textbox_simple(
                          margin = margin(0, 0, 0, 0),
                          orientation = "left-rotated",
                          halign = 0.5
         ))

【问题讨论】：

package documentation 中的注释：“提供渲染支持的 gridtext 包仅实现了极其有限的 Markdown/HTML/CSS 子集”。看起来不支持“字间距”。如果你愿意，你可以提交一个 github 问题。

我可以看到你努力制作一个可重复的例子 - 但你错过了对 magrittr 的调用（对于管道）（或只是 tidyverse），或者不清楚 TeX() 来自哪里

为了避免这种情况 - 我建议使用 reprex 包

@tjebo 你是对的，缺少的依赖是latex2exp::TeX();迟到了，我会按照你的建议修改问题以使用reprex

【参考方案1】：

也许你可以只annotate你想要的文字，如下所示。请注意coord_cartesian中的clip="OFF"

此外，您可以对 y 轴重复相同的操作。

# Initial plot
p0 <- df %>% 
  ggplot() +
  geom_point(aes(V1, V2), alpha = .3, size = .2) +
  scale_x_continuous(breaks = seq(0, 100, 20), n.breaks = seq(0, 100, 5)) +
  scale_y_continuous(breaks = seq(0, 100, 20)) +
  coord_cartesian(xlim = c(0, 100), ylim = c(0, 100), expand = TRUE, clip = "off") +
  labs(# x = "<br><span style = 'font-size:8pt'>Niceness</br><br><span style='word-spacing:5pt;font-size:10pt;color:red'>JERK  (replace this text by a blank separation between these two extrem label descriptions)  NICE</span></br>",
       x = "Niceness",
       y = "<br><span style = 'font-size:8pt'>Attractiveness</br><br><span style = 'font-size:10pt;color:red'>NOT  (replace this text by a blank separation between these two extrem label descriptions)  HOT</span></br>",
       title = "My Title" #TeX(paste("$\\rho$ =", as.character(cor0)))
       ) +
  annotate(geom = "text", x = c(0,100), y = -15, 
           label = c("JERK", "NICE" ), size = 5, color="red") +
  theme_bw(base_size = 8) +
  theme(plot.title = element_text(hjust = 0.5),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        axis.title.x = element_textbox_simple(
          margin = margin(0, 100, 15, 100),
          halign = 0.5
        ),
        axis.title.y = element_textbox_simple(
          margin = margin(0, 0, 0, 0),
          orientation = "left-rotated",
          halign = 0.5
        ))
p0

【讨论】：

我认为 OP 要求轴的极值 - 可能足以指定 x = c(-Inf, Inf)，也可能额外指定 hjust = c(0,1)（或者后者的相反方式，它总是让我感到困惑

是的，它可以放在任何地方。 x=c(0,100) 和 y = -15 与 expand=TRUE 中的 coord_cartesian 将显示在 x 轴的极端。

x=c(0,100) 只是在这个例子中。我会使用 Inf 来实现可扩展性

是的，这也可以。但是，它会在 0 之前显示 JERK，在 100 之后显示 NICE。我将留给用户按照他们的意愿显示。

不，不会的！没有额外的 hjust 论点。另外-您能否澄清Tex()的来源-您的代码不可重现。在我在控制台中运行它之前，你得到了我的支持，只需略读一下，拥有可重现的代码就好了