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

Question

我已经使用 expression() 阅读了许多关于此主题的帖子。 , paste() , 和 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)

Answer 1

您可以使用 substitute 的组合和 plotmath ( https://www.rdocumentation.org/packages/grDevices/versions/3.5.1/topics/plotmath ) 将文本斜体-

# setup
set.seed(123)
library(ggplot2)

# dataframe
df <- data.frame(x = c(1:5), y = c(1:5))

# label
eq <- substitute(
  expr =
    paste(
      italic("y"),
      " = ",
      a,
      " + ",
      b,
      "(",
      italic("x"),
      "); ",
      italic("r") ^ 2,
      " = ",
      r2
    ),
  env = base::list(a = 1,
                   b = 2,
                   r2 = 0.9)
)

# plot
ggplot(data = df, aes(x = x, y = y)) +
  geom_point(color = "black") +
  labs(subtitle = eq)

创建于 2018-12-04 由 reprex package (v0.2.1)