README_flipbook.html

<!DOCTYPE html>
<html lang="" xml:lang="">
  <head>
    <title>The goal of ggols is to …</title>
    <meta charset="utf-8" />
    <meta name="author" content="Gina Reynolds" />
    <link href="libs/remark-css-0.0.1/default.css" rel="stylesheet" />
    <link href="libs/remark-css-0.0.1/hygge.css" rel="stylesheet" />
    <link href="libs/remark-css-0.0.1/ninjutsu.css" rel="stylesheet" />
  </head>
  <body>
    <textarea id="source">
class: center, middle, inverse, title-slide

# The goal of ggols is to …
### Gina Reynolds

---


&lt;style type="text/css"&gt;
.remark-code{line-height: 1.5; font-size: 70%}

@media print {
  .has-continuation {
    display: block;
  }
}

code.r.hljs.remark-code{
  position: relative;
  overflow-x: hidden;
}


code.r.hljs.remark-code:hover{
  overflow-x:visible;
  width: 500px;
  border-style: solid;
}
&lt;/style&gt;


&lt;!-- README.md is generated from README.Rmd. Please edit that file --&gt;

---


# ggols

&lt;!-- badges: start --&gt;
&lt;!-- badges: end --&gt;

The goal of ggols is to ...

## Installation

You can install the released version of ggols from [CRAN](https://CRAN.R-project.org) with:

``` r
install.packages("ggols")
```

And the development version from [GitHub](https://github.com/) with:

``` r
# install.packages("devtools")
devtools::install_github("EvaMaeRey/ggols")
```

---

## ggxmean gives us all the geom_lm_* functions

---


count: false
 

.panel1-example-auto[

```r
*library(tidyverse)
```
]
 
.panel2-example-auto[

]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
*library(ggxmean)
```
]
 
.panel2-example-auto[

]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
library(ggxmean)

*ggplot(palmerpenguins::penguins)
```
]
 
.panel2-example-auto[
&lt;img src="man/figures/README-example_auto_03_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
library(ggxmean)

ggplot(palmerpenguins::penguins) +
* aes(x = bill_depth_mm, y = bill_length_mm)
```
]
 
.panel2-example-auto[
&lt;img src="man/figures/README-example_auto_04_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
library(ggxmean)

ggplot(palmerpenguins::penguins) +
  aes(x = bill_depth_mm, y = bill_length_mm) +
* geom_point()
```
]
 
.panel2-example-auto[
&lt;img src="man/figures/README-example_auto_05_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
library(ggxmean)

ggplot(palmerpenguins::penguins) +
  aes(x = bill_depth_mm, y = bill_length_mm) +
  geom_point() +
* geom_lm()
```
]
 
.panel2-example-auto[
&lt;img src="man/figures/README-example_auto_06_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
library(ggxmean)

ggplot(palmerpenguins::penguins) +
  aes(x = bill_depth_mm, y = bill_length_mm) +
  geom_point() +
  geom_lm() +
* geom_lm_intercept(color = "blue")
```
]
 
.panel2-example-auto[
&lt;img src="man/figures/README-example_auto_07_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
library(ggxmean)

ggplot(palmerpenguins::penguins) +
  aes(x = bill_depth_mm, y = bill_length_mm) +
  geom_point() +
  geom_lm() +
  geom_lm_intercept(color = "blue") +
* geom_lm_intercept_label(hjust = -.2)
```
]
 
.panel2-example-auto[
&lt;img src="man/figures/README-example_auto_08_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
library(ggxmean)

ggplot(palmerpenguins::penguins) +
  aes(x = bill_depth_mm, y = bill_length_mm) +
  geom_point() +
  geom_lm() +
  geom_lm_intercept(color = "blue") +
  geom_lm_intercept_label(hjust = -.2) +
* geom_lm_conf_int()
```
]
 
.panel2-example-auto[
&lt;img src="man/figures/README-example_auto_09_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
library(ggxmean)

ggplot(palmerpenguins::penguins) +
  aes(x = bill_depth_mm, y = bill_length_mm) +
  geom_point() +
  geom_lm() +
  geom_lm_intercept(color = "blue") +
  geom_lm_intercept_label(hjust = -.2) +
  geom_lm_conf_int() +
* geom_lm_residuals()
```
]
 
.panel2-example-auto[
&lt;img src="man/figures/README-example_auto_10_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
library(ggxmean)

ggplot(palmerpenguins::penguins) +
  aes(x = bill_depth_mm, y = bill_length_mm) +
  geom_point() +
  geom_lm() +
  geom_lm_intercept(color = "blue") +
  geom_lm_intercept_label(hjust = -.2) +
  geom_lm_conf_int() +
  geom_lm_residuals() +
* geom_lm_fitted()
```
]
 
.panel2-example-auto[
&lt;img src="man/figures/README-example_auto_11_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-example-auto[

```r
library(tidyverse)
library(ggxmean)

ggplot(palmerpenguins::penguins) +
  aes(x = bill_depth_mm, y = bill_length_mm) +
  geom_point() +
  geom_lm() +
  geom_lm_intercept(color = "blue") +
  geom_lm_intercept_label(hjust = -.2) +
  geom_lm_conf_int() +
  geom_lm_residuals() +
  geom_lm_fitted() +
* geom_lm_formula()
```
]
 
.panel2-example-auto[
&lt;img src="man/figures/README-example_auto_12_output-1.png" width="100%" /&gt;
]

&lt;style&gt;
.panel1-example-auto {
  color: black;
  width: 38.6060606060606%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel2-example-auto {
  color: black;
  width: 59.3939393939394%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel3-example-auto {
  color: black;
  width: NA%;
  hight: 33%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
&lt;/style&gt;


---

# Visualization, adding cat var

---


count: false
 

.panel1-cat-auto[

```r
*library(ggols)
```
]
 
.panel2-cat-auto[

]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

*ggplot(cars)
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_02_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

ggplot(cars) +
* aes(x = speed, y = dist, cat = dist &gt; 30,
* color = dist &gt; 30)
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_03_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
* geom_point()
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_04_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
* geom_lm_cat()
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_05_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_cat() +
* geom_lm_cat_intercept(color = "blue")
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_06_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_cat() +
  geom_lm_cat_intercept(color = "blue") +
* geom_lm_cat_intercept_label(hjust = -.2)
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_07_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_cat() +
  geom_lm_cat_intercept(color = "blue") +
  geom_lm_cat_intercept_label(hjust = -.2) +
* geom_lm_cat_conf_int()
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_08_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_cat() +
  geom_lm_cat_intercept(color = "blue") +
  geom_lm_cat_intercept_label(hjust = -.2) +
  geom_lm_cat_conf_int() +
* geom_lm_cat_residuals()
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_09_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_cat() +
  geom_lm_cat_intercept(color = "blue") +
  geom_lm_cat_intercept_label(hjust = -.2) +
  geom_lm_cat_conf_int() +
  geom_lm_cat_residuals() +
* geom_lm_cat_fitted()
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_10_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_cat() +
  geom_lm_cat_intercept(color = "blue") +
  geom_lm_cat_intercept_label(hjust = -.2) +
  geom_lm_cat_conf_int() +
  geom_lm_cat_residuals() +
  geom_lm_cat_fitted() +
* geom_lm_cat_formula()
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_11_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-cat-auto[

```r
library(ggols)

ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_cat() +
  geom_lm_cat_intercept(color = "blue") +
  geom_lm_cat_intercept_label(hjust = -.2) +
  geom_lm_cat_conf_int() +
  geom_lm_cat_residuals() +
  geom_lm_cat_fitted() +
  geom_lm_cat_formula() +
* geom_lm_cat_rsquared()
```
]
 
.panel2-cat-auto[
&lt;img src="man/figures/README-cat_auto_12_output-1.png" width="100%" /&gt;
]

&lt;style&gt;
.panel1-cat-auto {
  color: black;
  width: 38.6060606060606%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel2-cat-auto {
  color: black;
  width: 59.3939393939394%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel3-cat-auto {
  color: black;
  width: NA%;
  hight: 33%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
&lt;/style&gt;


---

# Visualization, adding x*cat interaction


---


count: false
 

.panel1-interaction-auto[

```r
*ggplot(cars)
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_01_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-interaction-auto[

```r
ggplot(cars) +
* aes(x = speed, y = dist, cat = dist &gt; 30,
* color = dist &gt; 30)
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_02_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-interaction-auto[

```r
ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
* geom_point()
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_03_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-interaction-auto[

```r
ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
* geom_lm_interaction()
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_04_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-interaction-auto[

```r
ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_interaction() +
* geom_lm_interaction_intercept(color = "blue")
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_05_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-interaction-auto[

```r
ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_interaction() +
  geom_lm_interaction_intercept(color = "blue") +
* geom_lm_interaction_intercept_label(hjust = -.2)
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_06_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-interaction-auto[

```r
ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_interaction() +
  geom_lm_interaction_intercept(color = "blue") +
  geom_lm_interaction_intercept_label(hjust = -.2) +
* geom_lm_interaction_conf_int()
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_07_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-interaction-auto[

```r
ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_interaction() +
  geom_lm_interaction_intercept(color = "blue") +
  geom_lm_interaction_intercept_label(hjust = -.2) +
  geom_lm_interaction_conf_int() +
* geom_lm_interaction_residuals()
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_08_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-interaction-auto[

```r
ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_interaction() +
  geom_lm_interaction_intercept(color = "blue") +
  geom_lm_interaction_intercept_label(hjust = -.2) +
  geom_lm_interaction_conf_int() +
  geom_lm_interaction_residuals() +
* geom_lm_interaction_fitted()
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_09_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-interaction-auto[

```r
ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_interaction() +
  geom_lm_interaction_intercept(color = "blue") +
  geom_lm_interaction_intercept_label(hjust = -.2) +
  geom_lm_interaction_conf_int() +
  geom_lm_interaction_residuals() +
  geom_lm_interaction_fitted() +
* geom_lm_interaction_formula()
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_10_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-interaction-auto[

```r
ggplot(cars) +
  aes(x = speed, y = dist, cat = dist &gt; 30,
  color = dist &gt; 30) +
  geom_point() +
  geom_lm_interaction() +
  geom_lm_interaction_intercept(color = "blue") +
  geom_lm_interaction_intercept_label(hjust = -.2) +
  geom_lm_interaction_conf_int() +
  geom_lm_interaction_residuals() +
  geom_lm_interaction_fitted() +
  geom_lm_interaction_formula() +
* geom_lm_interaction_rsquared()
```
]
 
.panel2-interaction-auto[
&lt;img src="man/figures/README-interaction_auto_11_output-1.png" width="100%" /&gt;
]

&lt;style&gt;
.panel1-interaction-auto {
  color: black;
  width: 38.6060606060606%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel2-interaction-auto {
  color: black;
  width: 59.3939393939394%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel3-interaction-auto {
  color: black;
  width: NA%;
  hight: 33%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
&lt;/style&gt;


---

# Visualization, and two cat variables (parallel slopes)


---


count: false
 

.panel1-int2-auto[

```r
*ggplot(palmerpenguins::penguins)
```
]
 
.panel2-int2-auto[
&lt;img src="man/figures/README-int2_auto_01_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int2-auto[

```r
ggplot(palmerpenguins::penguins) +
* aes(x = bill_length_mm, y = bill_depth_mm,
*     cat = species, cat2 = sex,
*     color = species, shape = sex)
```
]
 
.panel2-int2-auto[
&lt;img src="man/figures/README-int2_auto_02_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int2-auto[

```r
ggplot(palmerpenguins::penguins) +
  aes(x = bill_length_mm, y = bill_depth_mm,
      cat = species, cat2 = sex,
      color = species, shape = sex) +
* geom_point()
```
]
 
.panel2-int2-auto[
&lt;img src="man/figures/README-int2_auto_03_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int2-auto[

```r
ggplot(palmerpenguins::penguins) +
  aes(x = bill_length_mm, y = bill_depth_mm,
      cat = species, cat2 = sex,
      color = species, shape = sex) +
  geom_point() +
* geom_lm_cat2()
```
]
 
.panel2-int2-auto[
&lt;img src="man/figures/README-int2_auto_04_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int2-auto[

```r
ggplot(palmerpenguins::penguins) +
  aes(x = bill_length_mm, y = bill_depth_mm,
      cat = species, cat2 = sex,
      color = species, shape = sex) +
  geom_point() +
  geom_lm_cat2() +
* geom_lm_cat2_conf_int()
```
]
 
.panel2-int2-auto[
&lt;img src="man/figures/README-int2_auto_05_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int2-auto[

```r
ggplot(palmerpenguins::penguins) +
  aes(x = bill_length_mm, y = bill_depth_mm,
      cat = species, cat2 = sex,
      color = species, shape = sex) +
  geom_point() +
  geom_lm_cat2() +
  geom_lm_cat2_conf_int() +
* geom_lm_cat2_residuals()
```
]
 
.panel2-int2-auto[
&lt;img src="man/figures/README-int2_auto_06_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int2-auto[

```r
ggplot(palmerpenguins::penguins) +
  aes(x = bill_length_mm, y = bill_depth_mm,
      cat = species, cat2 = sex,
      color = species, shape = sex) +
  geom_point() +
  geom_lm_cat2() +
  geom_lm_cat2_conf_int() +
  geom_lm_cat2_residuals() +
* geom_lm_cat2_fitted()
```
]
 
.panel2-int2-auto[
&lt;img src="man/figures/README-int2_auto_07_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int2-auto[

```r
ggplot(palmerpenguins::penguins) +
  aes(x = bill_length_mm, y = bill_depth_mm,
      cat = species, cat2 = sex,
      color = species, shape = sex) +
  geom_point() +
  geom_lm_cat2() +
  geom_lm_cat2_conf_int() +
  geom_lm_cat2_residuals() +
  geom_lm_cat2_fitted() +
* geom_lm_cat2_formula()
```
]
 
.panel2-int2-auto[
&lt;img src="man/figures/README-int2_auto_08_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int2-auto[

```r
ggplot(palmerpenguins::penguins) +
  aes(x = bill_length_mm, y = bill_depth_mm,
      cat = species, cat2 = sex,
      color = species, shape = sex) +
  geom_point() +
  geom_lm_cat2() +
  geom_lm_cat2_conf_int() +
  geom_lm_cat2_residuals() +
  geom_lm_cat2_fitted() +
  geom_lm_cat2_formula() +
* geom_lm_cat2_rsquared()
```
]
 
.panel2-int2-auto[
&lt;img src="man/figures/README-int2_auto_09_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int2-auto[

```r
ggplot(palmerpenguins::penguins) +
  aes(x = bill_length_mm, y = bill_depth_mm,
      cat = species, cat2 = sex,
      color = species, shape = sex) +
  geom_point() +
  geom_lm_cat2() +
  geom_lm_cat2_conf_int() +
  geom_lm_cat2_residuals() +
  geom_lm_cat2_fitted() +
  geom_lm_cat2_formula() +
  geom_lm_cat2_rsquared() +
* NULL
```
]
 
.panel2-int2-auto[
&lt;img src="man/figures/README-int2_auto_10_output-1.png" width="100%" /&gt;
]

&lt;style&gt;
.panel1-int2-auto {
  color: black;
  width: 38.6060606060606%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel2-int2-auto {
  color: black;
  width: 59.3939393939394%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel3-int2-auto {
  color: black;
  width: NA%;
  hight: 33%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
&lt;/style&gt;


---

count: false
 

.panel1-int3-auto[

```r
*last_plot()
```
]
 
.panel2-int3-auto[
&lt;img src="man/figures/README-int3_auto_01_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int3-auto[

```r
last_plot() +
* geom_lm_cat2_intercept(color = "blue")
```
]
 
.panel2-int3-auto[
&lt;img src="man/figures/README-int3_auto_02_output-1.png" width="100%" /&gt;
]

---
count: false
 

.panel1-int3-auto[

```r
last_plot() +
  geom_lm_cat2_intercept(color = "blue") +
* geom_lm_cat2_intercept_label(hjust = -.2)
```
]
 
.panel2-int3-auto[
&lt;img src="man/figures/README-int3_auto_03_output-1.png" width="100%" /&gt;
]

&lt;style&gt;
.panel1-int3-auto {
  color: black;
  width: 38.6060606060606%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel2-int3-auto {
  color: black;
  width: 59.3939393939394%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel3-int3-auto {
  color: black;
  width: NA%;
  hight: 33%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
&lt;/style&gt;
    </textarea>
<style data-target="print-only">@media screen {.remark-slide-container{display:block;}.remark-slide-scaler{box-shadow:none;}}</style>
<script src="https://remarkjs.com/downloads/remark-latest.min.js"></script>
<script>var slideshow = remark.create({
"ratio": "16:9",
"highlightStyle": "github",
"highlightLines": true,
"countIncrementalSlides": false
});
if (window.HTMLWidgets) slideshow.on('afterShowSlide', function (slide) {
  window.dispatchEvent(new Event('resize'));
});
(function(d) {
  var s = d.createElement("style"), r = d.querySelector(".remark-slide-scaler");
  if (!r) return;
  s.type = "text/css"; s.innerHTML = "@page {size: " + r.style.width + " " + r.style.height +"; }";
  d.head.appendChild(s);
})(document);

(function(d) {
  var el = d.getElementsByClassName("remark-slides-area");
  if (!el) return;
  var slide, slides = slideshow.getSlides(), els = el[0].children;
  for (var i = 1; i < slides.length; i++) {
    slide = slides[i];
    if (slide.properties.continued === "true" || slide.properties.count === "false") {
      els[i - 1].className += ' has-continuation';
    }
  }
  var s = d.createElement("style");
  s.type = "text/css"; s.innerHTML = "@media print { .has-continuation { display: none; } }";
  d.head.appendChild(s);
})(document);
// delete the temporary CSS (for displaying all slides initially) when the user
// starts to view slides
(function() {
  var deleted = false;
  slideshow.on('beforeShowSlide', function(slide) {
    if (deleted) return;
    var sheets = document.styleSheets, node;
    for (var i = 0; i < sheets.length; i++) {
      node = sheets[i].ownerNode;
      if (node.dataset["target"] !== "print-only") continue;
      node.parentNode.removeChild(node);
    }
    deleted = true;
  });
})();
(function() {
  "use strict"
  // Replace <script> tags in slides area to make them executable
  var scripts = document.querySelectorAll(
    '.remark-slides-area .remark-slide-container script'
  );
  if (!scripts.length) return;
  for (var i = 0; i < scripts.length; i++) {
    var s = document.createElement('script');
    var code = document.createTextNode(scripts[i].textContent);
    s.appendChild(code);
    var scriptAttrs = scripts[i].attributes;
    for (var j = 0; j < scriptAttrs.length; j++) {
      s.setAttribute(scriptAttrs[j].name, scriptAttrs[j].value);
    }
    scripts[i].parentElement.replaceChild(s, scripts[i]);
  }
})();
(function() {
  var links = document.getElementsByTagName('a');
  for (var i = 0; i < links.length; i++) {
    if (/^(https?:)?\/\//.test(links[i].getAttribute('href'))) {
      links[i].target = '_blank';
    }
  }
})();
// adds .remark-code-has-line-highlighted class to <pre> parent elements
// of code chunks containing highlighted lines with class .remark-code-line-highlighted
(function(d) {
  const hlines = d.querySelectorAll('.remark-code-line-highlighted');
  const preParents = [];
  const findPreParent = function(line, p = 0) {
    if (p > 1) return null; // traverse up no further than grandparent
    const el = line.parentElement;
    return el.tagName === "PRE" ? el : findPreParent(el, ++p);
  };

  for (let line of hlines) {
    let pre = findPreParent(line);
    if (pre && !preParents.includes(pre)) preParents.push(pre);
  }
  preParents.forEach(p => p.classList.add("remark-code-has-line-highlighted"));
})(document);</script>

<script>
slideshow._releaseMath = function(el) {
  var i, text, code, codes = el.getElementsByTagName('code');
  for (i = 0; i < codes.length;) {
    code = codes[i];
    if (code.parentNode.tagName !== 'PRE' && code.childElementCount === 0) {
      text = code.textContent;
      if (/^\\\((.|\s)+\\\)$/.test(text) || /^\\\[(.|\s)+\\\]$/.test(text) ||
          /^\$\$(.|\s)+\$\$$/.test(text) ||
          /^\\begin\{([^}]+)\}(.|\s)+\\end\{[^}]+\}$/.test(text)) {
        code.outerHTML = code.innerHTML;  // remove <code></code>
        continue;
      }
    }
    i++;
  }
};
slideshow._releaseMath(document);
</script>
<!-- dynamically load mathjax for compatibility with self-contained -->
<script>
(function () {
  var script = document.createElement('script');
  script.type = 'text/javascript';
  script.src  = 'https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-MML-AM_CHTML';
  if (location.protocol !== 'file:' && /^https?:/.test(script.src))
    script.src  = script.src.replace(/^https?:/, '');
  document.getElementsByTagName('head')[0].appendChild(script);
})();
</script>
  </body>
</html>