Добавьте рамку и размер выборки (n) на график рассеяния, используя ggpubr в R

Question

Я использую функцию ggscatter в пакете ggpubr в R. См. Этот код на примере набора данных 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