Nächste Schritte

class: center, middle, inverse, title-slide

# Nächste Schritte
### Explorative Datenanalyse mit R <a href='https://therbootcamp.github.io'>The R Bootcamp @ CSS</a> <a href='https://therbootcamp.github.io/EDA_2019Feb/'> </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>
### Dezember 2019

---

layout: true

<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/">
 
 Explorative Datenanalyse mit R @ CSS | Dezember 2019
 
 </a>
 
 </div>

---

.pull-left45[

# Hallo Tidyverse Experten

Nach zwei Tagen kennt ihr nun die Grundlagen von R und des Tidyverse!

]

.pull-right4[

<img src="image/schedule.png" height="580" align="center">
]

---

.pull-left2[

# "Tidyverse" kann noch mehr

]

.pull-right75[

<img src="image/hexwall.png" height=480px></img> 
 from <a href="https://www.mitchelloharawild.com/blog/hexwall/">mitchelloharawild.com</a>

]

---

# `ggrepel`

.pull-left45[

```r
library(ggrepel)

# Lade Tourismus Daten
tour <- read_csv('1_Data/Tourismus.csv') 
europa <- read_csv('1_Data/Europa.csv')

# Verbinde Nächte mit Äquivalenzeinkommen
tour %>%
  mutate(Nächte = Besucher * Dauer) %>%
  left_join(europa) %>%
  ggplot(aes(x = Äquivalenzeinkommen, 
             y = Nächte,
             label = Land)) +
  scale_y_continuous(trans = 'log2') + 
  geom_point() +
  geom_label_repel(size = 2) +
  theme_bw() 
```

]

.pull-right45[

![](NextSteps_files/figure-html/unnamed-chunk-2-1.png)

]

---

# Textanalyse

.pull-left5[

```r
library(tidytext)
library(wordcloud)

# Wörter zählen
counts <- 
 read_html(".../R_(programming_language)") %>%
 html_text() %>%
 tibble() %>%
 unnest_tokens(w, ".") %>%
 filter(!str_detect(w, '[:digit:]')) %>%
 anti_join(stop_words) %>%
 count(word, sort = TRUE) %>%
 top_n(100)

# Wortwolke
wordcloud(counts$word, 
          counts$n)
```

]

.pull-right4[

![](NextSteps_files/figure-html/unnamed-chunk-4-1.png)

]

---

# Statistik

.pull-left45[

```r
library(tidyverse)

# Lade Tourismus Daten
tour <- read_csv('1_Data/Tourismus.csv')
länd <- read_csv('1_Data/Länder.csv')

# verbinde Daten
data <- tour %>% 
 inner_join(länd) %>%
 mutate(Nächte = Besucher * Dauer)

# Regressionsanalyse
model = lm(Nächte ~ Bevölkerung + 
                    Dichte + BIP,
           data = data)
```

]

.pull-right45[

```r
# Bestimmtheitsmass
summary(model)$r.squared
```

```
## [1] 0.05719
```

```r
# Koeffizienten
summary(model)$coef[,-2]
```

```
##               Estimate  t value Pr(>|t|)
## (Intercept)  1.213e+01  0.01294   0.9897
## Bevölkerung  2.379e-06  1.36594   0.1775
## Dichte      -3.381e-01 -0.82598   0.4124
## BIP          2.988e+01  1.50779   0.1373
```
]

---

.pull-left45[

# Maschinelles lernen

```r
library(tidyverse) ; library(rpart)

# Lade Tourismus Daten
tour <- read_csv('1_Data/Tourismus.csv')
länd <- read_csv('1_Data/Länder.csv')

# verbinde Daten
data <- tour %>% 
 inner_join(länd) %>%
 mutate(Nächte = Besucher * Dauer)

# Regressionsanalyse
rpart(
  formula = Besucher ~ Bevölkerung + 
                       Dichte + BIP,
  data = data) 
```

]

.pull-right45[

![](NextSteps_files/figure-html/unnamed-chunk-10-1.png)

]

---

.pull-left45[

# `rmarkdown`

<img style="height:440px" src="image/markdown.png">
]

.pull-right5[
 
<img style="height:510px;box-shadow: 0 4px 8px 0 rgba(0, 0, 0, 0.2), 0 6px 20px 0 rgba(0, 0, 0, 0.19);" src="image/markdown2.png">
]

---

---

# Nächste Schritte

.pull-left5[


1. Anwenden 
2. Bücher 
3. Webseiten 
4. Hilfe & Consulting 
5. Weiterführende Kurse 
]

.pull-right5[
<img border="0" alt="W3Schools" src="http://www.theunmanageableemployee.com/wp-content/uploads/2011/07/5cs-stones-cropped-11052730.jpg?w=112">
]

---

# Bücher

Hier ist eine unvollständige Liste guter Bücher über R lose geordnet nach vorausgesetzter Erfahrung.

<tr>

</tr>

</table>

---

.pull-left4[

# Webseiten

Das Netz ist vll. der beste Ort für Informationen über R.

Beginnt eure Suche mit:

[Google](www.google.com). Stellt sicher, dass ihr *R* oder *Rproject* mit in eurer Suche habt.

Meistens werdet ihr dann weitergeleitet zu:

[R-bloggers](www.r-bloggers.com) informiert euch über die neusten R Entwicklungen. Meldet euch für den Newsletter an.

[Stackoverflow](https://stackoverflow.com/questions/tagged/r) ist eine Seite für R Probleme und Lösungen. Versucht selbst mal ein Problem zu posten. Oft bekommt ihr erstaunlich schnell Antwort.

]

.pull-right5[
 
 <a href="https://www.google.com/"><img border="0" alt="W3Schools" src="https://raw.githubusercontent.com/therbootcamp/therbootcamp.github.io/master/_sessions/_image/google.png" height="100"></a> <br2>
 <a href="https://www.r-bloggers.com/"><img border="0" alt="W3Schools" src="https://raw.githubusercontent.com/therbootcamp/therbootcamp.github.io/master/_sessions/_image/rbloggers.png" height="105" style="margin-bottom:10px"></a> 
 <a href="https://stackoverflow.com/"><img border="0" alt="W3Schools" src="https://raw.githubusercontent.com/therbootcamp/therbootcamp.github.io/master/_sessions/_image/stackoverflow.png" height="105"></a>

]

---

# Support

<table class="tg" style="cellspacing:0; cellpadding:0; border:none">
 <col width="22%">
 <col width="22%">
 <col width="22%">
 <tr>
 <th class="tg-yw4l" valign='top'>
 
 <a href="www.dirkwulff.org"><img border="0" alt="W3Schools" src="https://therbootcamp.github.io/img/team/1.png" height="230" style="border-radius:50%"></a> 
 
 Dr. Dirk Wulff 
 <a href="www.dirkwulff.org">dirkwulff.org</a> 
 <a href="https://github.com/dwulff">github.com/dwulff</a> 
 packages: 
 <a href="https://cran.r-project.org/web/packages/cstab/index.html">cstab</a>, 
 <a href="https://cran.r-project.org/web/packages/mousetrap/index.html">mousetrap</a>, <a href="https://cran.r-project.org/web/packages/memnet/index.html">memnet <a href="https://github.com/dwulff/choicepp">choicepp
 
 </th>
 
 <th class="tg-yw4l" valign='top'> 
 <a href="https://psychologie.unibas.ch/en/persons/markus-steiner/about-me/"><img border="0" alt="W3Schools" src="https://therbootcamp.github.io/img/team/2.png" height="230" style="border-radius:50%"></a> 
 
 Markus Steiner 
 <a href="https://github.com/mdsteiner">github.com/mdsteiner</a> 
 packages: 
 <a href="https://github.com/mdsteiner/ShinyPsych">ShinyPsych</a>, 
 <a href="https://github.com/mdsteiner/EFAdiff">EFAdiff</a> 
 
 </th>
 
 <th class="tg-yw4l" valign='top'>
 
 
 <a href="https://www.schulte-mecklenbeck.com/"><img border="0" alt="W3Schools" src="https://therbootcamp.github.io/img/team/3.png" height="230" style="border-radius:50%"></a> 
 
 Dr. Michael Schulte- Mecklenbeck 
 <a href="www.schulte-mecklenbeck.com">schulte-mecklenbeck.com</a> 
 <a href="https://github.com/schultem">github.com/schultem</a> 
 
 </th>

</tr>

</table>

---

# Weiterführende Kurse

<table class="tg" style="cellspacing:0; cellpadding:0; border:none;">
<tr valign="top">
 <col width="25%">
 <col width="25%">
 <col width="25%">
 <col width="25%">
 <td>
 
 <a class="project-link" href="http://therbootcamp.github.io/#courses" align="center">
 Explorative Datenanalyse mit R 
 
 <img src="https://therbootcamp.github.io/img/courses/1.png" height="230px" style="border-radius:50%;border:10px solid #E9ECEF"></img> 
 <high>Februar 14/15, 2020</high> 
 
 </td>
 <td>
 
 <a class="project-link" href="http://therbootcamp.github.io/#courses" align="center">
 Statistik mit R 
 
 <img src="https://therbootcamp.github.io/img/courses/2.png" height="230px" style="border-radius:50%;border:10px solid #E9ECEF"></img> 
 <high>March 20/21, 2019</high> 
 </a>
 
 </td>
 <td>
 
 <a class="project-link" href="http://therbootcamp.github.io/#courses" align="center">
 Maschinelles Lernen mit R 
 
 <img src="https://therbootcamp.github.io/img/courses/3.png" height="230px" style="border-radius:50%;border:10px solid #E9ECEF"></img> 
 <high>April 3/4, 2019</high> 
 </a>
 
 </td>
 <td>
 
 <a class="project-link" href="http://therbootcamp.github.io/#courses" align="center">
 Reporting mit R 
 
 <img src="https://therbootcamp.github.io/img/courses/4.png" height="230px" style="border-radius:50%;border:10px solid #E9ECEF"></img> 
 <high>Mai 15/16, 2019</high> 
 </a>
 
 </td>
 </tr>

---

.pull-left45[
# Bitte gebt uns Feedback

<img src="image/feedback.png" height=350px></img> 
 from <a href="https://cdn-images-1.medium.com/max/1600/1*5OZNYAfzDZfM1lwJBZEuHQ.png">medium.com</a>

]

.pull-right45[

]

---
class: center, middle

# Herzlichen Dank! und noch eine Sache...