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])