ggplot Part II

class: center, middle, inverse, title-slide

# ggplot Part II
## Workshop on Plotting in R
### Lokesh Mano • 18-Jan-2022
### NBIS, SciLifeLab

---

exclude: true
count: false

---
name: content
class: spaced

## Contents

* [Scales - color](#scales-discrete-color)
* [Scales - shape](#scales-shape)
* [facet_wrap](#facet-wrap)

---
name: scales-discrete-color

## Scales • Discrete Colors

* scales: position, color, fill, size, shape, alpha, linetype
* syntax: `scale_<aesthetic>_<type>`

.center[
<img src="assets/images/scales.png" alt="drawing" width="400"/>
]

.pull-left-50[

```r
p <- ggplot(iris)+geom_point(aes(x=Sepal.Length,
 y=Sepal.Width,color=Species))
p
```

<img src="slide_gg2_files/figure-html/unnamed-chunk-3-1.svg" style="display: block; margin: auto auto auto 0;" />
]

.pull-right-50[

```r
p + scale_color_manual(
     name="Manual",
     values=c("#5BC0EB","#FDE74C","#9BC53D"))
```

<img src="slide_gg2_files/figure-html/unnamed-chunk-4-1.svg" style="display: block; margin: auto auto auto 0;" />
]

---

## Scales • Continuous Colors

* In RStudio, type `scale_`, then press **TAB**

.pull-left-50[

```r
p <- ggplot(iris)+
 geom_point(aes(x=Sepal.Length,
 y=Sepal.Width,
 shape=Species,color=Petal.Length))
p
```

<img src="slide_gg2_files/figure-html/unnamed-chunk-5-1.svg" style="display: block; margin: auto auto auto 0;" />
]

.pull-right-50[

```r
p + 
scale_color_gradient(name="Pet Len",
  breaks=range(iris$Petal.Length),
  labels=c("Min","Max"),
  low="black",high="red")
```

<img src="slide_gg2_files/figure-html/unnamed-chunk-6-1.svg" style="display: block; margin: auto auto auto 0;" />
]
---
name: scales-shape

## Scales • Shape

.pull-left-50[

```r
p <- ggplot(iris)+
 geom_point(aes(x=Sepal.Length,
 y=Sepal.Width,
 shape=Species,color=Species))
p
```

<img src="slide_gg2_files/figure-html/unnamed-chunk-7-1.svg" style="display: block; margin: auto auto auto 0;" />
]

.pull-right-50[

```r
p + 
scale_color_manual(name="New",
   values=c("blue","green","red"))+
scale_shape_manual(name="Bla",values=c(0,1,2))
```

<img src="slide_gg2_files/figure-html/unnamed-chunk-8-1.svg" style="display: block; margin: auto auto auto 0;" />
]

---
name: facet-wrap

## Facets • `facet_wrap`

* Split to subplots based on variable(s)
* Facetting in one dimension

.pull-left-50[

```r
p <- ggplot(iris)+
 geom_point(aes(x=Sepal.Length,
 y=Sepal.Width,
 color=Species))
p
```

<img src="slide_gg2_files/figure-html/unnamed-chunk-9-1.svg" style="display: block; margin: auto auto auto 0;" />
]

.pull-right-50[

```r
p + facet_wrap(~Species)
```

```r
p + facet_wrap(~Species,nrow=3)
```

<img src="slide_gg2_files/figure-html/unnamed-chunk-11-1.svg" style="display: block; margin: auto auto auto 0;" />
]

---
name: facet-grid

## Facets • `facet_grid`

* Facetting in two dimensions

.pull-left-50[

```r
p <- diamonds %>%
 ggplot(aes(carat,price))+
 geom_point()
p + facet_grid(~cut+clarity)
```

<img src="slide_gg2_files/figure-html/unnamed-chunk-12-1.svg" style="display: block; margin: auto auto auto 0;" />
]

.pull-left-50[

```r
p + facet_grid(cut~clarity)
```

<img src="slide_gg2_files/figure-html/unnamed-chunk-13-1.svg" style="display: block; margin: auto auto auto 0;" />
]

---
name: end_slide
class: end-slide, middle
count: false

# Thank you. Questions?

.end-text[
R version 4.1.2 (2021-11-01) Platform: x86_64-pc-linux-gnu (64-bit)OS: Ubuntu 18.04.6 LTS

<hr>

Built on : 18-Jan-2022 at 09:51:00

2022 • [SciLifeLab](https://www.scilifelab.se/) • [NBIS](https://nbis.se/)
]