向 R 平方添加一个附加字母以在 ggplot 中进行注释

Question

我想这是一个很简单的问题，但我无法解决问题。我正在拟合一个线性混合效应模型，我想在我的图中插入边际和条件 R 平方。出于这个原因，我想给它们贴上标签：

R²m = 0.65

R²c = 0.75

使用该代码我得到了 R²：

annotate(geom = 'text', label = paste("R^2 == ", 0.65), parse = TRUE)

但是，我尝试尝试使用该代码，但无法获得 R² 后面的字母。你有什么建议吗？

Answer 1

一种方法是改用 bquote。这会将“m”和“c”作为索引添加到“R”。我发现在绘图中使用表达式总是有点繁琐，特别是如果你想变得非常花哨的话。

library(ggplot2)
ggplot(mtcars, aes(mpg, disp)) +
  geom_point()+
  annotate(geom = 'text', x = 20, y = 300, 
           label = bquote("R[m]^2 == 0.65"), parse = TRUE)

^{由 reprex package (v2.0.0)}

于 2021-06-07 创建

向 R 平方添加一个附加字母以在 ggplot 中进行注释

Add an aditional letter to R squared for annotate in ggplot

annotations

r

superscript

ggplot2