|
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297 |
- ---
- title: "Introduction ggplot2"
- author: "Antoine Neuraz"
- date: "18/11/2019"
- output:
- xaringan::moon_reader:
- css: ['default','css/my_style.css']
- lib_dir: libs
- seal: false
- nature:
- ratio: '4:3'
- countIncrementalSlides: false
- self-contained: true
- beforeInit: "addons/macros.js"
- highlightLines: true
- pdf_document:
- seal: false
-
- ---
-
- ```{r setup, include=FALSE}
- knitr::opts_chunk$set(echo = TRUE, fig.asp= .5)
- library(ggplot2)
- ```
-
-
-
-
-
-
- --
-
-
- --
-
-
-
- ---
-
-
-
-
-
-
- --
-
-
-
- --
-
-
- ---
- class:
-
-
- ```{r, eval = FALSE}
-
- ggplot(data = <DATA.FRAME>,
- aes(x=<VARIABLE1>,
- y=<VARIABLE2>,
- ...),
- ) +
- geom_<*>()
-
- ```
-
- ---
-
-
-
-
-
-
-
-
-
- ---
-
-
-
- .small[
- ```{r, fig.asp=0.7}
- data("iris")
-
- ggplot(iris,
- aes(x=Sepal.Length,
- y=Sepal.Width))
- ```
- ]
- ---
-
-
-
- .small[
- ```{r, fig.asp=0.7}
- ggplot(iris,
- aes(x=Sepal.Length,
- y=Sepal.Width)) +
- geom_point()
- ```
- ]
-
- ---
-
- .small[
- ```{r, fig.asp=0.7}
-
- ggplot(iris) +
- geom_point(aes(x=Sepal.Length,
- y=Sepal.Width))
- ```
- ]
-
- ---
-
- .small[
- ```{r, fig.asp=0.7}
-
- ggplot(iris,
- aes(x=Sepal.Length,
- y=Sepal.Width,
- color = Species)) +
- geom_point()
- ```
- ]
- ---
-
-
- .small[
- ```{r, fig.asp=0.7}
-
- ggplot(iris,
- aes(x=Sepal.Length,
- y=Sepal.Width,
- color = Species)) +
- geom_point() +
- geom_smooth()
-
- ```
- ]
-
-
-
- ---
-
-
- .small[
- ```{r, fig.asp=0.7}
-
- ggplot(iris,
- aes(x=Sepal.Length,
- y=Sepal.Width,
- color = Species)) +
- geom_point() +
- geom_smooth(method='lm', se=FALSE)
-
- ```
- ]
-
- ---
-
-
- .small[
- ```{r, fig.asp=0.7}
-
- ggplot(iris,
- aes(x=Sepal.Length,
- y=Sepal.Width,
- color = Species)) +
- geom_point() +
- geom_smooth(method='lm', se=FALSE) +
- facet_grid(~Species)
- ```
- ]
- ---
-
-
- .small[
- ```{r, fig.asp=0.7}
-
- ggplot(iris,
- aes(x=Sepal.Length,
- y=Sepal.Width,
- color = Species)) +
- geom_point() +
- geom_smooth(method='lm', se=FALSE) +
- facet_grid(~Species) +
- theme_minimal()
-
- ```
- ]
-
- ---
-
-
- .small[
- ```{r}
-
- ggplot(iris,
- aes(x=Sepal.Length,
- y=Sepal.Width,
- color = Species)) +
- geom_point()+
- theme_minimal() +
- labs(title = "Sépales des iris",
- subtitle = "Longueur et largeur des sépales* en fonction de l'espèce",
- x= "Longueur",
- y = "Largeur",
- caption = "* Chacune des pièces du calice de la fleur. / source: Iris dataset"
- )
- ```
- ]
-
- ---
-
-
- .small[
- ```{r}
-
- ggplot(iris,
- aes(x=Sepal.Length,
- y=Sepal.Width,
- color = Species)) +
- geom_point()+
- theme_minimal() +
- labs(title = "Sépales des iris",
- subtitle = "Longueur et largeur des sépales* en fonction de l'espèce",
- x= "Longueur",
- y = "Largeur",
- caption = "* Chacune des pièces du calice de la fleur. / source: Iris dataset"
- ) +
- guides(color = guide_legend(title = "Espèce"))
-
- ```
- ]
- ---
-
-
- .small[
- ```{r}
-
- ggplot(iris,
- aes(x=Sepal.Length,
- y=Sepal.Width,
- color = Species)) +
- geom_point()+
- theme_minimal() +
- labs(title = "Sépales des iris",
- subtitle = "Longueur et largeur des sépales* en fonction de l'espèce",
- x= "Longueur",
- y = "Largeur",
- caption = "* Chacune des pièces du calice de la fleur. / source: Iris dataset"
- ) +
- guides(color = guide_legend(title = "Espèce")) +
- theme(panel.grid.minor = element_blank(),
- legend.position = "bottom")
-
- ```
- ]
- ---
-
-
-
-
-
-
-
-
-
-
- ---
-
-
-
-
-
-
-
-
-
-
-
-
- ---
-
-
-
-
-
-
-
-
-
-
-
-
-
|