在ggplot中设置注释文本的宽度

Question

我需要在 ggplot 中为我的文本注释设置一个特定的宽度。例如，我希望第一个注释从x = 0 到x = 40，第二个注释从x = 50 到x = 90。换句话说，我需要使这些注释适合 0 到 40 之间以及 50 到 90 之间的空间。

我还希望文本对齐。

library(ggplot2)
librray(tibble)

df <- tibble(x = 1:100, y = 1:100)

ggplot(df, aes(x = x, y = y))+ geom_blank() +

  annotate(geom = 'text', x = 0, y = 50, hjust = 0, vjust = 0,
           label = 'Shortly after his arrival at Real Madrid in July 2018, ESPN journalist Dermot Corrigan described Vinícius
as a "zippy left winger or second striker". El Mundo described him "A player who is forever tormented,
teetering on the edge, on that invisible line between genius and ridicule. Judgment always hangs over
him, a winger unable to make his legs and feet move in unison, but he never gives up and that is a great
quality. A versatile player, although he is usually deployed on the left flank, he is capable of playing
anywhere along the front line,  and has also been used on the right or in the centre. ',
 size = 3,
color  ='black')+
  annotate(geom = 'text', x = 50, y = 50, hjust = 0, vjust = 0,
           label = 'Shortly after his arrival at Real Madrid in July 2018, ESPN journalist Dermot Corrigan described Vinícius
as a "zippy left winger or second striker". El Mundo described him "A player who is forever tormented,
teetering on the edge, on that invisible line between genius and ridicule. Judgment always hangs over
him, a winger unable to make his legs and feet move in unison, but he never gives up and that is a great
quality. A versatile player, although he is usually deployed on the left flank, he is capable of playing
anywhere along the front line,  and has also been used on the right or in the centre. ',
size = 3,
color  ='black')

ggplot2 有可能吗？有没有其他软件包可以帮助我做到这一点？

Answer 1

您可以使用ggtext::geom_textbox() 显示注释，并关闭实际框部分。请注意，您需要提前知道您的 x 限制，以便以标准化父母坐标（npc 单位）计算框的正确宽度。在这种情况下*如果您想要从 0 到 40 的范围为 1-100，则需要计算 (40-0)/((100 - 1) * 1.1)。 1.1 是默认的比例扩展因子（两边均为 5%）。添加了一些垂直线以显示文本在这些边界内。

library(ggplot2)
library(ggtext)
#> Warning: package 'ggtext' was built under R version 4.1.1

df <- data.frame(x = 1:100, y = 1:100)

width <- (40-0)/((100 - 1) * 1.1)

ggplot(df, aes(x = x, y = y))+ geom_blank() +
  
  annotate(geom = 'text_box', x = 0, y = 70, hjust = 0, vjust = 1,
           label = 'Shortly after his arrival at Real Madrid in July 2018, ESPN journalist Dermot Corrigan described Vinícius
as a "zippy left winger or second striker". El Mundo described him "A player who is forever tormented,
teetering on the edge, on that invisible line between genius and ridicule. Judgment always hangs over
him, a winger unable to make his legs and feet move in unison, but he never gives up and that is a great
quality. A versatile player, although he is usually deployed on the left flank, he is capable of playing
anywhere along the front line,  and has also been used on the right or in the centre. ',
           family = 'Yanone Kaffeesatz', size = 3, width = unit(width, "npc"),
           color  ='black', fill = NA, box.colour = NA, box.padding = margin())+
  annotate(geom = 'text_box', x = 50, y = 70, hjust = 0, vjust = 1,
           label = 'Shortly after his arrival at Real Madrid in July 2018, ESPN journalist Dermot Corrigan described Vinícius
as a "zippy left winger or second striker". El Mundo described him "A player who is forever tormented,
teetering on the edge, on that invisible line between genius and ridicule. Judgment always hangs over
him, a winger unable to make his legs and feet move in unison, but he never gives up and that is a great
quality. A versatile player, although he is usually deployed on the left flank, he is capable of playing
anywhere along the front line,  and has also been used on the right or in the centre. ',
           family = 'Yanone Kaffeesatz', size = 3, width = unit(width, "npc"),
           color  ='black', fill = NA, box.colour = NA, box.padding = margin()) +
  geom_vline(xintercept = c(0, 40, 50, 90))
#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
#> family not found in Windows font database
#> Warning in grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font
#> family not found in Windows font database

^{由reprex package (v2.0.0) 于 2021 年 12 月 11 日创建}

* 实际上应该是 (40 - 0) / ((100 - 0) * 1.1) 因为我没有考虑到注释的x = 0 会影响比例。

Answer 2

使用ggfittext::geom_fit_text 及其xmin 和xmax 美学。使用place 调整文本并使用padding.x 删除（默认）填充

library(ggplot2)
library(ggfittext)

ggplot() +
  geom_fit_text(aes(xmin = c(0, 50), xmax = c(40, 90),
                    y = 50,
                    label = c('Shortly after his arrival at Real Madrid in July 2018, ESPN journalist Dermot Corrigan described Vinícius
as a "zippy left winger or second striker". El Mundo described him "A player who is forever tormented,
teetering on the edge, on that invisible line between genius and ridicule. Judgment always hangs over
him, a winger unable to make his legs and feet move in unison, but he never gives up and that is a great
quality. A versatile player, although he is usually deployed on the left flank, he is capable of playing
anywhere along the front line,  and has also been used on the right or in the centre. ',
                              'Shortly after his arrival at Real Madrid in July 2018, ESPN journalist Dermot Corrigan described Vinícius
as a "zippy left winger or second striker". El Mundo described him "A player who is forever tormented,
teetering on the edge, on that invisible line between genius and ridicule. Judgment always hangs over
him, a winger unable to make his legs and feet move in unison, but he never gives up and that is a great
quality. A versatile player, although he is usually deployed on the left flank, he is capable of playing
anywhere along the front line,  and has also been used on the right or in the centre. ')),
                reflow = TRUE, place = "left", padding.x = grid::unit(0, "mm")) +
  xlim(0, 100)