Quantile regression

#
library(Brq)

#
data(USgirl, package="Brq")

#
plot(USgirl, pch='.', bty="n",
     xlim=c(0, 25),
     ylim=c(0, 150),
     xlab="Age (in years)",
     ylab="Body weight (in kg)")
library(ggplot2)

#
ggplot(USgirl, aes(Age, Weight)) + 
 geom_point(alpha=.5, size=rel(.3)) + 
 geom_quantile(quantiles=1:9/10, 
               formula=y ~ x)+
 labs(x="Age (in years)", 
      y="Body weight (in kg)") +
 theme_minimal()

knitr::spin("C:/Users/ASUS/Desktop/USgirls.R", knit=FALSE)

## [1] "C:/Users/ASUS/Desktop/USgirls.Rmd"

#