forked from datactivist/IntroR_ODF
-
Notifications
You must be signed in to change notification settings - Fork 0
/
dashboard.Rmd
73 lines (47 loc) · 1.36 KB
/
dashboard.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
---
title: "Qui sont les stagiaires de la formation R ?"
output:
flexdashboard::flex_dashboard:
orientation: columns
---
```{r acquire_data}
if (!require("pacman")) install.packages("pacman")
pacman::p_load("googlesheets",
"dplyr",
"flexdashboard",
"ggplot2",
"ggmap",
"sp")
# lecture des réponses
answers <- gs_url("https://docs.google.com/spreadsheets/d/1rS5h30nqhk0GS3WLUxBD0jY0u3-Qzm7YC8IpflcAptU/edit?usp=sharing")
df <- answers %>%
gs_read()
```
Column
-----------------------------------------------------------------------
### Nombre de répondants {.value-box}
```{r}
valueBox(nrow(df), icon = "ion-person-stalker")
```
### Sexe
```{r}
taux <- sum(df$`Vous êtes` == "Une femme", na.rm = TRUE) / nrow(df) * 100
gauge(round(taux), 0, 100, symbol = "%", sectors = gaugeSectors(success = c(50,100), warning = c(0, 49)))
```
### Âge
```{r}
ggplot(df, aes(x = `Vous avez :`)) +
geom_bar() +
ylab("") +
theme_bw()
```
Column
-----------------------------------------------------------
### Ville
```{r}
df$adresse <- df$`Indiquez votre ville de provenance`
coord <- geocode(paste0(df$`Indiquez votre ville de provenance`, ", France"))
coordinates(coord) <- c("lon","lat")
coord@proj4string <- CRS("+proj=longlat +ellps=WGS84 +datum=WGS84")
mapview::mapview(coord)@map
```