dimecres, 26 d’octubre del 2022

Grans Castells

Grans Castells

10/SF

Column 1

2d8 Desc (anual)

2d8 Desc (total)

2d8 C (anual)

2d8 C (total)

2d8 I (anual)

2d8 I (total)

2d8 ID (anual)

2d8 ID (total)

Column 2

4d9 Desc (anual)

4d9 Desc (total)

4d9 C (anual)

4d9 C (total)

4d9 I (anual)

4d9 I (total)

4d9 ID (anual)

4d9 ID (total)

Column 3

3d10fm Desc (anual)

3d10fm Desc (total)

3d10fm C (anual)

3d10fm C (total)

3d10fm I (anual)

3d10fm I (total)

3d10fm ID (total)

Column 4

4d10fm D (total)

4d10fm C (total)

4d10fm I (total)

4d10fm ID (total)

Column 5

3d9 C (total)

3d9 I (total)

3d9 ID (total)

Column 6

2d9f C (total)

2d9f I (total)

2d9f ID (total)

Vista TAULA

Vista taula

Indicadors (% globals)

Indicadors

Row

2 de 8 (Desc)

4 de 9 (Desc)

3 de 10 fm (Desc)

4 de 10 fm (Desc)

3 de 9 (Desc)

Row

2 de 8 (C)

4 de 9 (C)

3 de 10 fm (C)

4 de 10 fm (C)

3 de 9 (C)

Row

2 de 8 (I)

4 de 9 (I)

3 de 10 fm (I)

4 de 10 fm (I)

3 de 9 (I)

Row

2 de 8 (ID)

4 de 9 (ID)

3 de 10 fm (ID)

4 de 10 fm (ID)

3 de 9 (ID)

About Report

Created by: Enric Güell

Data de creació: 06/08/2020

Data actualització: “dc. 26 octubre 2022”

Contacte: http://www.consultfiv.com / info@consultfiv.com

---
title: "Grans Castells"
date: "`r format(Sys.time(), '%a %d %B %Y')`"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: "menu"
    source_code: embed

---

```{r setup, include=FALSE}
library(flexdashboard)
library(readxl)
library(dplyr)
library(magrittr)
library(ggplot2)
library(plyr)
library(lubridate)
library(scales)
library(DT)
library(rpivotTable)
library(highcharter)
library(tidyr)
library(plotly)
library(tidyverse)
library(htmlwidgets)

```

```{r}

library(readxl)
historicXLS <- read_excel("historicXLS.xlsx", 
    sheet = "Hoja1")
taula1 <- historicXLS

```

```{r, include=FALSE} 

# mycolors <- c("blue", "#FFC125", "darkgreen", "darkorange")



#########################################


# preparació de les taules per a graficar:
taula.apilada <- gather(taula1, key = "RESULTAT", value = "Freq", 
                        Descarregat, Carregat, Intent, Int.Desmuntat)



Taula.Acum <- taula.apilada %>% 
  group_by(Castell, RESULTAT, Colla) %>% 
  arrange(Temporada) %>% 
  mutate(Acumulat = cumsum(Freq))

```

10/SF
=====================================




Column 1 {data-width=500, .tabset} 
-------------------------------



### 2d8 Desc (anual) {data-width=500, .tabset} 
```{r}
taula.apilada %>% 
  filter(Castell == "2d8" &
         RESULTAT == "Descarregat" &
         Temporada > 2004) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink", "violet")) %>% 
  hc_title(text = "2 de 8 Descarregats (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```

### 2d8 Desc (total) {data-width=500, .tabset}

```{r}
 Taula.Acum %>% 
  filter(Castell == "2d8" &
         RESULTAT == "Descarregat" &
         Temporada > 2004) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink", "violet")) %>% 
  hc_title(text = "2 de 8 Descarregats (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())


```

### 2d8 C (anual) {data-width=500, .tabset}

```{r}

taula.apilada %>% 
  filter(Castell == "2d8",
         RESULTAT == "Carregat",
         Temporada > 1998) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink", "violet")) %>% 
  hc_title(text = "2 de 8 Carregats (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```


### 2d8 C (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "2d8" &
         RESULTAT == "Carregat" &
         Temporada > 1998) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink", "violet")) %>% 
  hc_title(text = "2 de 8 Carregats (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())

```


### 2d8 I (anual) {data-width=500, .tabset}

```{r}
taula.apilada %>% 
  filter(Castell == "2d8",
         RESULTAT == "Intent") %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink", "violet")) %>% 
  hc_title(text = "2 de 8 Intentats (llenya) (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())




```


### 2d8 I (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "2d8",
         RESULTAT == "Intent") %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink", "violet")) %>% 
  hc_title(text = "2 de 8 Intentats (llenya) (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())


```


### 2d8 ID (anual) {data-width=500, .tabset}

```{r}
taula.apilada %>% 
  filter(Castell == "2d8",
         RESULTAT == "Int.Desmuntat",
         Temporada > 1998) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink", "violet")) %>% 
  hc_title(text = "2 de 8 Intent Desmuntat (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())






```


### 2d8 ID (total) {data-width=500, .tabset}

```{r}
Taula.Acum %>% 
  filter(Castell == "2d8",
         RESULTAT == "Int.Desmuntat",
         Temporada > 1998) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink", "violet")) %>% 
  hc_title(text = "2 de 8 Intent Desmuntat (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```




Column 2 {data-width=500, .tabset} 
-------------------------------
  
  
### 4d9 Desc (anual) {data-width=500, .tabset}
  
```{r}
taula.apilada %>% 
  filter(Castell == "4d9" &
           RESULTAT == "Descarregat" &
           Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("firebrick","lawngreen", "orchid","red", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 9 Descarregats (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```

### 4d9 Desc (total) {data-width=500, .tabset}

```{r}
Taula.Acum %>% 
  filter(Castell == "4d9" &
           RESULTAT == "Descarregat" &
           Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("firebrick","lawngreen", "orchid","red", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 9 Descarregats (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())


```

### 4d9 C (anual) {data-width=500, .tabset}

```{r}

taula.apilada %>% 
  filter(Castell == "4d9",
         RESULTAT == "Carregat",
         Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("firebrick","lawngreen", "orchid","red", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 9 Carregats (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```


### 4d9 C (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "4d9" &
           RESULTAT == "Carregat" &
           Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("firebrick","lawngreen", "orchid","red", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 9 Carregats (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())

```


### 4d9 I (anual) {data-width=500, .tabset}

```{r}
taula.apilada %>% 
  filter(Castell == "4d9",
         RESULTAT == "Intent") %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("firebrick","lawngreen", "orchid","red", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 9 Intentats (llenya) (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())




```


### 4d9 I (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "4d9",
         RESULTAT == "Intent") %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("firebrick","lawngreen", "orchid","red", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 9 Intentats (llenya) (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())


```


### 4d9 ID (anual) {data-width=500, .tabset}

```{r}
taula.apilada %>% 
  filter(Castell == "4d9",
         RESULTAT == "Int.Desmuntat",
         Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("firebrick","lawngreen", "orchid","red", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 9 Intent Desmuntat (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())






```


### 4d9 ID (total) {data-width=500, .tabset}

```{r}
Taula.Acum %>% 
  filter(Castell == "4d9",
         RESULTAT == "Int.Desmuntat",
         Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("firebrick","lawngreen", "orchid","red", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 9 Intent Desmuntat (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```




Column 3 {data-width=500, .tabset} 
-------------------------------
  
  
  
### 3d10fm Desc (anual) {data-width=500, .tabset}
```{r}
taula.apilada %>% 
  filter(Castell == "3d10fm" &
           RESULTAT == "Descarregat" &
           Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("lawngreen","orchid", "red", "hotpink", "violet")) %>% 
  hc_title(text = "3 de 10 fm Descarregats (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```

### 3d10fm Desc (total) {data-width=500, .tabset}

```{r}
Taula.Acum %>% 
  filter(Castell == "3d10fm" &
           RESULTAT == "Descarregat" &
           Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen","orchid", "red", "hotpink", "violet")) %>% 
  hc_title(text = "3 de 10 fm Descarregats (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())


```

### 3d10fm C (anual) {data-width=500, .tabset}

```{r}

taula.apilada %>% 
  filter(Castell == "3d10fm",
         RESULTAT == "Carregat",
         Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("lawngreen","orchid", "red", "hotpink", "violet")) %>% 
  hc_title(text = "3 de 10 fm Carregats (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```


### 3d10fm C (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "3d10fm" &
           RESULTAT == "Carregat" &
           Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen","orchid", "red", "hotpink", "violet")) %>% 
  hc_title(text = "3 de 10 fm Carregats (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())

```


### 3d10fm I (anual) {data-width=500, .tabset}

```{r}
taula.apilada %>% 
  filter(Castell == "3d10fm",
         RESULTAT == "Intent") %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Freq, group = Colla)) %>%
  hc_colors(c("lawngreen","orchid", "red", "hotpink", "violet")) %>% 
  hc_title(text = "3 de 10 fm Intentats (llenya) (anualment)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())




```


### 3d10fm I (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "3d10fm",
         RESULTAT == "Intent") %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen","orchid", "red", "hotpink", "violet")) %>% 
  hc_title(text = "3 de 10 fm Intentats (llenya) (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())


```




### 3d10fm ID (total) {data-width=500, .tabset}

```{r}
Taula.Acum %>% 
  filter(Castell == "3d10fm",
         RESULTAT == "Int.Desmuntat",
         Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen","orchid", "red", "hotpink", "violet")) %>% 
  hc_title(text = "3 de 10 fm Intent Desmuntat (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```



Column 4 {data-width=500, .tabset} 
-------------------------------

  
### 4d10fm D (total) {data-width=500, .tabset}
```{r}
Taula.Acum %>% 
  filter(Castell == "4d10fm" &
           RESULTAT == "Descarregat" &
           Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 10 fm Descarregats (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())


```




### 4d10fm C (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "4d10fm" &
           RESULTAT == "Carregat" &
           Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 10 fm Carregats (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())

```




### 4d10fm I (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "4d10fm",
         RESULTAT == "Intent") %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 10 fm Intentats (llenya) (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())


```



### 4d10fm ID (total) {data-width=500, .tabset}

```{r}
Taula.Acum %>% 
  filter(Castell == "4d10fm",
         RESULTAT == "Int.Desmuntat",
         Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "hotpink", "violet")) %>% 
  hc_title(text = "4 de 10 fm Intent Desmuntat (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```



Column 5 {data-width=500, .tabset} 
-------------------------------
  
  
### 3d9 C (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "3d9" &
           RESULTAT == "Carregat" &
           Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink")) %>% 
  hc_title(text = "3 de 9 Carregats (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())

```




### 3d9 I (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "3d9",
         RESULTAT == "Intent") %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink")) %>% 
  hc_title(text = "3 de 9 Intentats (llenya) (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())


```



### 3d9 ID (total) {data-width=500, .tabset}

```{r}
Taula.Acum %>% 
  filter(Castell == "3d9",
         RESULTAT == "Int.Desmuntat",
         Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "red", "hotpink")) %>% 
  hc_title(text = "3 de 9 Intent Desmuntat (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```



Column 6 {data-width=500, .tabset} 
-------------------------------
  
  
### 2d9f C (total) {data-width=500, .tabset}
  
```{r}

Taula.Acum %>% 
  filter(Castell == "2d9f" &
           RESULTAT == "Carregat" &
           Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "hotpink")) %>% 
  hc_title(text = "2 de 9 f Carregats (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())

```




### 2d9f I (total) {data-width=500, .tabset}

```{r}

Taula.Acum %>% 
  filter(Castell == "2d9f",
         RESULTAT == "Intent") %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen", "hotpink")) %>% 
  hc_title(text = "2 de 9 f Intentats (llenya) (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())


```



### 2d9f ID (total) {data-width=500, .tabset}

```{r}
Taula.Acum %>% 
  filter(Castell == "2d9f",
         RESULTAT == "Int.Desmuntat",
         Temporada > 1900) %>%  
  arrange(Temporada) %>% 
  hchart("line", hcaes(x = Temporada, y = Acumulat, group = Colla)) %>%
  hc_colors(c("lawngreen",  "hotpink")) %>% 
  hc_title(text = "2 de 9 f Intent Desmuntat (total)",
           useHTML = TRUE) %>% hc_add_theme(hc_theme_gridlight())



```







Vista TAULA
========================================

### Vista taula  

```{r}

objectetaulaDT <- taula1
DT::datatable(objectetaulaDT, 
              rownames = FALSE,
              #class = 'cell-border stripe',
              # colnames = c('name ok1' = 'var1'
                         #  , 'name ok2' = 'var2'
              #          ),
          extensions = 'Buttons',
# container = TRUE,
# caption = "xx",
# style = "auto", #"bootstrap" o "bootstrap4" #
 width = "480px",
# height = "200px",
# elementId = TRUE,
# autoHideNavigation = TRUE,  #  pageLength should be provided explicitly
editable = FALSE,
              filter = 'top', #"bottom",
options = list(bPaginate = TRUE,
               autoWidth = FALSE,
               scrollX = TRUE,
               scrollY = 375,
               searching = TRUE,
               pageLength = 100,
               columnDefs = list(list(width = '40px',
                                      className = 'dt-center',
                                      targets = 1:(length(objectetaulaDT)-1)),
                                 list(width = '70px',
                                     className = 'dt-center',
                                      targets = 0)),
                # list(list(className = "dt-center", targets = "_all")),
               dom = 'Blfrtip',
               buttons = c('copy', 'excel', 'print', 'pdf'),
               #lengthMenu = list(c(10))),
               lengthMenu = list(c(10,20,50,-1),
                                 c(10,20,50,"All"))),
fillContainer = FALSE) %>% 
  formatStyle( 0, 
               target= 'row',
               color = 'black', 
               # backgroundColor = 'yellow', 
               # fontWeight ='bold',
               lineHeight='18px')  
# '80%' # o '200px'  #   % or px! %>% 
#formatStyle('KID_LIKE',
#              backgroundColor = styleInterval(c(0, 0.9, 0.99), c('tomato', 'tomato', 'lightpink', 'slategray1'))




```

Indicadors (% globals)
========================================

### Indicadors

```{r, include = FALSE}

library(dplyr)
library(tidyr)

taula.2de8 <- taula1 %>% 
  filter(Castell == "2d8")

taula.4de9 <- taula1 %>% 
  filter(Castell == "4d9")

taula.3de10 <- taula1 %>% 
  filter(Castell == "3d10fm")

taula.4de10 <- taula1 %>% 
  filter(Castell == "4d10fm")

taula.3de9 <- taula1 %>% 
  filter(Castell == "3d9")



Dosde8.numerador <- sum(taula.2de8$Descarregat)
Dosde8.denominador <- sum(taula.2de8$Carregat) + sum(taula.2de8$Int.Desmuntat) + sum(taula.2de8$Intent) + sum(taula.2de8$Descarregat)
Dosde8.TaxaDesc <- round((Dosde8.numerador/Dosde8.denominador)*100, 2)

Quatrede9.numerador <- sum(taula.4de9$Descarregat)
Quatrede9.denominador <- sum(taula.4de9$Carregat) + sum(taula.4de9$Int.Desmuntat) + sum(taula.4de9$Intent) + sum(taula.4de9$Descarregat)
Quatrede9.TaxaDesc <- round((Quatrede9.numerador/Quatrede9.denominador)*100, 2)


Tresde10.numerador <- sum(taula.3de10$Descarregat)
Tresde10.denominador <- sum(taula.3de10$Carregat) + sum(taula.3de10$Int.Desmuntat) + sum(taula.3de10$Intent) + sum(taula.3de10$Descarregat)
Tresde10.TaxaDesc <- round((Tresde10.numerador/Tresde10.denominador)*100, 2)


Quatrede10.numerador <- sum(taula.4de10$Descarregat)
Quatrede10.denominador <- sum(taula.4de10$Carregat) + sum(taula.4de10$Int.Desmuntat) + sum(taula.4de10$Intent) + sum(taula.4de10$Descarregat)
Quatrede10.TaxaDesc <- round((Quatrede10.numerador/Quatrede10.denominador)*100, 2)


Tresde9.numerador <- sum(taula.3de9$Descarregat)
Tresde9.denominador <- sum(taula.3de9$Carregat) + sum(taula.3de9$Int.Desmuntat) + sum(taula.3de9$Intent) + sum(taula.3de9$Descarregat)
Tresde9.TaxaDesc <- round((Tresde9.numerador/Tresde9.denominador)*100, 2)

###########################################

# ara carregats:
Dosde8.numerador <- sum(taula.2de8$Carregat)
Dosde8.denominador <- sum(taula.2de8$Carregat) + sum(taula.2de8$Int.Desmuntat) + sum(taula.2de8$Intent) + sum(taula.2de8$Descarregat)
Dosde8.TaxaC <- round((Dosde8.numerador/Dosde8.denominador)*100, 2)

Quatrede9.numerador <- sum(taula.4de9$Carregat)
Quatrede9.denominador <- sum(taula.4de9$Carregat) + sum(taula.4de9$Int.Desmuntat) + sum(taula.4de9$Intent) + sum(taula.4de9$Descarregat)
Quatrede9.TaxaC <- round((Quatrede9.numerador/Quatrede9.denominador)*100, 2)


Tresde10.numerador <- sum(taula.3de10$Carregat)
Tresde10.denominador <- sum(taula.3de10$Carregat) + sum(taula.3de10$Int.Desmuntat) + sum(taula.3de10$Intent) + sum(taula.3de10$Descarregat)
Tresde10.TaxaC <- round((Tresde10.numerador/Tresde10.denominador)*100, 2)


Quatrede10.numerador <- sum(taula.4de10$Carregat)
Quatrede10.denominador <- sum(taula.4de10$Carregat) + sum(taula.4de10$Int.Desmuntat) + sum(taula.4de10$Intent) + sum(taula.4de10$Descarregat)
Quatrede10.TaxaC <- round((Quatrede10.numerador/Quatrede10.denominador)*100, 2)


Tresde9.numerador <- sum(taula.3de9$Carregat)
Tresde9.denominador <- sum(taula.3de9$Carregat) + sum(taula.3de9$Int.Desmuntat) + sum(taula.3de9$Intent) + sum(taula.3de9$Descarregat)
Tresde9.TaxaC <- round((Tresde9.numerador/Tresde9.denominador)*100, 2)

########################

#ara intent


Dosde8.numerador <- sum(taula.2de8$Intent)
Dosde8.denominador <- sum(taula.2de8$Carregat) + sum(taula.2de8$Int.Desmuntat) + sum(taula.2de8$Intent) + sum(taula.2de8$Descarregat)
Dosde8.TaxaI <- round((Dosde8.numerador/Dosde8.denominador)*100, 2)

Quatrede9.numerador <- sum(taula.4de9$Intent)
Quatrede9.denominador <- sum(taula.4de9$Carregat) + sum(taula.4de9$Int.Desmuntat) + sum(taula.4de9$Intent) + sum(taula.4de9$Descarregat)
Quatrede9.TaxaI <- round((Quatrede9.numerador/Quatrede9.denominador)*100, 2)


Tresde10.numerador <- sum(taula.3de10$Intent)
Tresde10.denominador <- sum(taula.3de10$Carregat) + sum(taula.3de10$Int.Desmuntat) + sum(taula.3de10$Intent) + sum(taula.3de10$Descarregat)
Tresde10.TaxaI <- round((Tresde10.numerador/Tresde10.denominador)*100, 2)


Quatrede10.numerador <- sum(taula.4de10$Intent)
Quatrede10.denominador <- sum(taula.4de10$Carregat) + sum(taula.4de10$Int.Desmuntat) + sum(taula.4de10$Intent) + sum(taula.4de10$Descarregat)
Quatrede10.TaxaI <- round((Quatrede10.numerador/Quatrede10.denominador)*100, 2)


Tresde9.numerador <- sum(taula.3de9$Intent)
Tresde9.denominador <- sum(taula.3de9$Carregat) + sum(taula.3de9$Int.Desmuntat) + sum(taula.3de9$Intent) + sum(taula.3de9$Descarregat)
Tresde9.TaxaI <- round((Tresde9.numerador/Tresde9.denominador)*100, 2)

####################


# ara intent desmuntat
Dosde8.numerador <- sum(taula.2de8$Int.Desmuntat)
Dosde8.denominador <- sum(taula.2de8$Carregat) + sum(taula.2de8$Int.Desmuntat) + sum(taula.2de8$Intent) + sum(taula.2de8$Descarregat)
Dosde8.TaxaID <- round((Dosde8.numerador/Dosde8.denominador)*100, 2)

Quatrede9.numerador <- sum(taula.4de9$Int.Desmuntat)
Quatrede9.denominador <- sum(taula.4de9$Carregat) + sum(taula.4de9$Int.Desmuntat) + sum(taula.4de9$Intent) + sum(taula.4de9$Descarregat)
Quatrede9.TaxaID <- round((Quatrede9.numerador/Quatrede9.denominador)*100, 2)


Tresde10.numerador <- sum(taula.3de10$Int.Desmuntat)
Tresde10.denominador <- sum(taula.3de10$Carregat) + sum(taula.3de10$Int.Desmuntat) + sum(taula.3de10$Intent) + sum(taula.3de10$Descarregat)
Tresde10.TaxaID <- round((Tresde10.numerador/Tresde10.denominador)*100, 2)


Quatrede10.numerador <- sum(taula.4de10$Int.Desmuntat)
Quatrede10.denominador <- sum(taula.4de10$Carregat) + sum(taula.4de10$Int.Desmuntat) + sum(taula.4de10$Intent) + sum(taula.4de10$Descarregat)
Quatrede10.TaxaID <- round((Quatrede10.numerador/Quatrede10.denominador)*100, 2)


Tresde9.numerador <- sum(taula.3de9$Int.Desmuntat)
Tresde9.denominador <- sum(taula.3de9$Carregat) + sum(taula.3de9$Int.Desmuntat) + sum(taula.3de9$Intent) + sum(taula.3de9$Descarregat)
Tresde9.TaxaID <- round((Tresde9.numerador/Tresde9.denominador)*100, 2)



```



Row
-------------------------------


### 2 de 8 (Desc)

```{r}

gauge(Dosde8.TaxaDesc,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(33, 49),
                   danger = c(0, 32.99), 
                   colors = c("green", "yellow", "red")))


```


### 4 de 9 (Desc)

```{r}

gauge(Quatrede9.TaxaDesc,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(33, 49),
                   danger = c(0, 32.99), 
                   colors = c("green", "yellow", "red")))


```


### 3 de 10 fm (Desc)

```{r}

gauge(Tresde10.TaxaDesc,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(33, 49),
                   danger = c(0, 32.99), 
                   colors = c("green", "yellow", "red")))


```



### 4 de 10 fm (Desc)

```{r}

gauge(Quatrede10.TaxaDesc,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(33, 49),
                   danger = c(0, 32.99), 
                   colors = c("green", "yellow", "red")))


```



### 3 de 9 (Desc)

```{r}

gauge(Tresde9.TaxaDesc,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(33, 49),
                   danger = c(0, 32.99), 
                   colors = c("green", "yellow", "red")))


```



Row
-------------------------------


### 2 de 8 (C)

```{r}

gauge(Dosde8.TaxaC,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(30, 49),
                   danger = c(0, 29.99), 
                   colors = c("red", "yellow", "green")))


```


### 4 de 9 (C)

```{r}

gauge(Quatrede9.TaxaC,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(30, 49),
                   danger = c(0, 29.99), 
                   colors = c("red", "yellow", "green")))


```


### 3 de 10 fm (C)

```{r}

gauge(Tresde10.TaxaC,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(30, 49),
                   danger = c(0, 29.99), 
                   colors = c("red", "yellow", "green")))


```



### 4 de 10 fm (C)

```{r}

gauge(Quatrede10.TaxaC,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(30, 49),
                   danger = c(0, 29.99), 
                   colors = c("red", "yellow", "green")))


```



### 3 de 9 (C)

```{r}

gauge(Tresde9.TaxaC,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(30, 49),
                   danger = c(0, 29.99), 
                   colors = c("red", "yellow", "green")))


```



Row
-------------------------------


### 2 de 8 (I)

```{r}

gauge(Dosde8.TaxaI,
      min = 0,
      max = 100,
     gaugeSectors(success = c(50, 100),
                   warning = c(30, 49),
                   danger = c(0, 29.99), 
                   colors = c("red", "yellow", "green")))


```


### 4 de 9 (I)

```{r}

gauge(Quatrede9.TaxaI,
      min = 0,
      max = 100,
     gaugeSectors(success = c(50, 100),
                   warning = c(30, 49),
                   danger = c(0, 29.99), 
                   colors = c("red", "yellow", "green")))


```


### 3 de 10 fm (I)

```{r}

gauge(Tresde10.TaxaI,
      min = 0,
      max = 100,
     gaugeSectors(success = c(50, 100),
                   warning = c(30, 49),
                   danger = c(0, 29.99), 
                   colors = c("red", "yellow", "green")))


```



### 4 de 10 fm (I)

```{r}

gauge(Quatrede10.TaxaI,
      min = 0,
      max = 100,
     gaugeSectors(success = c(50, 100),
                   warning = c(30, 49),
                   danger = c(0, 29.99), 
                   colors = c("red", "yellow", "green")))


```



### 3 de 9 (I)

```{r}

gauge(Tresde9.TaxaI,
      min = 0,
      max = 100,
     gaugeSectors(success = c(50, 100),
                   warning = c(30, 49),
                   danger = c(0, 29.99), 
                   colors = c("red", "yellow", "green")))


```




Row
-------------------------------


### 2 de 8 (ID)

```{r}

gauge(Dosde8.TaxaID,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(33, 49),
                   danger = c(0, 32.99), 
                   colors = c("green", "yellow", "red")))


```


### 4 de 9 (ID)

```{r}

gauge(Quatrede9.TaxaID,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(33, 49),
                   danger = c(0, 32.99), 
                   colors = c("green", "yellow", "red")))


```


### 3 de 10 fm (ID)

```{r}

gauge(Tresde10.TaxaID,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(33, 49),
                   danger = c(0, 32.99), 
                   colors = c("green", "yellow", "red")))


```



### 4 de 10 fm (ID)

```{r}

gauge(Quatrede10.TaxaID,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(33, 49),
                   danger = c(0, 32.99), 
                   colors = c("green", "yellow", "red")))


```



### 3 de 9 (ID)

```{r}

gauge(Tresde9.TaxaID,
      min = 0,
      max = 100,
      gaugeSectors(success = c(50, 100),
                   warning = c(33, 49),
                   danger = c(0, 32.99), 
                   colors = c("green", "yellow", "red")))


```





About Report
========================================

Created by: Enric Güell

Data de creació: 06/08/2020

Data actualització: "`r format(Sys.time(), '%a %d %B %Y')`"

Contacte: [http://www.consultfiv.com](http://www.consultfiv.com) / [info@consultfiv.com](mailto::info@consultfiv.com])