R - ggplot 使用粘贴意外符号注释标签错误

Question

我已经搜索了这个主题并尝试了很多不同的东西，但仍然无法以正确的方式注释我的标签。

在我的标签上，我想显示"R^2 = 0.81，p 值 = 0.04，n = 50"。到目前为止，我已经尝试过：

df <- data.frame(x =  rnorm(10), y = rnorm(10))
stat <- paste("R^2= 0.81", "p-value= 0.04", "n= 50")
ggplot(df, aes(x = x, y = y)) + 
  geom_point() + 
  annotate("text", x = mean(df$x), y = mean(df$y), parse = T, label=stat)

这给了我以下错误：Error in parse(text = as.character(lab)) : <text>:1:13: unexpected symbol 1: R^2= 0.81 p">

我尝试使用 expression 而不是 paste ，就像 stat <- expression("R^2= 0.81", "p-value= 0.04", "n= 50") 一样，但这给出了不同的错误(Aesthetics must be either length 1 or the same as the data (1): label(。

我还注意到有些人如何使用撇号来解决逗号问题，所以我尝试stat <- paste("R^2= 0.81","p值= 0.04","n= 50")，这也会产生错误。如何正确注释我的标签？

Answer 1

df <- data.frame(x =  rnorm(10), y = rnorm(10))
stat <- paste("R^2= 0.81", "p-value= 0.04", "n= 50")
ggplot(df, aes(x = x, y = y)) + geom_point() + 
   annotate("text", x = mean(df$x), y = mean(df$y), label=stat)

Answer 2

我刚刚注意到，如果我取出 parse 命令，我将无法正确描绘 R2 中的下标。为了避免这种情况，我最终使用了以下命令：

df <- data.frame(x =  rnorm(10), y = rnorm(10))
ggplot(df, aes(x = x, y = y)) + geom_point() + 
   annotate("text", x = mean(df$x), y = mean(df$y), parse = TRUE, label = as.character(expression(R^{2}*" = 0.81; "*"p = 0.04; "*"n = 50")))