Commit 26cee6ba authored by Xavier de Pedro's avatar Xavier de Pedro

retocs

parent f1a6e9da
......@@ -17,9 +17,9 @@ always_allow_html: yes
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
if (!require(devtools)) install.packages(devtools); require(devtools)
if (!require(pacman)) install_version("pacman", version = "0.4.1"); require(pacman)
p_load(tidyverse, DT, readr, png, webshot, magick, htmlwidgets, leaflet, leaflet.minicharts, leaflet.extras, cowplot, treemap, svglite, svgPanZoom, collapsibleTree, plotly, huxtable, crosstalk)
if (!require("devtools")) install.packages("devtools"); require(devtools)
if (!require("pacman")) install_version("pacman", version = "0.4.1"); require(pacman)
p_load(fs, brew, tidyverse, DT, readr, png, webshot, magick, htmlwidgets, leaflet, leaflet.minicharts, leaflet.extras, cowplot, treemap, svglite, svgPanZoom, collapsibleTree, plotly, huxtable, crosstalk)
```
# Objectius per avui
......@@ -29,6 +29,7 @@ p_load(tidyverse, DT, readr, png, webshot, magick, htmlwidgets, leaflet, leafle
* Enllestir resolució **exercicis (i exemples) anteriors**
1. Aprendre **nous conceptes** i competències:
* **Gràfics en R**: R base, ggplot2, gràfics interactius, paquets complementaris.
* **Interacció entre Gràfics i amb taules**
1. Fer **exercici** sessió 8
---
......@@ -79,9 +80,9 @@ Veure: `exercici.07.Rmd` (i/o **exercici.07.pdf**)
* imatges **vectorials** (**NO** perden resolució en fer zoom!): `svg`, `emf`, `ps`, ...
- Existeixen [Galeries](https://www.r-graph-gallery.com/all-graphs/) de gràfics d'R base i de [ggplot2](http://www.ggplot2-exts.org/gallery/)
- Llibreries destacables de codi obert per a **gràfics interactius**
* [**Htmlwidgets** de gràfics](https://www.htmlwidgets.org)
* [**d3.js** / `r2d3`](https://rstudio.github.io/r2d3/)
* [`Plotly`](https://plot.ly/r/) (i `plotly::ggplotly()`)
* [**Htmlwidgets** de gràfics](https://www.htmlwidgets.org), [**d3.js** / `r2d3`](https://rstudio.github.io/r2d3/), [**`Plotly`**](https://plot.ly/r/) (i `plotly::ggplotly()`)
- Existeixen diverses formes de permetre **Interacció entre Gràfics i amb taules**
* n'hi ha una que no requereix servidor: paquet **`crosstalk`**
---
......@@ -526,12 +527,10 @@ png(filename=file.path(getwd(),
dades.tm=treemap(dades.nac,
index=c("Continent","NacionalitatAngles"),
vSize="n",
type="index",
vSize="n", type="index",
title="Nacionalitats Derivacions CUESB->SAIER'17",
overlap.labels=1,
force.print.labels=TRUE,
aspRatio=2,
overlap.labels=1, aspRatio=2,
force.print.labels=TRUE,
fontsize.title = 20,
fontsize.labels = 16,
fontsize.legend = 18,
......@@ -779,22 +778,16 @@ theme_plain(as_huxtable(d3.p, add_colnames=T))
---
# Interaccio entre gràfics i taules
# Interaccio entre gràfics i taules{.smaller}
Es pot aconseguir de forma senzilla aquest resultat avançat emprant els paquets `Crosstalk`, `plotly` i `DT`, com es pot veure en aquest exemple:
```{r}
library(plotly)
Es pot aconseguir de forma senzilla aquest resultat avançat emprant els paquets `Crosstalk`, `plotly` i `DT`. Exemple:
```{r fig.height=4, fig.width=6, warning=FALSE, message=FALSE}
m <- highlight_key(mpg)
p <- ggplot(m, aes(displ, hwy)) + geom_point()
gg <- highlight(ggplotly(p), "plotly_selected")
crosstalk::bscols(gg, DT::datatable(m))
crosstalk::bscols(gg, DT::datatable(m, options=list("pageLength"= 5)))
```
* Veure també:
* https://plotly-r.com - "Interactive web-based data visualization with R, plotly, and shiny" (llibre amb versió web)
* https://plotly-r.com/client-side-linking.html
---
## Interaccio entre diversos gràfics
......@@ -804,7 +797,12 @@ Exemple de gràfics enllaçats:
![](https://vimeo.com/257149623)
https://vimeo.com/257149623
Demo (video): https://vimeo.com/257149623
* Veure també:
* https://plotly-r.com - "Interactive web-based data visualization with R, plotly, and shiny" (llibre amb versió web)
* https://plotly-r.com/client-side-linking.html
---
......
......@@ -17,7 +17,7 @@ always_allow_html: yes
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
if (!require(devtools)) install.packages(devtools); require(devtools)
if (!require("devtools")) install.packages("devtools"); require(devtools)
if (!require(pacman)) install_version("pacman", version = "0.4.1"); require(pacman)
p_load(tidyverse, sf, tmap, eurostat, DT, readr, png, rsvg, magick, htmlwidgets, leaflet, leaflet.minicharts, leaflet.extras, oce, marmap)
```
......@@ -29,7 +29,7 @@ p_load(tidyverse, sf, tmap, eurostat, DT, readr, png, rsvg, magick, htmlwidgets,
* Muntatge USB, Actualitzar codi via **git**, Resoldre **dubtes** previs
* Enllestir resolució **exercicis (i exemples) anteriors**
1. Aprendre **nous conceptes** i competències:
* **;apes en R**:
* **Mapes en R**:
1. Fer **exercici** sessió 9
---
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment