Pivot: Wide <–> long format

class: inverse, center, middle

.black {background-color: black;}

.small-font h1 {font-size: 4.3rem !important;}
.teal h3 {font-weight: bold;}
.bigchart {margin-top: -10px; margin-left: -5%; width: 110%;}
.wider {width: 107%;}
img {max-width: 120%; width: 100%;}
.clear {clear:both;}
h2, h3 {color: black; padding-bottom: 28px;}

.pull-right img {width: 139%;
    max-width: 139%;
    margin-left: -38px;
    margin-top: -20px;}
    
.pull-left .remark-code-line {font-size: 1.49rem;}
.pull-up {margin-top: -28px;}

.small-font {font-size: 1.2rem;}
.small-font .remark-code-line {font-size: 1.5rem;}

.med-font .remark-code-line {font-size: 1.7rem;}

.shift-up {margin-top: -20px;}
.shift-left {margin-left: -28px;}
.small-shift-left {margin-left: -60px;}
.shift-right {margin-left: 180px;}
.shift-down {padding-top: 2px;}

.small-font table {width: 108%; font-size: 1.6rem !important;
    margin-left: -30px;}
.remark-slide table {width: 108%; font-size: 2rem;}
.small-table table {width: 39%;}

.remark-code {width: 104%;}
.remark-code-line {font-size: 1.75rem; line-height: 1.37; color: #223035;}

table {margin-left: 0 !important;}

</style>

<h1> .blue[.bigger[.big[SHAPE]]] </h1>

## of

<h1> .teal[.bigger[.big[DATA]]] </h1>

---
class: inverse, center, middle
exclude: true

### .big[The]
# .bigger[.bigger[.teal[SHAPE]]] .smaller[.smaller[of]] .bigger[.bigger[.teal[DATA]]]

---
class: animated, fadeIn

.shift-left[

# .teal[**Wide**] format data

<br>

|island |site    | May 4th| May 11th| May 18th| May 25th|
|:------|:-------|-------:|--------:|--------:|--------:|
|Dream  |Site 3A |       4|        3|        8|        5|

]

---
class:

.shift-left[

# .blue[**Long**] format data

<br>

<table style="width: 63%; margin-left: auto; margin-right: auto;" class="table">
 <thead>
  <tr>
   <th style="text-align:left;"> island </th>
   <th style="text-align:left;"> site </th>
   <th style="text-align:left;"> date </th>
   <th style="text-align:left;"> count </th>
  </tr>
 </thead>
<tbody>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 4th </td>
   <td style="text-align:left;"> 4 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 11th </td>
   <td style="text-align:left;"> 3 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 18th </td>
   <td style="text-align:left;"> 8 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 25th </td>
   <td style="text-align:left;"> 5 </td>
  </tr>
</tbody>
</table>

]

---
class:

.shift-left[

# .blue[**Long**] format data ❤️❤️❤️

<br>

]

---
class: inverse, center, middle, animated, fadeIn

<h1> .blue[.bigger[.bigger[pivot_longer( )]]] </h1>
<h1><b> .big[ --- ] </b></h1>
<h1> .teal[.big[pivot_wider( )]] </h1>

</div>

---
class: center, middle, animated, fadeIn

---
class: inverse, middle, center

# .bigger[.bigger[.blue[pivot_longer( )]]]

---
class:

.shift-left[.big-h2[

## .blue[pivot_longer(].darkgray[penguin_count], -c(.teal[island], .teal[site]) .blue[)]

]]

</div>

.thin[.darkgray[
Start with **Wide** data
]]
<table>
 <thead>
  <tr>
   <th style="text-align:left;"> island </th>
   <th style="text-align:left;"> site </th>
   <th style="text-align:left;"> May 4th </th>
   <th style="text-align:left;"> May 11th </th>
   <th style="text-align:left;"> May 18th </th>
   <th style="text-align:left;"> May 25th </th>
  </tr>
 </thead>
<tbody>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> 4 </td>
   <td style="text-align:left;"> 3 </td>
   <td style="text-align:left;"> 8 </td>
   <td style="text-align:left;"> 5 </td>
  </tr>
</tbody>
</table>

---
class:

.shift-left[.big-h2[

## .blue[pivot_longer(].darkgray[penguin_count], -c(.teal[island], .teal[site]) .blue[)]

]]

</div>

.thin[.darkgray[
Pivot to **Long** data
]]
<table style="width: 63%; margin-left: auto; margin-right: auto;" class="table">
 <thead>
  <tr>
   <th style="text-align:left;"> island </th>
   <th style="text-align:left;"> site </th>
   <th style="text-align:left;"> name </th>
   <th style="text-align:left;"> value </th>
  </tr>
 </thead>
<tbody>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 4th </td>
   <td style="text-align:left;"> 4 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 11th </td>
   <td style="text-align:left;"> 3 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 18th </td>
   <td style="text-align:left;"> 8 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 25th </td>
   <td style="text-align:left;"> 5 </td>
  </tr>
</tbody>
</table>

---
class:

.shift-left[.big-h2[

## .blue[pivot_longer(].darkgray[penguin_count], -c(.teal[island], .teal[site]),
<h2 class="big-h2" style="margin-left: 287px;"> .blue[names_to = ]".teal[date]", </h2>
<h2 class="big-h2" style="margin-left: 287px;"> .blue[values_to = ]".teal[count]" .blue[)] </h2>

]]

</div>

.thin[.darkgray[
Pivot to **Long** data
]]
<table style="width: 63%; margin-left: auto; margin-right: auto;" class="table">
 <thead>
  <tr>
   <th style="text-align:left;"> island </th>
   <th style="text-align:left;"> site </th>
   <th style="text-align:left;"> date </th>
   <th style="text-align:left;"> count </th>
  </tr>
 </thead>
<tbody>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 4th </td>
   <td style="text-align:left;"> 4 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 11th </td>
   <td style="text-align:left;"> 3 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 18th </td>
   <td style="text-align:left;"> 8 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> May 25th </td>
   <td style="text-align:left;"> 5 </td>
  </tr>
</tbody>
</table>

---
class: inverse, middle, center

# .bigger[.bigger[.teal[pivot_wider( )]]]

---
class:

.shift-left[.big-h2[

## .blue[pivot_wider(].darkgray[penguin_count], -c(.teal[island], .teal[site]),
<h2 class="big-h2" style="margin-left: 271px;"> .blue[names_from = ]".teal[date]", </h2>
<h2 class="big-h2" style="margin-left: 271px;"> .blue[values_from = ]".teal[count]" .blue[)] </h2>

]]

<br>

.thin[.darkgray[
Start with **Long** data
]]

---
class:

.shift-left[.big-h2[

]]

<br>

.thin[.darkgray[
Pivot to **Wide** data
]]
<table>
 <thead>
  <tr>
   <th style="text-align:left;"> island </th>
   <th style="text-align:left;"> site </th>
   <th style="text-align:left;"> May 4th </th>
   <th style="text-align:left;"> May 11th </th>
   <th style="text-align:left;"> May 18th </th>
   <th style="text-align:left;"> May 25th </th>
  </tr>
 </thead>
<tbody>
  <tr>
   <td style="text-align:left;"> Dream </td>
   <td style="text-align:left;"> Site 3A </td>
   <td style="text-align:left;"> 4 </td>
   <td style="text-align:left;"> 3 </td>
   <td style="text-align:left;"> 8 </td>
   <td style="text-align:left;"> 5 </td>
  </tr>
</tbody>
</table>

---
class: inverse, center, middle

# <i class="fas fa-carrot" aria-hidden="true"></i> [Back to Videos](https://tidy-mn.github.io/R-camp-penguins/index.html)