如何将数据框值和数学运算符添加到 R 中的 geom_text 中？

Question

我正在尝试使用 geom_text 创建标签“脚踝吸收 W = -0.52 - 0.13 x 跳跃高度”。我的理解是我需要在 expression() 中使用 %*% 来输出 x 符号。这些数字存储在数据框中。我很难让 expression() 读取数据帧值 - 它只是打印数据帧名称。

这是我当前的代码：

geom_text( data = subset( AnkleAbsorptionWorkvsHopHeightAndLimb_2.3Hz_Braking_BothEffects_GroupEstimates, Limb_ID ==  'Involved'), label = expression( 'Ankle Absorption W = ' AnkleAbsorptionWorkvsHopHeightAndLimb_2.3Hz_Braking_BothEffects_GroupEstimates$Intercept[1], ' ', AnkleAbsorptionWorkvsHopHeightAndLimb_2.3Hz_Braking_BothEffects_GroupEstimates$Slope[2] %*% 'Hop Height' ), x = 0, y = 0.08, size = 50/.pt, fontface = 'bold', color = '#c51b7d' )

结果只是打印

'AnkleAbsorptionWorkvsHopHeightAndLimb_2.3Hz_Braking_BothEffects_GroupEstimates$Intercept[1]'

而不是存储的值。

我查看了其他帖子并尝试在表达式（）中使用bquote（）和paste（），但它只打印'bquote'和'paste'。

非常感谢您提供的任何帮助。谢谢！

Answer 1

这是使用

ggtext

与标准数据集（具有较短变量名称）的示例：

ggplot(mtcars, aes(hp, wt)) +
  ggtext::geom_richtext(aes(label = glue::glue("{hp} × {wt}")), 
                        fill = NA, label.color = NA)