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

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

enter image description here

在上图中,每个轴标签都有两个级别:

  • 变量的名称(例如 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
         ))
stack overflow Add white spaces between two words in a label using ggtext
原文答案
author avatar

接受的答案

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

此外,您可以对 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

output


答案:

作者头像

虽然注释会起作用,但我发现通过添加一系列与绘图背景颜色相同的句点来欺骗 ggtext 添加空格更容易(而且我认为通常更好看)。这可以通过更新您的 labs() 部分来完成:

labs(
     x = paste0(
         "<br><span style = 'font-size:8pt'>Niceness</br><br>",
        "<span style='word-spacing:5pt;font-size:10pt;color:red'>JERK",

        #add whitespace:
        "<span style = 'color:#ffffff;'>...................................................................................................</span>", 

        "NICE</span></br>"),

     y = paste0(
         "<br><span style = 'font-size:8pt'>Attractiveness</br><br>",
         "<span style = 'font-size:10pt;color:red'>NOT",  

         #add whitespace:
        "<span style = 'color:#ffffff;'>...................................................................................................</span>",  

        "HOT</span></br>"),

     title = TeX(paste("$rho$ =", as.character(cor0))))

这会给你一个看起来像这样的情节: resulting plot