title: Vertical label to the left of table with KableExtra HTML
body: <p>I'm creating a critical F-table and I need to assign a vertical text lable to the left of my table (&quot;Degrees of freedom denominator&quot;), as a 'side header' for my table instead of the columnname &quot;df&quot;. Does anyone know how to do this?</p>
  <pre><code>library(knitr)
  library(kableExtra)
  library(latex2exp)
  library(tidyverse)
  
  
  # F Table
  
  df_num = c(1:10, 20, 30, 40, 50)
  df_denom = c(1:10, 12, 15, 20, 30, 40, 50, 60, 120, 200)
  
  F.table = tibble(
    df_num1 = qf(.99, df1=1, df2=df_denom), 
    df_num2 = qf(.99, df1=2, df2=df_denom), 
    df_num3 = qf(.99, df1=3, df2=df_denom), 
    df_num4 = qf(.99, df1=4, df2=df_denom), 
    df_num5 = qf(.99, df1=5, df2=df_denom), 
    df_num6 = qf(.99, df1=6, df2=df_denom), 
    df_num7 = qf(.99, df1=7, df2=df_denom), 
    df_num8 = qf(.99, df1=8, df2=df_denom), 
    df_num9 = qf(.99, df1=9, df2=df_denom), 
    df_num10 = qf(.99, df1=10, df2=df_denom),
    df_num20 = qf(.99, df1=20, df2=df_denom), 
    df_num30 = qf(.99, df1=30, df2=df_denom), 
    df_num40 = qf(.99, df1=40, df2=df_denom), 
    df_num50 = qf(.99, df1=50, df2=df_denom)
  )
  
  F.table = F.table %&gt;% 
    mutate(df = df_denom) %&gt;% 
    select(df, everything())
  
  
  kable(F.table,
        booktabs = TRUE,
        col.names =  c(&quot;df&quot;, 1:10, 20, 30, 40, 50), 
        escape = FALSE,
        caption = &quot;$F$-verdeling met kritieke waarden voor $\\alpha  = .01$&quot;,
        linesep = &quot;&quot;,
        align = c('r'),
        digits=2) %&gt;% 
    kable_styling(font_size = 8) %&gt;% 
    column_spec(1, bold = T, border_right = T) %&gt;% 
    add_header_above(c(&quot; &quot; = 1, &quot;Degrees of freedom numerator (noemer)&quot; = 14)) %&gt;% 
    row_spec(0, extra_css = &quot;border-bottom: 1px solid&quot;)
  </code></pre>
  <p><a href="https://i.stack.imgur.com/sCAJX.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/sCAJX.png" alt="F-Table" /></a></p>