SHARE
TWEET

Untitled

a guest Jun 20th, 2019 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. library("ggpubr")
  2. ggscatter(mtcars[mtcars$cyl == 8, ], x = "mpg", y = "qsec",
  3.      facet.by = "cyl", add = "reg.line", add.params = list(color = "black", fill = "lightgrey"),
  4.      conf.int = TRUE, cor.method = "spearman", cor.coef = TRUE, xlab = "mpg", ylab = "qsec")
  5.      + annotate("text", x=10, y=15, parse=TRUE, label = paste0("n = ", with(mtcars, sum(mtcars$cyl == 8))))
  6.      
  7. label = paste0("n = ", with(mtcars, sum(mtcars$cyl == 8)))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top