README.Rmd

---
Title: "A repository of R graphics with their associated code"
Author: "Integrative Ecology Group"
output:
  md_document:
    variant: markdown_github
    toc: yes
    toc_depth: 5
---

# A repository of R graphics with their associated code

This repository intends to be a catalog of figures made in [our group](http://ebd10.ebd.csic.es/ebd10/Home.html) with the associated R code used to produce them. Scroll down to browse the available figures. Clicking on any of them will take you to the source code used to produce it. 

**CONTRIBUTING**

See [here](https://github.com/PJordano-Lab/R-figures/blob/master/contributing.md) for information on how to contribute new figures and code. 


**OTHER REPOS WITH R CODE TO PRODUCE FIGURES**

- [R graph catalog](http://shiny.stat.ubc.ca/r-graph-catalog/)

- [The R graph gallery](http://www.r-graph-gallery.com/)

- [R graph gallery](http://rgraphgallery.blogspot.com/)

- [Cookbook for R: Graphs](http://www.cookbook-r.com/Graphs/)

- [A compendium of clean graphs in R](http://shinyapps.org/apps/RGraphCompendium/index.php)

- [Graphical data analysis with R](http://www.gradaanwr.net/)

  


```{r knitr_setup, include=FALSE, cache=FALSE}
library(knitr)
opts_chunk$set(echo = FALSE, comment = NA, results = 'asis')
```


```{r insert_function}
insert <- function(title, path2rmd, fig.width = 400, plot.number = 1){
  if (missing(title) | missing(path2rmd)) {
    cat("You must provide a title and the path to the Rmarkdown source document (e.g. 'Networks/bipartite_network.Rmd')")
  } else {
    path <- unlist(strsplit(path2rmd, "/"))
    folder <- path[1]
    fig <- gsub("\\.Rmd", "", path[2])
    cat('#### ', title, '\n\n',
        '[<img src="figures/', fig, '-plot-', plot.number, '.png" width="', fig.width, '">]',
        '(http://htmlpreview.github.io/?https://raw.github.com/PJordano-Lab/R-figures/blob/master/',
        folder, '/', fig, '.html)',
        sep = "")
  }
}
```




# FIGURE THEMES


## General stats


```{r}
insert("Sankey diagram for demographic transitions", "General/sankey.Rmd")
```


```{r}
insert("Survival curves (ggplot)", "General/survival_ggplot.Rmd")
```




## Multipanel plots 


```{r}
insert("ggplot slopegraph multipanel", "Multipanel/slopegraph_multipanel.Rmd")
```







## Multivariate







## Time series







## Spatial / Maps



```{r}
insert("Topographic map", "Spatial/topomap.Rmd")
```


```{r}
insert("Plotting dispersal kernels", "Spatial/dispkernels.Rmd")
```


```{r}
insert("Plotting expected vs empirical distances", "Spatial/ExpectedvsEmpirical_kernels.Rmd")
```




## Networks



```{r}
insert("Plotting effectiveness landscapes", "Networks/effectiveness.Rmd")
```

More information on effectiveness landscapes is in [Pedro Jordano Lab Pages @GitHub](http://pedroj.github.io).



```{r}
insert("Assignments network", "Networks/assig_network.Rmd")
```


```{r}
insert("Gene flow", "Networks/GeneFlow.Rmd")
```







Licence
--------
<a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/88x31.png" /></a>

Creative Commons License  

This work and all other materials under https://github.com/PJordano-Lab/ are licensed under a [Creative Commons Attribution 4.0 International License](https://creativecommons.org/licenses/by/4.0/legalcode).