r - 在 R 中使用 ggpubr 将帧和样本大小 (n) 添加到散点图

Question

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

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