r - ggplot2:带有文本、下标/上标和计算值的注释

Question

我在这里搜索了一段时间，之前的问题/答案部分回答了我的问题。我正在学习 R，来自 Matlab。正如标题所说，我有一个关于情节注释的问题。在 Matlab 中，绘制包含各种数据格式的注释非常简单，我正在 R 中寻找类似的东西。我已经发现了 paste 并设法将文本和数字放入一个注释中我还弄清楚了(在某种程度上...)parse 的作用，例如在显示 r 平方时。我的问题是，如何将代码片段中的两个注释合并为一个注释而不用 R 对我大喊大叫？我的带有两个注释的解决方案可以满足我的需要，但我只是想知道如何去做...

a <- 30 # some coefficients
b <- 70
r2 <- 0.87
anno1 <- paste("y = ",b,"ln(x) + ",a) # first annotation with a random equation
anno2 <- paste("r^2 == ", r2) # second annotation with a random r squared

Pdata <- data.frame("X" = 1:10, "Y" = 1:10) # some data

ggplot(Pdata,aes(x=Pdata$X,y=Pdata$Y)) +
  geom_point() +
  annotate("text", x=2, y=8, label=anno1, parse=FALSE) +
  annotate("text", x=2, y=7, label=anno2, parse=TRUE)

谢谢大家!

Answer 1

我花了一段时间才弄明白(对于我自己的项目)，但这里有一个解决方案:

anno3 <- paste("'y ='~",b,"~'ln(x) +'~",a,"~r^2==~", r2)

使用 + annotate("text", x=2, y=6, label=anno3, parse=TRUE) 将其添加到您的绘图中

单引号标识不评估的文本。结合起来，粘贴的结果应该写成表达式。