title: How do you remove white space between title and table?
body: <p>I tried asking this somewhere else as well, but I am having trouble removing the white space between the title of my table and the actual table.  This doesn't happen when in my regular rmarkdown article, but when I knit to beamer for my presentation it produces these bizarre white spaces. Anyone know why?</p>
  
  <pre><code>mean.party.class &lt;- dat3 %&gt;%
    group_by(party2, class2) %&gt;%
     filter (party2 !="Indep" &amp; class != "IDK")%&gt;%
    summarise_at(vars(DL, DU, RL, RU, L, U, D, R), funs(mean(., na.rm=TRUE)))
  
  knitr::kable(mean.party.class, col.names=c("Party ID", "Class", "DL", "DU", "RL",   "RU",   "L", "U", "D" , "R"), digits=2,  caption = "Mean Trust Per Group (Party and Social Class Identity)", "latex", booktabs = T) %&gt;%
   kable_styling( full_width = F, position = "left",  latex_options = "scale_down", bootstrap_options = c("striped", "hover")) %&gt;% footnote(
     general = c("1. D= Democrat, R=Republican, L=Lower Class, U = Upper Class; ", "2. Independents dropped")) %&gt;% row_spec(0,bold=TRUE)
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/LsTB1.png" alt="enter image description here"></p>
  
  <p>Here is an example </p>
  
  <pre><code>---
  title: "Example"
  author: "Its me"
  date: "6/12/2020"
  always_allow_html: true
  header-includes:
  - \usepackage{booktabs}
  - \usepackage{longtable}
  - \usepackage{tabu}
  - \usepackage{threeparttable}
  - \usepackage{adjustbox}
  - \usepackage{caption} \captionsetup[table]{skip=0pt}
  - \usepackage[font=small,skip=0pt]{caption}
  - \usepackage{tikz}
  - \usepackage{float}
  - \usetikzlibrary{arrows,shapes,positioning}
  
  
  output:
    beamer_presentation:
      theme: "Berkeley"
      colortheme: "dolphin"
      fonttheme: "structurebold"
      slide_level: 2 
      #incremental: true
  ---
  
  ```{r}
  setwd("~/Google Drive/UC Davis /R stuff")
  ```
  
  ```{r, include=FALSE}
  library(rticles)
  library(kableExtra)
  library(knitr)
  library(plyr)
  library(dplyr)
  library(gdata)
  library(ggplot2)
  library(MASS)
  library(corrplot)
  library(haven)
  library(factoextra)
  library(ggplot2)
  library(ggrepel)
  library(viridis)
  library(lattice)
  library(optiscale)
  library(acepack)
  library(psych)
  library(smacof)
  library(MCMCpack)
  library(basicspace)
  library(boot)
  library(pscl)
  library(wnominate)
  library(RColorBrewer)
  library(sjPlot)
  ```
  
  ```{r setup, include=FALSE}
  knitr::opts_chunk$set(echo = FALSE)
  ```
  
  ```{r, include= FALSE}
  #load cars
  data("mtcars")
  head(mtcars, 2)
  ```
  
  ```{r, include= FALSE}
  mean.mpg &lt;- mtcars %&gt;%
    summarise_at(vars(mpg), funs(mean(., na.rm=TRUE)))
  ```
  
  ## there it is
  ```{r}
  knitr::kable(mean.mpg, col.names=c("mpg"), digits=2,  caption = "This is a table", "latex", booktabs = T, escape=F) %&gt;%
   kable_styling(full_width = T, position = "left", latex_options = "scale_down", bootstrap_options = c("striped", "hover")) %&gt;% footnote(
     general = c("1. test 1", "2. test 2"))%&gt;%
    row_spec(0,bold=TRUE)
  ```
  </code></pre>