Data IO

# Data IO
### Einführung in die moderne Datenanalyse mit R <a href='https://therbootcamp.github.io'> Basel R Bootcamp </a> <a href='https://therbootcamp.github.io/I2R_2020Mar/'> </a>  <a href='https://therbootcamp.github.io'> </a>  <a href='mailto:therbootcamp@gmail.com'> </a>  <a href='https://www.linkedin.com/company/basel-r-bootcamp/'> </a>
### März 2020

---

<div class="my-footer">
 
 
 <img src="https://raw.githubusercontent.com/therbootcamp/therbootcamp.github.io/master/_sessions/_image/by-sa.png" height=14 style="vertical-align: middle"/>
 
 <a href="https://therbootcamp.github.io/">
 
 
 www.therbootcamp.com
 
 
 </a>
 <a href="https://therbootcamp.github.io/">
 
 Einführung in die moderne Datenanalyse mit R | März 2020
 
 </a>
 
 </div>

---

# Agenda

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4"><high>Data I/O</high></a></li>
 <ul class="level">
 <li>Daten von Festplatte lesen</li>
 <li>Daten leben in <mono>data.frames</li>
 <li>3 + 1 Datentypen</li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

]

---

# Daten von Festplatte lesen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li><high>Daten von Festplatte lesen</high></li>
 <li>Daten leben in <mono>data.frames</li>
 <li>3 + 1 Datentypen</li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

```r
# Lese Daten ein
read.csv('1_Data/Tourismus.csv')
```

```
##            Land Region Jahr Besucher Dauer
## 1       Belgien Europa 2018      920 1.727
## 2     Bulgarien Europa 2018      138 2.101
## 3      Dänemark Europa 2018      301 1.827
## 4   Deutschland Europa 2018    10564 1.709
## 5       Estland Europa 2018       24 2.125
## 6      Finnland Europa 2018      130 2.008
## 7    Frankreich Europa 2018     3401 1.555
## 8  Griechenland Europa 2018      195 2.651
## 9        Irland Europa 2018      374 2.332
## 10       Island Europa 2018       32 1.781
##  [ reached 'max' / getOption("max.print") -- omitted 61 rows ]
```
]

---

# Daten von Festplatte lesen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li><high>Daten von Festplatte lesen</high></li>
 <li>Daten leben in <mono>data.frames</li>
 <li>3 + 1 Datentypen</li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

```r
# Lese Daten in ein Objekt ein
daten <- read.csv('1_Data/Tourismus.csv')

# Printe Daten
daten
```

---

# Daten von Festplatte lesen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li><high>Daten von Festplatte lesen</high></li>
 <li>Daten leben in <mono>data.frames</li>
 <li>3 + 1 Datentypen</li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

]

---

# Daten von Festplatte lesen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li><high>Daten von Festplatte lesen</high></li>
 <li>Daten leben in <mono>data.frames</li>
 <li>3 + 1 Datentypen</li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

]

---

# Daten von Festplatte lesen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li><high>Daten von Festplatte lesen</high></li>
 <li>Daten leben in <mono>data.frames</li>
 <li>3 + 1 Datentypen</li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

]

---

# Daten leben in <mono>data.frames</mono>

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li>Daten von Festplatte lesen</li>
 <li><high>Daten leben in <mono>data.frames</high></li>
 <li>3 + 1 Datentypen</li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

```r
# Lese Daten in ein Objekt ein
daten <- read.csv('1_Data/Tourismus.csv')

# Klasse der Daten
class(daten)
```

```
## [1] "data.frame"
```

```r
dim(daten) # Dimensionen
```

```
## [1] 71  5
```

```r
names(daten) # Variablennamen
```

```
## [1] "Land"     "Region"   "Jahr"    
## [4] "Besucher" "Dauer"
```
]

---

# 3 + 1 Datentypen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li>Daten von Festplatte lesen</li>
 <li>Daten leben in <mono>data.frames</li>
 <li><high>3 + 1 Datentypen</high></li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

]

---

# 3 + 1 Datentypen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li>Daten von Festplatte lesen</li>
 <li>Daten leben in <mono>data.frames</li>
 <li><high>3 + 1 Datentypen</high></li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

```r
# Lese Daten in ein Objekt ein
daten <- read.csv('1_Data/Tourismus.csv')

# Extrahiere Land mit $
daten$Land
```

```
##  [1] Belgien       Bulgarien    
##  [3] Dänemark      Deutschland  
##  [5] Estland       Finnland     
##  [7] Frankreich    Griechenland 
##  [9] Irland        Island       
## [11] Italien       Kroatien     
## [13] Lettland      Liechtenstein
## [15] Litauen       Luxemburg    
## [17] Malta         Niederlande  
## [19] Norwegen      Österreich   
##  [ reached getOption("max.print") -- omitted 51 entries ]
## 71 Levels: Ägypten ... Zypern
```
]

---

# 3 + 1 Datentypen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li>Daten von Festplatte lesen</li>
 <li>Daten leben in <mono>data.frames</li>
 <li><high>3 + 1 Datentypen</high></li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

```r
# Lese Daten in ein Objekt ein
daten <- read.csv('1_Data/Tourismus.csv')

# Klasse der Land Variable
class(daten$Land)
```

```
## [1] "factor"
```
]

---

# 3 + 1 Datentypen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li>Daten von Festplatte lesen</li>
 <li>Daten leben in <mono>data.frames</li>
 <li><high>3 + 1 Datentypen</high></li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

```r
# Lese Daten in ein Objekt ein
daten <- read.csv('1_Data/Tourismus.csv',
 stringsAsFactors = FALSE)

# Klasse der Land Variable
class(daten$Land)
```

```
## [1] "character"
```

```r
# Extrahiere Land mit $
daten$Land
```

```
## [1] "Belgien"      "Bulgarien"   
## [3] "Dänemark"     "Deutschland" 
## [5] "Estland"      "Finnland"    
## [7] "Frankreich"   "Griechenland"
##  [ reached getOption("max.print") -- omitted 63 entries ]
```
]

---

# 3 + 1 Datentypen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li>Daten von Festplatte lesen</li>
 <li>Daten leben in <mono>data.frames</li>
 <li><high>3 + 1 Datentypen</high></li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

```r
# Lese Daten in ein Objekt ein
daten <- read.csv('1_Data/Tourismus.csv')

# Extrahiere Dauer mit $
daten$Dauer
```

```
##  [1] 1.727 2.101 1.827 1.709 2.125 2.008
##  [7] 1.555 2.651 2.332 1.781 1.815 1.764
## [13] 2.154 1.618 1.710 1.497 1.727 1.692
## [19] 2.585 1.887 2.235 1.816 2.020 2.297
## [25] 1.753 2.568 3.034 2.283 1.834 2.280
## [31] 2.116 2.602 2.368 2.006 3.417 2.591
## [37] 2.046 2.384 2.582 2.564 2.934 2.479
## [43] 3.220 2.722 2.556 2.585 2.174 3.149
## [49] 3.329 2.000 2.058 1.957 3.565 1.845
## [55] 2.721 2.497 9.533 1.638 1.571 2.392
## [61] 2.250 2.690 2.678 3.620 1.934 2.397
## [67] 3.063 2.679 4.109 2.216 2.750
```
]

---

# 3 + 1 Datentypen

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li>Daten von Festplatte lesen</li>
 <li>Daten leben in <mono>data.frames</li>
 <li><high>3 + 1 Datentypen</high></li>
 <li>Daten auf die Festplatte schreiben</li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

```r
# Lese Daten in ein Objekt ein
daten <- read.csv('1_Data/Tourismus.csv')

# Extrahiere Dauer mit $
class(daten$Dauer)
```

```
## [1] "numeric"
```
]

---

# Daten auf die Festplatte schreiben

<ul>
 <li class="m1g">R(Studio)</li>
 <li class="m2g">Assignments </li>
 <li class="m3g">Funktionen</li>
 <li class="m4">Data I/O</a></li>
 <ul class="level">
 <li>Daten von Festplatte lesen</li>
 <li>Daten leben in <mono>data.frames</li>
 <li>3 + 1 Datentypen</li>
 <li><high>Daten auf die Festplatte schreiben</high></li>
 </ul> 
 <li class="m5g">Analyse</li>
</ul>

]

```r
# Schreibe Daten auf die Festplatte als csv
write.csv(daten, '1_Data/Tourismus_neu.csv')

# Schreibe Daten auf die Festplatte als RDS
saveRDS(daten, '1_Data/Tourismus_neu.RDS')
```
]

---

<h1><high>Interactive</high></h1>