ggplot2中如何注释包含动态变化值的分数表达式

问题核心是直接写在parse字符串里的变量名不会被R识别为环境中的变量，只会被当作普通文本解析。下面是3种可行的实现方案：

方法1：使用bquote()（最推荐） #

bquote()是R原生支持的表达式拼接函数，使用.()包裹需要插入的动态变量，变量会被自动替换为当前环境中的值，无需手动处理字符串拼接：

library(ggplot2)
Changing_Value <- 150

ggplot(data=data.frame(x=0,y=0))+
  annotate('text', x = 0, y = 0, 
           label = bquote(P^{frac(-1,K)} == .(Changing_Value)),
           parse = TRUE,
           size=7) 

如果需要同时保留变量名和值，也可以调整.()的拼接逻辑，比如bquote(P^{frac(-1,K)} == Changing_Value[.(Changing_Value)])。

方法2：使用paste0()拼接表达式字符串 #

如果更习惯用字符串拼接的方式，可以先把动态变量转成字符串，和数学表达式的语法拼接完成后再交给parse解析：

library(ggplot2)
Changing_Value <- 150
expr_str <- paste0("P^{frac(-1,K)} == ", Changing_Value)

ggplot(data=data.frame(x=0,y=0))+
  annotate('text', x = 0, y = 0, 
           label = expr_str,
           parse = TRUE,
           size=7) 

方法3：使用glue包简化复杂拼接 #

当需要插入的变量较多、表达式结构复杂时，可以用glue包简化拼接逻辑，语法更易读：

library(ggplot2)
library(glue)
Changing_Value <- 150
expr_str <- glue("P^{frac(-1,K)} == {Changing_Value}")

ggplot(data=data.frame(x=0,y=0))+
  annotate('text', x = 0, y = 0, 
           label = expr_str,
           parse = TRUE,
           size=7) 

内容的提问来源于stack exchange，提问作者Sam_9090