在R中使用ggpubr将帧和样本大小（n）添加到散点图

Question

我正在使用R中ggscatter包中的ggpubr函数。请以 mtcars 数据集为例查看此代码。

library("ggpubr")
ggscatter(mtcars, x = "wt", y = "mpg", 
       add = "reg.line", conf.int = TRUE, 
       cor.coef = TRUE, cor.method = "pearson",
       xlab = "Weight (1000 lbs)", ylab = "Miles/(US) gallon")

现在，我想在图上添加一个框架，基本上在顶部和底部（没有刻度或标签）添加另一个x和y轴。

最后，我想增加样本量，以便顶部的标签显示：“ R = -0.87，p = 1.3e-10，n = 32”。

有人可以帮我吗？谢谢。

Answer 1

不幸的是，对于n的值，我还没有找到一个很好的方法来执行，可能需要更改函数中的某些内容。

library(ggplot2)
library("ggpubr")
ggscatter(mtcars, x = "wt", y = "mpg", 
          add = "reg.line", conf.int = TRUE, 
          cor.coef = TRUE, cor.method = "pearson",
          xlab = "Weight (1000 lbs)", ylab = "Miles/(US) gallon", 
          cor.coef.coord = c(2.5, 30)) + # c(x, y)
  + annotate("text", x = 3.53, y = 30.1, label = paste0("(n = ", nrow(mtcars), ")")) # neilfws