Вращенный заголовок столбца в Knitr Kable - PullRequest
Новая
       15

Вращенный заголовок столбца в Knitr Kable

0 голосов
/ 07 июня 2019

После серьезной отладки я смог создать таблицу со строкой заголовка и столбцом заголовка с повернутым текстом.

enter image description here

Воткод: 

library(dplyr)
library(knitr)
library(kableExtra)
library(magrittr)

in_df <- structure(list(SPÖ = c(741983, 68, 5415), 
                        ÖVP = c(15991, 1103613, 808), 
                        FPÖ = c(29786, 14046, 506087)), 
                   row.names = c(NA, -3L), 
                   class = c("tbl_df", "tbl", "data.frame"))
Parteien= c("SPÖ","ÖVP","FPÖ")

in_df %>%  
  {bind_cols(tibble(from_year=rep("2017",3)),.)} %>%
  mutate(from=Parteien) %>%
  mutate(from_year=cell_spec(from_year, "latex", angle=90, bold=T)) %>% 
  select(from_year,from,everything()) %>%
  kable("latex",digits=-3,col.names = c("  "," " ,Parteien),escape=F)  %>%
  row_spec(0,bold=T) %>%
  add_header_above(c(" "=2,"2019"=3),bold=T)  %>% 
  column_spec(2, bold = T)  %>%
 collapse_rows(columns = 1, valign = "middle")

Есть одно последнее раздражение:

enter image description here

Я хотел бы удалить крошечную разделительную линиюво внутренней части верхней левой ячейки.
Это можно сделать с помощью kableExtra

...