ggplot Part I

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

---

---
name: content
class: spaced

## Contents

* [Grammer of Graphics](#gog)
* [Building a graph](#build)
* [Build-Demo](#build-demo)
* [Geoms](#geoms)
* [Aesthetics](#aesth)
* [Multiple Geoms](#mul-geom)

---
name: gog

## Grammar of Graphics

.pull-right-70[
* **Data:** Input data
* **Geom:** A geometry representing data. Points, Lines etc
* **Aesthetics:** Visual characteristics of the geometry. Size, Color, Shape etc
* **Scale:** How visual characteristics are converted to display values
* **Statistics:** Statistical transformations. Counts, Means etc
* **Coordinates:** Numeric system to determine position of geometry. Cartesian, Polar etc
* **Facets:** Split data into subsets
]

---
name: build
class: spaced

## Building a graph

---
name: build-demo

## Build-Demo

```r
ggplot(iris)
```
]

.pull-right-50[
<img src="slide_gg1_files/figure-html/unnamed-chunk-4-1.svg" style="display: block; margin: auto auto auto 0;" />
]
---
name: build-demo2

## Build-Demo

```r
ggplot(iris,aes(x=Sepal.Length,
                y=Sepal.Width))
```
]

.pull-right-50[
<img src="slide_gg1_files/figure-html/unnamed-chunk-6-1.svg" style="display: block; margin: auto auto auto 0;" />
]
---
name: build-demo3

## Build-Demo

```r
ggplot(iris,aes(x=Sepal.Length,
                y=Sepal.Width))+
  geom_point()
```
]

.pull-right-50[
<img src="slide_gg1_files/figure-html/unnamed-chunk-8-1.svg" style="display: block; margin: auto auto auto 0;" />
]
---
name: build-demo4

## Build-Demo

```r
ggplot(iris,aes(x=Sepal.Length,
                y=Sepal.Width,
                colour=Species))+
  geom_point()
```
]

.pull-right-50[
<img src="slide_gg1_files/figure-html/unnamed-chunk-10-1.svg" style="display: block; margin: auto auto auto 0;" />
]
---
name: geoms
class: spaced

## Geoms

```r
p <- ggplot(iris)
# scatterplot
p+geom_point(aes(x=Sepal.Length,y=Sepal.Width))
# barplot
p+geom_bar(aes(x=Sepal.Length))
# boxplot
p+geom_boxplot(aes(x=Species,y=Sepal.Width))
# search
help.search("^geom_",package="ggplot2")
```

---
name: aesth

## Aesthetics

* Aesthetic mapping vs aesthetic parameter

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

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

```r
ggplot(iris)+
  geom_point(aes(x=Sepal.Length,
                 y=Sepal.Width),
                 size=2,
                 alpha=0.8,
                 shape=15,
                 color="steelblue")
```

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

---
name: mul-geom

## Multiple geoms

```r
ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+
      geom_point()+
      geom_line()+
      geom_smooth()+
      geom_rug()+
      geom_step()+
      geom_text(data=subset(iris,iris$Species=="setosa"),aes(label=Species))
```

---

# Thank you. Questions?

<hr>

Built on : 29-Apr-2022 at 07:09:44

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