ggplot Part II

.title[
# ggplot Part II
]
.subtitle[
## Workshop on Data Visualization in R
]
.author[
### Lokesh Mano • 17-Apr-2023
]
.institute[
### NBIS, SciLifeLab
]

---

---

## Contents

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

---

## Scales • Discrete Colors

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

```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;" />
]

```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**

```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;" />
]

```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;" />
]
---

## Scales • Shape

```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;" />
]

```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;" />
]

---

## Facets • `facet_wrap`

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

```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;" />
]

```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;" />
]

---

## Facets • `facet_grid`

* Facetting in two dimensions

```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;" />
]

```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;" />
]

---

# Thank you. Questions?

<hr>

Built on : 17-Apr-2023 at 14:28:18

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