Tidyverse cont’d

# Tidyverse cont’d
### Data Visualization for Social Good <a href='https://correlaid.org/correlaid-x/switzerland/'> CorrelAid Switzerland </a> <a href='https://correlaidswitzerland.github.io/DataViz4Good/'> </a>  <a href='https://correlaid.org/correlaid-x/switzerland/'> </a>  <a href='switzerland@correlaid.org'> </a>  <a href='https://www.linkedin.com/company/correlaidswiss/'> </a>
### February 2021

---

<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/">
 
 
 https://correlaid.org/correlaid-x/switzerland/
 
 
 </a>
 <a href="https://correlaid.org/correlaid-x/switzerland/">
 
 Data Visualization for Social Good | February 2021
 
 </a>
 
 </div>

---

# The R <mono>tidyverse</mono> can do a lot more

1. `tidyverse` core 
2. `tidyverse` extended

]

.pull-right5[
<img border="0" alt="W3Schools" src="https://www.oreilly.com/library/view/the-art-of/9781593273842/httpatomoreillycomsourcenostarchimages915868.png.jpg" width="400px">
]

---

# <mono>tidyverse</mono> core

<ul>
 <li class="m1">The tidyverse is...</li> 
 <ul class="level">
 <li>A collection of user-friendly <high>packages</high> for analyzing <high>tidy data</high></li> 
 <li>An <high>ecosystem</high> for analytics and data science with common design principles</li> 
 <li>A <high>dialect</high> of the R language</li>
 </ul>
</ul>

]

]

---

# `tidyverse` extended

<ul>
 <li class="m1">The tidyverse is...an <high>ecosystem</high> for analytics and data science with common design principles</li>
</ul>

]

]

---

# <img src="https://github.com/thomasp85/gganimate/raw/master/man/figures/logo.png" style="height:48px"> <mono>gganimate</mono> for animations

```r
basel %>% 
  ggplot(aes(x = year, col = quarter)) + 
  geom_point(aes(y = wealth_mean)) + 
  geom_line(aes(y = wealth_mean)) + 
  guides(col = FALSE) +
  theme_minimal() + 
  
  # add animation
  transition_reveal(year)
```

]

]

---

# <img src="https://github.com/thomasp85/gganimate/raw/master/man/figures/logo.png" style="height:48px"> <mono>gganimate</mono> for animations

```r
plot = basel_map %>% 
  
  # original code
  left_join(basel, 
            by = c('TYPE' = 'quarter')) %>% 
  ggplot(aes(fill = wealth_mean)) + 
  geom_sf(col = 'white') + 
  guides(fill = FALSE) + 
  theme_void() +
  
  # add animation
  ggtitle("{closest_state}") +
  theme(plot.title = element_text(
    hjust = 0.5,size=20)) +
  transition_states(year)
```

]

]

---

# <img src="https://avatars.githubusercontent.com/u/5997976?s=200&v=4" style="height:48px"> <mono>plotly</mono> for interactive graphics

```r
# original plot
plot <- basel_map %>% 
 left_join(basel, 
 by = c('TYPE' = 'quarter')) %>% 
 ggplot(aes(x = year, col = TYPE)) + 
 geom_point(aes(y = wealth_mean)) + 
 geom_line(aes(y = wealth_mean)) + 
 guides(col = FALSE) +
 theme_minimal() 
 
# plotlify
ggplotly(plot)
```

]

<div id="htmlwidget-a3a4b23c5870e97daebd" style="width:504px;height:504px;" class="plotly html-widget"></div>
<script type="application/json" data-for="htmlwidget-a3a4b23c5870e97daebd">{"x":{"data":[{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[1014720,1119065,1029143,515646,657556,1043716,1032455,799849,1011185,949972,766231,887314,1011559,1018173,1015165,1042452,1060205],"text":["wealth_mean: 1014720 year: 2001 TYPE: Altstadt Grossbasel","wealth_mean: 1119065 year: 2002 TYPE: Altstadt Grossbasel","wealth_mean: 1029143 year: 2003 TYPE: Altstadt Grossbasel","wealth_mean: 515646 year: 2004 TYPE: Altstadt Grossbasel","wealth_mean: 657556 year: 2005 TYPE: Altstadt Grossbasel","wealth_mean: 1043716 year: 2006 TYPE: Altstadt Grossbasel","wealth_mean: 1032455 year: 2007 TYPE: Altstadt Grossbasel","wealth_mean: 799849 year: 2008 TYPE: Altstadt Grossbasel","wealth_mean: 1011185 year: 2009 TYPE: Altstadt Grossbasel","wealth_mean: 949972 year: 2010 TYPE: Altstadt Grossbasel","wealth_mean: 766231 year: 2011 TYPE: Altstadt Grossbasel","wealth_mean: 887314 year: 2012 TYPE: Altstadt Grossbasel","wealth_mean: 1011559 year: 2013 TYPE: Altstadt Grossbasel","wealth_mean: 1018173 year: 2014 TYPE: Altstadt Grossbasel","wealth_mean: 1015165 year: 2015 TYPE: Altstadt Grossbasel","wealth_mean: 1042452 year: 2016 TYPE: Altstadt Grossbasel","wealth_mean: 1060205 year: 2017 TYPE: Altstadt Grossbasel"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(248,118,109,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(248,118,109,1)"}},"hoveron":"points","name":"Altstadt Grossbasel","legendgroup":"Altstadt Grossbasel","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(248,118,109,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[222560,220470,229262,213067,252148,271328,231373,219244,232753,229873,193738,217040,236977,244073,249077,282293,286780],"text":["wealth_mean: 222560 year: 2001 TYPE: Altstadt Kleinbasel","wealth_mean: 220470 year: 2002 TYPE: Altstadt Kleinbasel","wealth_mean: 229262 year: 2003 TYPE: Altstadt Kleinbasel","wealth_mean: 213067 year: 2004 TYPE: Altstadt Kleinbasel","wealth_mean: 252148 year: 2005 TYPE: Altstadt Kleinbasel","wealth_mean: 271328 year: 2006 TYPE: Altstadt Kleinbasel","wealth_mean: 231373 year: 2007 TYPE: Altstadt Kleinbasel","wealth_mean: 219244 year: 2008 TYPE: Altstadt Kleinbasel","wealth_mean: 232753 year: 2009 TYPE: Altstadt Kleinbasel","wealth_mean: 229873 year: 2010 TYPE: Altstadt Kleinbasel","wealth_mean: 193738 year: 2011 TYPE: Altstadt Kleinbasel","wealth_mean: 217040 year: 2012 TYPE: Altstadt Kleinbasel","wealth_mean: 236977 year: 2013 TYPE: Altstadt Kleinbasel","wealth_mean: 244073 year: 2014 TYPE: Altstadt Kleinbasel","wealth_mean: 249077 year: 2015 TYPE: Altstadt Kleinbasel","wealth_mean: 282293 year: 2016 TYPE: Altstadt Kleinbasel","wealth_mean: 286780 year: 2017 TYPE: Altstadt Kleinbasel"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(235,131,53,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(235,131,53,1)"}},"hoveron":"points","name":"Altstadt Kleinbasel","legendgroup":"Altstadt Kleinbasel","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(235,131,53,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[300878,304331,318314,298493,342044,377270,366048,345912,394083,389314,474358,488275,558814,615395,435416,448259,476747],"text":["wealth_mean: 300878 year: 2001 TYPE: Am Ring","wealth_mean: 304331 year: 2002 TYPE: Am Ring","wealth_mean: 318314 year: 2003 TYPE: Am Ring","wealth_mean: 298493 year: 2004 TYPE: Am Ring","wealth_mean: 342044 year: 2005 TYPE: Am Ring","wealth_mean: 377270 year: 2006 TYPE: Am Ring","wealth_mean: 366048 year: 2007 TYPE: Am Ring","wealth_mean: 345912 year: 2008 TYPE: Am Ring","wealth_mean: 394083 year: 2009 TYPE: Am Ring","wealth_mean: 389314 year: 2010 TYPE: Am Ring","wealth_mean: 474358 year: 2011 TYPE: Am Ring","wealth_mean: 488275 year: 2012 TYPE: Am Ring","wealth_mean: 558814 year: 2013 TYPE: Am Ring","wealth_mean: 615395 year: 2014 TYPE: Am Ring","wealth_mean: 435416 year: 2015 TYPE: Am Ring","wealth_mean: 448259 year: 2016 TYPE: Am Ring","wealth_mean: 476747 year: 2017 TYPE: Am Ring"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(218,143,0,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(218,143,0,1)"}},"hoveron":"points","name":"Am Ring","legendgroup":"Am Ring","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(218,143,0,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[346088,341300,349454,339879,385637,376478,369065,323943,347055,372023,342308,371076,385400,410582,413563,464497,491478],"text":["wealth_mean: 346088 year: 2001 TYPE: Bachletten","wealth_mean: 341300 year: 2002 TYPE: Bachletten","wealth_mean: 349454 year: 2003 TYPE: Bachletten","wealth_mean: 339879 year: 2004 TYPE: Bachletten","wealth_mean: 385637 year: 2005 TYPE: Bachletten","wealth_mean: 376478 year: 2006 TYPE: Bachletten","wealth_mean: 369065 year: 2007 TYPE: Bachletten","wealth_mean: 323943 year: 2008 TYPE: Bachletten","wealth_mean: 347055 year: 2009 TYPE: Bachletten","wealth_mean: 372023 year: 2010 TYPE: Bachletten","wealth_mean: 342308 year: 2011 TYPE: Bachletten","wealth_mean: 371076 year: 2012 TYPE: Bachletten","wealth_mean: 385400 year: 2013 TYPE: Bachletten","wealth_mean: 410582 year: 2014 TYPE: Bachletten","wealth_mean: 413563 year: 2015 TYPE: Bachletten","wealth_mean: 464497 year: 2016 TYPE: Bachletten","wealth_mean: 491478 year: 2017 TYPE: Bachletten"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(196,154,0,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(196,154,0,1)"}},"hoveron":"points","name":"Bachletten","legendgroup":"Bachletten","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(196,154,0,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[537289,527151,486236,546557,610226,627310,618129,555614,792733,828771,590867,603179,640035,727259,2359934,2216243,2379097],"text":["wealth_mean: 537289 year: 2001 TYPE: Bettingen","wealth_mean: 527151 year: 2002 TYPE: Bettingen","wealth_mean: 486236 year: 2003 TYPE: Bettingen","wealth_mean: 546557 year: 2004 TYPE: Bettingen","wealth_mean: 610226 year: 2005 TYPE: Bettingen","wealth_mean: 627310 year: 2006 TYPE: Bettingen","wealth_mean: 618129 year: 2007 TYPE: Bettingen","wealth_mean: 555614 year: 2008 TYPE: Bettingen","wealth_mean: 792733 year: 2009 TYPE: Bettingen","wealth_mean: 828771 year: 2010 TYPE: Bettingen","wealth_mean: 590867 year: 2011 TYPE: Bettingen","wealth_mean: 603179 year: 2012 TYPE: Bettingen","wealth_mean: 640035 year: 2013 TYPE: Bettingen","wealth_mean: 727259 year: 2014 TYPE: Bettingen","wealth_mean: 2359934 year: 2015 TYPE: Bettingen","wealth_mean: 2216243 year: 2016 TYPE: Bettingen","wealth_mean: 2379097 year: 2017 TYPE: Bettingen"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(169,164,0,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(169,164,0,1)"}},"hoveron":"points","name":"Bettingen","legendgroup":"Bettingen","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(169,164,0,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[105198,109106,116849,113590,122623,124926,118860,114075,118098,113890,126461,128565,133011,132928,140160,149641,153404],"text":["wealth_mean: 105198 year: 2001 TYPE: Breite","wealth_mean: 109106 year: 2002 TYPE: Breite","wealth_mean: 116849 year: 2003 TYPE: Breite","wealth_mean: 113590 year: 2004 TYPE: Breite","wealth_mean: 122623 year: 2005 TYPE: Breite","wealth_mean: 124926 year: 2006 TYPE: Breite","wealth_mean: 118860 year: 2007 TYPE: Breite","wealth_mean: 114075 year: 2008 TYPE: Breite","wealth_mean: 118098 year: 2009 TYPE: Breite","wealth_mean: 113890 year: 2010 TYPE: Breite","wealth_mean: 126461 year: 2011 TYPE: Breite","wealth_mean: 128565 year: 2012 TYPE: Breite","wealth_mean: 133011 year: 2013 TYPE: Breite","wealth_mean: 132928 year: 2014 TYPE: Breite","wealth_mean: 140160 year: 2015 TYPE: Breite","wealth_mean: 149641 year: 2016 TYPE: Breite","wealth_mean: 153404 year: 2017 TYPE: Breite"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(134,172,0,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(134,172,0,1)"}},"hoveron":"points","name":"Breite","legendgroup":"Breite","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(134,172,0,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[982401,1057536,1137819,1122169,1514325,1926780,2113170,2272007,2345079,1977704,1504220,2166897,2655147,2868374,2519406,2549938,1273808],"text":["wealth_mean: 982401 year: 2001 TYPE: Bruderholz","wealth_mean: 1057536 year: 2002 TYPE: Bruderholz","wealth_mean: 1137819 year: 2003 TYPE: Bruderholz","wealth_mean: 1122169 year: 2004 TYPE: Bruderholz","wealth_mean: 1514325 year: 2005 TYPE: Bruderholz","wealth_mean: 1926780 year: 2006 TYPE: Bruderholz","wealth_mean: 2113170 year: 2007 TYPE: Bruderholz","wealth_mean: 2272007 year: 2008 TYPE: Bruderholz","wealth_mean: 2345079 year: 2009 TYPE: Bruderholz","wealth_mean: 1977704 year: 2010 TYPE: Bruderholz","wealth_mean: 1504220 year: 2011 TYPE: Bruderholz","wealth_mean: 2166897 year: 2012 TYPE: Bruderholz","wealth_mean: 2655147 year: 2013 TYPE: Bruderholz","wealth_mean: 2868374 year: 2014 TYPE: Bruderholz","wealth_mean: 2519406 year: 2015 TYPE: Bruderholz","wealth_mean: 2549938 year: 2016 TYPE: Bruderholz","wealth_mean: 1273808 year: 2017 TYPE: Bruderholz"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(83,180,0,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(83,180,0,1)"}},"hoveron":"points","name":"Bruderholz","legendgroup":"Bruderholz","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(83,180,0,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[78995,81107,82602,79370,88637,88418,91592,91442,96201,99397,104734,112171,117348,121196,130164,135518,139220],"text":["wealth_mean: 78995 year: 2001 TYPE: Clara","wealth_mean: 81107 year: 2002 TYPE: Clara","wealth_mean: 82602 year: 2003 TYPE: Clara","wealth_mean: 79370 year: 2004 TYPE: Clara","wealth_mean: 88637 year: 2005 TYPE: Clara","wealth_mean: 88418 year: 2006 TYPE: Clara","wealth_mean: 91592 year: 2007 TYPE: Clara","wealth_mean: 91442 year: 2008 TYPE: Clara","wealth_mean: 96201 year: 2009 TYPE: Clara","wealth_mean: 99397 year: 2010 TYPE: Clara","wealth_mean: 104734 year: 2011 TYPE: Clara","wealth_mean: 112171 year: 2012 TYPE: Clara","wealth_mean: 117348 year: 2013 TYPE: Clara","wealth_mean: 121196 year: 2014 TYPE: Clara","wealth_mean: 130164 year: 2015 TYPE: Clara","wealth_mean: 135518 year: 2016 TYPE: Clara","wealth_mean: 139220 year: 2017 TYPE: Clara"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(0,186,56,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(0,186,56,1)"}},"hoveron":"points","name":"Clara","legendgroup":"Clara","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(0,186,56,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[324687,375798,426950,477239,660155,719158,760702,679150,734089,657785,664810,679908,725713,746185,229963,704932,698434],"text":["wealth_mean: 324687 year: 2001 TYPE: Gotthelf","wealth_mean: 375798 year: 2002 TYPE: Gotthelf","wealth_mean: 426950 year: 2003 TYPE: Gotthelf","wealth_mean: 477239 year: 2004 TYPE: Gotthelf","wealth_mean: 660155 year: 2005 TYPE: Gotthelf","wealth_mean: 719158 year: 2006 TYPE: Gotthelf","wealth_mean: 760702 year: 2007 TYPE: Gotthelf","wealth_mean: 679150 year: 2008 TYPE: Gotthelf","wealth_mean: 734089 year: 2009 TYPE: Gotthelf","wealth_mean: 657785 year: 2010 TYPE: Gotthelf","wealth_mean: 664810 year: 2011 TYPE: Gotthelf","wealth_mean: 679908 year: 2012 TYPE: Gotthelf","wealth_mean: 725713 year: 2013 TYPE: Gotthelf","wealth_mean: 746185 year: 2014 TYPE: Gotthelf","wealth_mean: 229963 year: 2015 TYPE: Gotthelf","wealth_mean: 704932 year: 2016 TYPE: Gotthelf","wealth_mean: 698434 year: 2017 TYPE: Gotthelf"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(0,190,109,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(0,190,109,1)"}},"hoveron":"points","name":"Gotthelf","legendgroup":"Gotthelf","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(0,190,109,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[92099,95544,91286,85258,97584,97926,100436,95313,105618,104176,114061,115575,128106,139876,145346,147613,161585],"text":["wealth_mean: 92099 year: 2001 TYPE: Gundeldingen","wealth_mean: 95544 year: 2002 TYPE: Gundeldingen","wealth_mean: 91286 year: 2003 TYPE: Gundeldingen","wealth_mean: 85258 year: 2004 TYPE: Gundeldingen","wealth_mean: 97584 year: 2005 TYPE: Gundeldingen","wealth_mean: 97926 year: 2006 TYPE: Gundeldingen","wealth_mean: 100436 year: 2007 TYPE: Gundeldingen","wealth_mean: 95313 year: 2008 TYPE: Gundeldingen","wealth_mean: 105618 year: 2009 TYPE: Gundeldingen","wealth_mean: 104176 year: 2010 TYPE: Gundeldingen","wealth_mean: 114061 year: 2011 TYPE: Gundeldingen","wealth_mean: 115575 year: 2012 TYPE: Gundeldingen","wealth_mean: 128106 year: 2013 TYPE: Gundeldingen","wealth_mean: 139876 year: 2014 TYPE: Gundeldingen","wealth_mean: 145346 year: 2015 TYPE: Gundeldingen","wealth_mean: 147613 year: 2016 TYPE: Gundeldingen","wealth_mean: 161585 year: 2017 TYPE: Gundeldingen"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(0,192,148,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(0,192,148,1)"}},"hoveron":"points","name":"Gundeldingen","legendgroup":"Gundeldingen","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(0,192,148,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[147360,149692,148635,146748,166275,163464,166614,152920,164208,166139,164987,174037,176675,186178,186072,195472,184461],"text":["wealth_mean: 147360 year: 2001 TYPE: Hirzbrunnen","wealth_mean: 149692 year: 2002 TYPE: Hirzbrunnen","wealth_mean: 148635 year: 2003 TYPE: Hirzbrunnen","wealth_mean: 146748 year: 2004 TYPE: Hirzbrunnen","wealth_mean: 166275 year: 2005 TYPE: Hirzbrunnen","wealth_mean: 163464 year: 2006 TYPE: Hirzbrunnen","wealth_mean: 166614 year: 2007 TYPE: Hirzbrunnen","wealth_mean: 152920 year: 2008 TYPE: Hirzbrunnen","wealth_mean: 164208 year: 2009 TYPE: Hirzbrunnen","wealth_mean: 166139 year: 2010 TYPE: Hirzbrunnen","wealth_mean: 164987 year: 2011 TYPE: Hirzbrunnen","wealth_mean: 174037 year: 2012 TYPE: Hirzbrunnen","wealth_mean: 176675 year: 2013 TYPE: Hirzbrunnen","wealth_mean: 186178 year: 2014 TYPE: Hirzbrunnen","wealth_mean: 186072 year: 2015 TYPE: Hirzbrunnen","wealth_mean: 195472 year: 2016 TYPE: Hirzbrunnen","wealth_mean: 184461 year: 2017 TYPE: Hirzbrunnen"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(0,192,181,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(0,192,181,1)"}},"hoveron":"points","name":"Hirzbrunnen","legendgroup":"Hirzbrunnen","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(0,192,181,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[99290,105572,102769,96706,104439,100717,102338,99426,104990,104716,113005,119346,120287,122530,130113,127693,137154],"text":["wealth_mean: 99290 year: 2001 TYPE: Iselin","wealth_mean: 105572 year: 2002 TYPE: Iselin","wealth_mean: 102769 year: 2003 TYPE: Iselin","wealth_mean: 96706 year: 2004 TYPE: Iselin","wealth_mean: 104439 year: 2005 TYPE: Iselin","wealth_mean: 100717 year: 2006 TYPE: Iselin","wealth_mean: 102338 year: 2007 TYPE: Iselin","wealth_mean: 99426 year: 2008 TYPE: Iselin","wealth_mean: 104990 year: 2009 TYPE: Iselin","wealth_mean: 104716 year: 2010 TYPE: Iselin","wealth_mean: 113005 year: 2011 TYPE: Iselin","wealth_mean: 119346 year: 2012 TYPE: Iselin","wealth_mean: 120287 year: 2013 TYPE: Iselin","wealth_mean: 122530 year: 2014 TYPE: Iselin","wealth_mean: 130113 year: 2015 TYPE: Iselin","wealth_mean: 127693 year: 2016 TYPE: Iselin","wealth_mean: 137154 year: 2017 TYPE: Iselin"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(0,189,210,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(0,189,210,1)"}},"hoveron":"points","name":"Iselin","legendgroup":"Iselin","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(0,189,210,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[58208,61289,60320,54747,60874,56156,54963,58287,56278,59853,61015,64542,67385,63484,68636,71011,76802],"text":["wealth_mean: 58208 year: 2001 TYPE: Kleinhüningen","wealth_mean: 61289 year: 2002 TYPE: Kleinhüningen","wealth_mean: 60320 year: 2003 TYPE: Kleinhüningen","wealth_mean: 54747 year: 2004 TYPE: Kleinhüningen","wealth_mean: 60874 year: 2005 TYPE: Kleinhüningen","wealth_mean: 56156 year: 2006 TYPE: Kleinhüningen","wealth_mean: 54963 year: 2007 TYPE: Kleinhüningen","wealth_mean: 58287 year: 2008 TYPE: Kleinhüningen","wealth_mean: 56278 year: 2009 TYPE: Kleinhüningen","wealth_mean: 59853 year: 2010 TYPE: Kleinhüningen","wealth_mean: 61015 year: 2011 TYPE: Kleinhüningen","wealth_mean: 64542 year: 2012 TYPE: Kleinhüningen","wealth_mean: 67385 year: 2013 TYPE: Kleinhüningen","wealth_mean: 63484 year: 2014 TYPE: Kleinhüningen","wealth_mean: 68636 year: 2015 TYPE: Kleinhüningen","wealth_mean: 71011 year: 2016 TYPE: Kleinhüningen","wealth_mean: 76802 year: 2017 TYPE: Kleinhüningen"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(0,182,235,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(0,182,235,1)"}},"hoveron":"points","name":"Kleinhüningen","legendgroup":"Kleinhüningen","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(0,182,235,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[54040,55939,53653,49607,52486,52083,50527,49418,52694,54235,54427,54090,53921,57717,59248,60372,66050],"text":["wealth_mean: 54040 year: 2001 TYPE: Klybeck","wealth_mean: 55939 year: 2002 TYPE: Klybeck","wealth_mean: 53653 year: 2003 TYPE: Klybeck","wealth_mean: 49607 year: 2004 TYPE: Klybeck","wealth_mean: 52486 year: 2005 TYPE: Klybeck","wealth_mean: 52083 year: 2006 TYPE: Klybeck","wealth_mean: 50527 year: 2007 TYPE: Klybeck","wealth_mean: 49418 year: 2008 TYPE: Klybeck","wealth_mean: 52694 year: 2009 TYPE: Klybeck","wealth_mean: 54235 year: 2010 TYPE: Klybeck","wealth_mean: 54427 year: 2011 TYPE: Klybeck","wealth_mean: 54090 year: 2012 TYPE: Klybeck","wealth_mean: 53921 year: 2013 TYPE: Klybeck","wealth_mean: 57717 year: 2014 TYPE: Klybeck","wealth_mean: 59248 year: 2015 TYPE: Klybeck","wealth_mean: 60372 year: 2016 TYPE: Klybeck","wealth_mean: 66050 year: 2017 TYPE: Klybeck"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(0,171,253,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(0,171,253,1)"}},"hoveron":"points","name":"Klybeck","legendgroup":"Klybeck","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(0,171,253,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[87623,91361,90921,87854,92556,92244,95459,90644,99566,100128,104610,112177,116354,123557,128623,143892,148639],"text":["wealth_mean: 87623 year: 2001 TYPE: Matthäus","wealth_mean: 91361 year: 2002 TYPE: Matthäus","wealth_mean: 90921 year: 2003 TYPE: Matthäus","wealth_mean: 87854 year: 2004 TYPE: Matthäus","wealth_mean: 92556 year: 2005 TYPE: Matthäus","wealth_mean: 92244 year: 2006 TYPE: Matthäus","wealth_mean: 95459 year: 2007 TYPE: Matthäus","wealth_mean: 90644 year: 2008 TYPE: Matthäus","wealth_mean: 99566 year: 2009 TYPE: Matthäus","wealth_mean: 100128 year: 2010 TYPE: Matthäus","wealth_mean: 104610 year: 2011 TYPE: Matthäus","wealth_mean: 112177 year: 2012 TYPE: Matthäus","wealth_mean: 116354 year: 2013 TYPE: Matthäus","wealth_mean: 123557 year: 2014 TYPE: Matthäus","wealth_mean: 128623 year: 2015 TYPE: Matthäus","wealth_mean: 143892 year: 2016 TYPE: Matthäus","wealth_mean: 148639 year: 2017 TYPE: Matthäus"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(97,156,255,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(97,156,255,1)"}},"hoveron":"points","name":"Matthäus","legendgroup":"Matthäus","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(97,156,255,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[539052,532211,519560,507726,726599,613220,608334,490860,559401,550778,591297,526274,652857,670362,642705,810996,841152],"text":["wealth_mean: 539052 year: 2001 TYPE: Riehen","wealth_mean: 532211 year: 2002 TYPE: Riehen","wealth_mean: 519560 year: 2003 TYPE: Riehen","wealth_mean: 507726 year: 2004 TYPE: Riehen","wealth_mean: 726599 year: 2005 TYPE: Riehen","wealth_mean: 613220 year: 2006 TYPE: Riehen","wealth_mean: 608334 year: 2007 TYPE: Riehen","wealth_mean: 490860 year: 2008 TYPE: Riehen","wealth_mean: 559401 year: 2009 TYPE: Riehen","wealth_mean: 550778 year: 2010 TYPE: Riehen","wealth_mean: 591297 year: 2011 TYPE: Riehen","wealth_mean: 526274 year: 2012 TYPE: Riehen","wealth_mean: 652857 year: 2013 TYPE: Riehen","wealth_mean: 670362 year: 2014 TYPE: Riehen","wealth_mean: 642705 year: 2015 TYPE: Riehen","wealth_mean: 810996 year: 2016 TYPE: Riehen","wealth_mean: 841152 year: 2017 TYPE: Riehen"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(165,138,255,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(165,138,255,1)"}},"hoveron":"points","name":"Riehen","legendgroup":"Riehen","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(165,138,255,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[58042,61020,57722,48182,54923,52396,46130,48532,54992,56163,60887,69545,73207,72774,76964,92875,87336],"text":["wealth_mean: 58042 year: 2001 TYPE: Rosental","wealth_mean: 61020 year: 2002 TYPE: Rosental","wealth_mean: 57722 year: 2003 TYPE: Rosental","wealth_mean: 48182 year: 2004 TYPE: Rosental","wealth_mean: 54923 year: 2005 TYPE: Rosental","wealth_mean: 52396 year: 2006 TYPE: Rosental","wealth_mean: 46130 year: 2007 TYPE: Rosental","wealth_mean: 48532 year: 2008 TYPE: Rosental","wealth_mean: 54992 year: 2009 TYPE: Rosental","wealth_mean: 56163 year: 2010 TYPE: Rosental","wealth_mean: 60887 year: 2011 TYPE: Rosental","wealth_mean: 69545 year: 2012 TYPE: Rosental","wealth_mean: 73207 year: 2013 TYPE: Rosental","wealth_mean: 72774 year: 2014 TYPE: Rosental","wealth_mean: 76964 year: 2015 TYPE: Rosental","wealth_mean: 92875 year: 2016 TYPE: Rosental","wealth_mean: 87336 year: 2017 TYPE: Rosental"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(208,120,255,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(208,120,255,1)"}},"hoveron":"points","name":"Rosental","legendgroup":"Rosental","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(208,120,255,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[778475,782004,741616,765489,850281,862648,862577,707868,761393,749056,731164,814016,817904,920256,1033797,1018634,1056515],"text":["wealth_mean: 778475 year: 2001 TYPE: St. Alban","wealth_mean: 782004 year: 2002 TYPE: St. Alban","wealth_mean: 741616 year: 2003 TYPE: St. Alban","wealth_mean: 765489 year: 2004 TYPE: St. Alban","wealth_mean: 850281 year: 2005 TYPE: St. Alban","wealth_mean: 862648 year: 2006 TYPE: St. Alban","wealth_mean: 862577 year: 2007 TYPE: St. Alban","wealth_mean: 707868 year: 2008 TYPE: St. Alban","wealth_mean: 761393 year: 2009 TYPE: St. Alban","wealth_mean: 749056 year: 2010 TYPE: St. Alban","wealth_mean: 731164 year: 2011 TYPE: St. Alban","wealth_mean: 814016 year: 2012 TYPE: St. Alban","wealth_mean: 817904 year: 2013 TYPE: St. Alban","wealth_mean: 920256 year: 2014 TYPE: St. Alban","wealth_mean: 1033797 year: 2015 TYPE: St. Alban","wealth_mean: 1018634 year: 2016 TYPE: St. Alban","wealth_mean: 1056515 year: 2017 TYPE: St. Alban"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(236,105,239,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(236,105,239,1)"}},"hoveron":"points","name":"St. Alban","legendgroup":"St. Alban","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(236,105,239,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[108752,112173,115906,102486,125713,122793,124901,106492,110789,115398,108690,117448,124334,135759,131943,146195,151139],"text":["wealth_mean: 108752 year: 2001 TYPE: St. Johann","wealth_mean: 112173 year: 2002 TYPE: St. Johann","wealth_mean: 115906 year: 2003 TYPE: St. Johann","wealth_mean: 102486 year: 2004 TYPE: St. Johann","wealth_mean: 125713 year: 2005 TYPE: St. Johann","wealth_mean: 122793 year: 2006 TYPE: St. Johann","wealth_mean: 124901 year: 2007 TYPE: St. Johann","wealth_mean: 106492 year: 2008 TYPE: St. Johann","wealth_mean: 110789 year: 2009 TYPE: St. Johann","wealth_mean: 115398 year: 2010 TYPE: St. Johann","wealth_mean: 108690 year: 2011 TYPE: St. Johann","wealth_mean: 117448 year: 2012 TYPE: St. Johann","wealth_mean: 124334 year: 2013 TYPE: St. Johann","wealth_mean: 135759 year: 2014 TYPE: St. Johann","wealth_mean: 131943 year: 2015 TYPE: St. Johann","wealth_mean: 146195 year: 2016 TYPE: St. Johann","wealth_mean: 151139 year: 2017 TYPE: St. Johann"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(251,97,215,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(251,97,215,1)"}},"hoveron":"points","name":"St. Johann","legendgroup":"St. Johann","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(251,97,215,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[1119418,1293210,1440540,1586363,2053734,1723016,932311,830373,905328,996005,1121813,1372032,1562522,1800693,1392666,1434679,1523290],"text":["wealth_mean: 1119418 year: 2001 TYPE: Vorstädte","wealth_mean: 1293210 year: 2002 TYPE: Vorstädte","wealth_mean: 1440540 year: 2003 TYPE: Vorstädte","wealth_mean: 1586363 year: 2004 TYPE: Vorstädte","wealth_mean: 2053734 year: 2005 TYPE: Vorstädte","wealth_mean: 1723016 year: 2006 TYPE: Vorstädte","wealth_mean: 932311 year: 2007 TYPE: Vorstädte","wealth_mean: 830373 year: 2008 TYPE: Vorstädte","wealth_mean: 905328 year: 2009 TYPE: Vorstädte","wealth_mean: 996005 year: 2010 TYPE: Vorstädte","wealth_mean: 1121813 year: 2011 TYPE: Vorstädte","wealth_mean: 1372032 year: 2012 TYPE: Vorstädte","wealth_mean: 1562522 year: 2013 TYPE: Vorstädte","wealth_mean: 1800693 year: 2014 TYPE: Vorstädte","wealth_mean: 1392666 year: 2015 TYPE: Vorstädte","wealth_mean: 1434679 year: 2016 TYPE: Vorstädte","wealth_mean: 1523290 year: 2017 TYPE: Vorstädte"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(255,99,185,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(255,99,185,1)"}},"hoveron":"points","name":"Vorstädte","legendgroup":"Vorstädte","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(255,99,185,1)","dash":"solid"},"frame":null},{"x":[2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017],"y":[248001,239534,239286,196145,260332,278038,294679,292388,284055,332783,366464,253073,279127,565122,296022,350734,373707],"text":["wealth_mean: 248001 year: 2001 TYPE: Wettstein","wealth_mean: 239534 year: 2002 TYPE: Wettstein","wealth_mean: 239286 year: 2003 TYPE: Wettstein","wealth_mean: 196145 year: 2004 TYPE: Wettstein","wealth_mean: 260332 year: 2005 TYPE: Wettstein","wealth_mean: 278038 year: 2006 TYPE: Wettstein","wealth_mean: 294679 year: 2007 TYPE: Wettstein","wealth_mean: 292388 year: 2008 TYPE: Wettstein","wealth_mean: 284055 year: 2009 TYPE: Wettstein","wealth_mean: 332783 year: 2010 TYPE: Wettstein","wealth_mean: 366464 year: 2011 TYPE: Wettstein","wealth_mean: 253073 year: 2012 TYPE: Wettstein","wealth_mean: 279127 year: 2013 TYPE: Wettstein","wealth_mean: 565122 year: 2014 TYPE: Wettstein","wealth_mean: 296022 year: 2015 TYPE: Wettstein","wealth_mean: 350734 year: 2016 TYPE: Wettstein","wealth_mean: 373707 year: 2017 TYPE: Wettstein"],"type":"scatter","mode":"markers+lines","marker":{"autocolorscale":false,"color":"rgba(255,107,150,1)","opacity":1,"size":5.66929133858268,"symbol":"circle","line":{"width":1.88976377952756,"color":"rgba(255,107,150,1)"}},"hoveron":"points","name":"Wettstein","legendgroup":"Wettstein","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","line":{"width":1.88976377952756,"color":"rgba(255,107,150,1)","dash":"solid"},"frame":null}],"layout":{"margin":{"t":23.3059360730594,"r":7.30593607305936,"b":37.2602739726027,"l":54.7945205479452},"font":{"color":"rgba(0,0,0,1)","family":"","size":14.6118721461187},"xaxis":{"domain":[0,1],"automargin":true,"type":"linear","autorange":false,"range":[2000.2,2017.8],"tickmode":"array","ticktext":["2005","2010","2015"],"tickvals":[2005,2010,2015],"categoryorder":"array","categoryarray":["2005","2010","2015"],"nticks":null,"ticks":"","tickcolor":null,"ticklen":3.65296803652968,"tickwidth":0,"showticklabels":true,"tickfont":{"color":"rgba(77,77,77,1)","family":"","size":11.689497716895},"tickangle":-0,"showline":false,"linecolor":null,"linewidth":0,"showgrid":true,"gridcolor":"rgba(235,235,235,1)","gridwidth":0.66417600664176,"zeroline":false,"anchor":"y","title":{"text":"year","font":{"color":"rgba(0,0,0,1)","family":"","size":14.6118721461187}},"hoverformat":".2f"},"yaxis":{"domain":[0,1],"automargin":true,"type":"linear","autorange":false,"range":[-94982.2,3009486.2],"tickmode":"array","ticktext":["0e+00","1e+06","2e+06","3e+06"],"tickvals":[0,1000000,2000000,3000000],"categoryorder":"array","categoryarray":["0e+00","1e+06","2e+06","3e+06"],"nticks":null,"ticks":"","tickcolor":null,"ticklen":3.65296803652968,"tickwidth":0,"showticklabels":true,"tickfont":{"color":"rgba(77,77,77,1)","family":"","size":11.689497716895},"tickangle":-0,"showline":false,"linecolor":null,"linewidth":0,"showgrid":true,"gridcolor":"rgba(235,235,235,1)","gridwidth":0.66417600664176,"zeroline":false,"anchor":"x","title":{"text":"wealth_mean","font":{"color":"rgba(0,0,0,1)","family":"","size":14.6118721461187}},"hoverformat":".2f"},"shapes":[{"type":"rect","fillcolor":null,"line":{"color":null,"width":0,"linetype":[]},"yref":"paper","xref":"paper","x0":0,"x1":1,"y0":0,"y1":1}],"showlegend":false,"legend":{"bgcolor":null,"bordercolor":null,"borderwidth":0,"font":{"color":"rgba(0,0,0,1)","family":"","size":11.689497716895}},"hovermode":"closest","barmode":"relative"},"config":{"doubleClick":"reset","showSendToCloud":false},"source":"A","attrs":{"d5bb4e40b5c5":{"y":{},"x":{},"colour":{},"type":"scatter"},"d5bb7a5dc0a5":{"y":{},"x":{},"colour":{}}},"cur_data":"d5bb4e40b5c5","visdat":{"d5bb4e40b5c5":["function (y) ","x"],"d5bb7a5dc0a5":["function (y) ","x"]},"highlight":{"on":"plotly_click","persistent":false,"dynamic":false,"selectize":false,"opacityDim":0.2,"selected":{"opacity":1},"debounce":0},"shinyEvents":["plotly_hover","plotly_click","plotly_selected","plotly_relayout","plotly_brushed","plotly_brushing","plotly_clickannotation","plotly_doubleclick","plotly_deselect","plotly_afterplot","plotly_sunburstclick"],"base_url":"https://plot.ly"},"evals":[],"jsHooks":[]}</script>

]

---

# <img src="https://github.com/rstudio/hex-stickers/raw/master/PNG/rmarkdown.png" style="height:48px"> <mono>RMarkdown</mono> for reports

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

.pull-right45[
 
<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/markdown_map_pdf.png">
]

---

# <img src="https://github.com/rstudio/hex-stickers/raw/master/PNG/shiny.png" style="height:48px"> <mono>shiny</mono> for web apps

```r
ui <- fluidPage(
 tabsetPanel(
 tabPanel(
 selectInput(
 "var", "Variable",
 choices = list("wealth_mean",
 "wealth_median",
 "wealth_gini"))),
 mainPanel(plotOutput("basel"))))

server <- function(input, output) {
 output$basel <- renderPlot({
 ggplot(map) + 
 geom_sf(
 col = 'white', 
 mapping = aes_string(
 fill = input$var)) + 
 guides(fill = FALSE) + 
 theme_void()})}
```

]

.pull-right45[
<iframe width="400" height="600" src="https://econpsychbasel.shinyapps.io/basel/" frameborder="0" allowfullscreen></iframe>
]

---

# <img src="https://github.com/rstudio/hex-stickers/raw/master/PNG/rvest.png" style="height:48px"> <mono>rvest</mono> for web scraping

```r
# Tabelle laden von Wikipedia (Pakete nicht vergessen)
read_html("https://en.wikipedia.org/wiki/R_(programming_language)") %>%
  html_node(xpath = '//*[@id="mw-content-text"]/div[1]/table[2]') %>%
  html_table() %>% as_tibble()
```

```
## # A tibble: 21 x 3
## Release Date Description 
## <chr> <chr> <chr> 
## 1 0.16 "" "This is the last alpha version developed primarily by Ihaka and G…
## 2 0.49 "1997-04-2… "This is the oldest source release which is currently available on…
## 3 0.60 "1997-12-0… "R becomes an official part of the GNU Project. The code is hosted…
## 4 0.65.1 "1999-10-0… "First versions of update.packages and install.packages functions …
## 5 1.0 "2000-02-2… "Considered by its developers stable enough for production use.[55…
## 6 1.4 "2001-12-1… "S4 methods are introduced and the first version for Mac OS X is m…
## 7 1.8 "2003-10-0… "Introduced a flexible condition handling mechanism for signalling…
## 8 2.0 "2004-10-0… "Introduced lazy loading, which enables fast loading of data with …
## 9 2.1 "2005-04-1… "Support for UTF-8 encoding, and the beginnings of internationaliz…
## 10 2.6.2 "2008-02-0… "Last version to support Windows 95, 98, Me and NT 4.0[56]" 
## # … with 11 more rows
```

---

# <img src="https://cran.r-project.org/web/packages/tidytext/readme/man/figures/tidytext.png" style="height:48px"> <mono>tidytext</mono> for text analysis

```r
# 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)

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

]

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

]

---

# <img src="https://www.tidymodels.org/images/tidymodels.png" style="height:48px"> <mono>tidymodels</mono> for machine learning

<ul>
 <li class="m1">Framework for machine learning.</li> 
 <li class="m2">Includes</li>
 <ul class="level">
 <li>All sorts of models, including wrapper to <a href="https://keras.rstudio.com/">keras</a>, for deep learning.</li> 
 <li>Model tuning</li> 
 <li>Model evaluation</li> 
 <li>etc.</li> 
 </ul>
</ul>

]

]

---

# <img src="https://dbplyr.tidyverse.org/logo.png" style="height:48px"> <mono>dbplyr</mono> for wrangling remote databases

<ul>
 <li class="m1">R tidyverse is able to interface with most database types</high>: <mono>MySQL</mono>, <mono>MariaDB</mono>, <mono>BigQuery</mono>, <mono>Redshift</mono>, etc. See <a href="https://db.rstudio.com/databases">db.rstudio.com</a>.</li>
 <li class="m2"><mono>dplyr</mono> will be <high>translated in the backround</high> to the appropriate query language</li>
</ul>

]

```r
# Verbinge mit MySQL Datenbank
con <- dbConnect(MySQL(), 
 user='studiech_rbootca', 
 password='Du*5hA+7NU:8T', 
 dbname='studiech_rbootcamp', 
 host='studie.ch',
 port = 3306)

# Extrahiere Tabelle Customers
basel <- tbl(con, "basel")
basel
```

```
## # Source: table<basel> [?? x 20]
## # Database: mysql 5.7.26-log-cll-lve
## # [studiech_rbootca@studie.ch:/studiech_rbootcamp]
## id geschlecht alter_jahre groesse
## <dbl> <chr> <dbl> <dbl>
## 1 1 f 87 165 
## 2 2 m 54 175.
## 3 3 f 34 147.
## 4 4 m 31 166.
## 5 5 m 24 180.
## # … with more rows, and 16 more
## # variables
```

]

---

# Books

An incomplete list of good books loosely sorted by required amount of R experience.

<tr>

</tr>

</table>

---

# Thank you!