Description Usage Arguments Computed variables References Examples
View source: R/stat_SLR_equation.R
Add regression line equation and R^2 to a ggplot. Regression model is fitted using the function lm
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
mapping |
Set of aesthetic mappings created by |
data |
The data to be displayed in this layer. There are three options: If A A |
formula |
a formula object |
label.x.npc, label.y.npc |
can be
If too short they will be recycled. |
label.x, label.y |
|
geom |
The geometric object to use display the data |
position |
Position adjustment, either as a string, or the result of a call to a position adjustment function. |
na.rm |
If FALSE (the default), removes missing values with a warning. If TRUE silently removes missing values. |
show.legend |
logical. Should this layer be included in the legends?
|
cf.digits |
Number of decimals for the regression line coefficients. Can be a vector as long as the coefficients. |
rr.digits |
Number of decimals for R^2 value. |
inherit.aes |
If |
... |
other arguments to pass to |
x position for left edge
y position near upper edge
equation for the fitted polynomial as a character string to be parsed
R^2 of the fitted model as a character string to be parsed
Set to zero to override the default of the "text" geom.
This function is a modification of stat_regline_equation
in ggpubr, but includes cf.digits
and rr.digits
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | p <- ggplot2::ggplot(data=iris,mapping=ggplot2::aes(x=Sepal.Length,y=Petal.Length)) +
ggplot2::geom_point() +
ggplot2::geom_smooth(method="lm") +
theme_NCStats()
p + stat_SLR_equation()
p +
stat_SLR_equation(ggplot2::aes(label=..eq.label..),label.x.npc=0,label.y.npc=1.0) +
stat_SLR_equation(ggplot2::aes(label=..rr.label..),label.x.npc=0,label.y.npc=0.9)
p2 <- p + ggplot2::facet_wrap(~Species)
p2 + stat_SLR_equation()
p2 + stat_SLR_equation(cf.digits=2)
p2 + stat_SLR_equation(cf.digits=c(3,4))
p2 +
stat_SLR_equation(ggplot2::aes(label=..eq.label..),
label.x.npc=0,label.y.npc=1.0,cf.digits=c(3,4)) +
stat_SLR_equation(ggplot2::aes(label=..rr.label..),
label.x.npc=0,label.y.npc=0.9,rr.digits=3)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.