如何向 ggplot 添加带有斜体的复杂标签和变量？

我已经阅读了很多关于这个主题的帖子expression(), paste(), and bquote()，或某种组合。我认为我已经接近解决我的问题，但我就是无法到达那里。以下脚本生成一个标有“y = 1 + 2(x); r^2= 0.9”的图。如何将“y”和“x”斜体化，并将“r”斜体化并上标“r^2”的2？如果我忽略了之前的相关帖子，抱歉，但请指导我查看。

df <- data.frame(x=c(1:5), y=c(1:5))
a <- 1    
b <- 2
r2 <- 0.9
eq <- paste("y = ", a, " + ", b, "(x); r^2=", r2)
ggplot(data=df, aes(x=x, y=y))+
  geom_point(color="black")+
  geom_text(x=2, y=4,label=eq, parse=FALSE)

你可以使用annotate()这允许您直接粘贴到图中。

library(ggplot2)
ggplot(data=df, aes(x=x, y=y)) +
  geom_point(color="black") +
  annotate('text', 2.5, 4, 
           label=paste("italic(y)==", a, "+", b, 
                       "~italic(x)~';'~italic(r)^2==", r2), 
           parse=TRUE, 
           hjust=1, size=5)

Yields:

Data:

df <- data.frame(x=c(1:5), y=c(1:5))
a <- 1
b <- 2
r2 <- 0.9