title: Transform tibble to data frame with column headers
body: <p>I have data from an excel sheet imported like this: </p>
  
  <pre><code>F4_Off &lt;- readxl::read_xlsx("myExcel.xlsx", sheet = "Offline", col_names = TRUE, range = "I1:L285")
  F4_Off
  
  F4_On &lt;- readxl::read_xlsx("myExcel.xlsx", sheet = "Online", col_names = TRUE, range = "J1:M68")
  F4_On
  </code></pre>
  
  <p>This is combined using:</p>
  
  <pre><code>F4_Gesamt &lt;- rbind(F4_Off, F4_On)
  </code></pre>
  
  <p>and the data looks like this:</p>
  
  <pre><code>A tibble: 351 x 4
      nein Smartphone `Computer / Laptop / Tablet` `keine Angabe`
     &lt;dbl&gt;      &lt;dbl&gt;                        &lt;dbl&gt;          &lt;dbl&gt;
   1   NA         NA                            1.             NA
   2   NA          1.                          NA              NA
   3   NA          1.                          NA              NA
   4   NA          1.                          NA              NA
   5   NA          1.                           1.             NA
   6   NA          1.                           1.             NA
   7   NA          1.                           1.             NA
   8   NA          1.                          NA              NA
   9   NA         NA                            1.             NA
  10    1.        NA                           NA              NA
  </code></pre>
  
  <p>Actually i want this to be summed up per Column (summed up, count the "1.") and transformed into a table like this:</p>
  
  <pre><code>    Type                                    Value
      &lt;chr&gt;                                   &lt;dbl&gt;
  1   nein                                    162
  2   Smartphone                              120
  3   `Computer / Laptop / Tablet`            93
  4   `keine Angabe`                          16
  </code></pre>
  
  <p>i can achieve the summing up by doing: </p>
  
  <pre><code>F4_Gesamt_sum &lt;- colSums(F4_Gesamt, na.rm = TRUE, dims = 1)
  </code></pre>
  
  <p>then it looks like this:</p>
  
  <pre><code>                   nein                 Smartphone Computer / Laptop / Tablet               keine Angabe 
                      162                        120                         93                         16 
  </code></pre>
  
  <p>now:</p>
  
  <pre><code>str(F4_Gesamt_sum)
  </code></pre>
  
  <p>gives: </p>
  
  <pre><code>Named num [1:4] 162 120 93 16
   - attr(*, "names")= chr [1:4] "nein" "Smartphone" "Computer / Laptop / Tablet" "keine Angabe"
  </code></pre>
  
  <p>And this is the point where i fails miserably for days now, how do i get it to look like I "faked" it above?</p>
  
  <p>At the end I want to feed this data to ggplot and make a nice barchart.</p>