-
Notifications
You must be signed in to change notification settings - Fork 0
/
render_test.qmd
145 lines (100 loc) · 4.06 KB
/
render_test.qmd
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
---
title: "Abschlussprojekt"
subtitle: "rstatsZH-K009: "
author: "DaaniiH"
format:
html:
embed-resources: true
toc: true
editor: visual
chunk_output_type: console
#Code chunks standardmässig ausblenden und nur Ergebnisse anzeigen
#code_folding: hide
---
# Packages laden
```{r}
#| message: FALSE
library(readr)
library(dplyr)
library(ggplot2)
library(tidyverse)
library(forcats)
library(ggthemes)
library(scales)
library(lubridate)
library(knitr) # Package wird für Funktion kable() geladen
library(DT) # Package wird für Funktion datatable() geladen
library(gt) # Package wird für Funktion gt() geladen
```
# Daten laden
```{r}
#| eval: FALSE
# Der Code wird gezeigt, aber nicht ausgeführt.
```
Code ausführen, aber nicht anzeigen:
```{r}
#| echo: FALSE
# Der Output wird gezeigt, der Code hingegen nicht.
```
Code und Output unterdrücken:
```{r}
#| eval: FALSE
#| echo: FALSE
# Der Code und der Output werden nicht gezeigt und nicht ausgeführt.
```
```{r}
data_staatenkleingruppe <- read_csv(here::here("data/raw/Quartiere_Jahr_KTZH_00002604_00005328.csv"))
# The view() function is not compatible with R Markdown rendering
#View(data_staatenkleingruppen)
#data_auslaenderanteil_kantonal <- read_delim('https://www.web.statistik.zh.ch/ogd/data/KANTON_ZUERICH_205.csv')
# The view() function is not compatible with R Markdown rendering
# View(import_table_auslaenderanteil_kantonal)
# tbd
# data_geo_coordinates_ktzh <- read_csv
```
# Einleitung
Die Bevölkerung in Winterthur - Ein Einblick in Altersstruktur und Migration.
## Daten
Bei den Rohdatenhandelt es sich um CSV Dateien aus dem Datenkatalog des Kantons Zürich.
[Quellen]{.underline}
- Bevölkerung, nach Staatenkleingruppe und Quartier\
[https://www.zh.ch/de/politik-staat/statistik-daten/datenkatalog.html#/datasets/2604\@stadt-winterthur](https://www.zh.ch/de/politik-staat/statistik-daten/datenkatalog.html#/datasets/2604@stadt-winterthur)
- Ausländeranteil\
<https://openzh.github.io/starter-code-openZH/>\
[https://www.zh.ch/de/politik-staat/statistik-daten/datenkatalog.html#/datasets/68\@statistisches-amt-kanton-zuerich](https://www.zh.ch/de/politik-staat/statistik-daten/datenkatalog.html#/datasets/68@statistisches-amt-kanton-zuerich)
- Link zum GIS Browser Datendownload\
[https://www.zh.ch/de/politik-staat/statistik-daten/datenkatalog.html#/datasets/278\@opendata-giszh-ktzh/distributions/1](https://www.zh.ch/de/politik-staat/statistik-daten/datenkatalog.html#/datasets/278@opendata-giszh-ktzh/distributions/1) bzw. <http://maps.zh.ch/?topic=BASISKARTEZH&showtab=ogddownload>
## Analyseziele
Im Rahmen der Analyse werden die Daten aufbereitet und in ein Tidy Data Format gebracht, erkundet und visualisiert.
- **Teil 1\
**Erkenntnisse zur Entwicklung von **Ausländeranteil** der Stadt Winterthur (sowie der Stadkreise bzw. Quartiere) über die vergangenen 10 Jahre schaffen.
Benötigte Daten: Jahr, Stadkreis, Quartier, Ausländeranteil
- **Teil 2\
**Ausländeranteil vergleichen mit **i) kantonalen Zahlen** und **ii) geografische Heatmap** erstellen.
Benötigte Daten: Jahr, Ausländeranteil, Gebiet (inkl. Koordinaten)
# Daten Aufbereitung
Erster Teil der Analyse, Entwicklung des Ausländeranteils der vergangenen 10 Jahre.
### Staatenkleingruppen
#### Daten betrachten
> Die beiden **viewer `gt()`** und **`kable()`** produzieren u.U. komplexe/grosse Tabellen, dies kann zu **Rendering-Problemen** führen.
>
> Nachfolgend werden grosse Tabellen dargestellt, welche vermutlich aufgrund Memory Exhaustion einen Seitenrefresh triggern und dadurch die Generierung des Quarto Dokuments abbricht.
```{r}
#| eval: FALSE
#| echo: FALSE
## Viewer
gt(data_staatenkleingruppe)
## Console
kable(data_staatenkleingruppe)
```
```{r}
glimpse(data_staatenkleingruppe)
names(data_staatenkleingruppe)
unique(data_staatenkleingruppe$staatenkleingruppe)
unique(data_staatenkleingruppe$stadtkreis)
unique(data_staatenkleingruppe$quartier)
## Einwohner pro Jahr
data_staatenkleingruppe %>%
group_by(jahr) %>%
summarize(summe_anzahl = sum(anzahl, na.rm = TRUE))
```