Я пытаюсь воспроизвести таблицу из книги с помощью пакета flextable в R. У меня есть два столбца под заголовком в таблице, отмеченной align(align = "center", part = "all"), и они плохо выровнены, если я использую {{X2 }}.

enter image description here

Есть ли способ исправить это, чтобы столбцы под заголовком не смещались вправо?

Вот полный код:

Opinions <- read.table("http://users.stat.ufl.edu/~aa/cat/data/Envir_opinions.dat",
                       header = TRUE, stringsAsFactors = TRUE)
# Make contingency table
tab <- as.matrix(addmargins(xtabs(~y1 + y2, data = Opinions)))

library(tidyverse)  # for tibble()

# Add label as the first column and variable names
`Table 8.1` <- tibble(`Pay Higher Taxes` = c("Yes", "No", "Total"), 
                      Yes = tab[,1], No = tab[,2], Total = tab[,3])

library(flextable)
my_header <- data.frame(
  col_keys = colnames(`Table 8.1`),
  line1 = c("Pay Higher Taxes", rep("Cut Living Standards", 2), "Total"),
  line2 = colnames(`Table 8.1`)
)

library(flextable)
flextable(`Table 8.1`, col_keys = my_header$col_keys) %>%
  set_header_df(
    mapping = my_header,
    key = "col_keys"
  ) %>% 
  theme_booktabs() %>% 
  merge_h(part = "header") %>% 
  merge_v(part = "header") %>% 
  merge_h(part = "body") %>% 
  merge_v(part = "body") %>%
  align(align = "center", part = "all") %>% 
  autofit(part = "all") %>% 
  set_caption(caption = "Table 8.1")
0
itsMeInMiami 5 Сен 2020 в 17:10

1 ответ

Лучший ответ

Я плохо знаком с пакетом flextable. Но у меня это сработало, когда я выровнял таблицу перед объединением заголовка. Может это уловка.

  
  flextable(`Table 8.1`) %>%
    add_header_row(values = c("Pay Higher Taxes", 
                              "Cut Living Standard", 
                              "Cut Living Standard", 
                              "Total")) %>%
    theme_booktabs() %>%
    autofit(part = "all") %>%
    align(align = "center", part = "all")%>% 
    merge_h(part = "header") %>%
    merge_v(part = "header") %>%
    set_caption(caption = "Table 8.1")  
    

enter image description here

1
tamtam 5 Сен 2020 в 16:40