Классифицируйте и выделяйте разделы таблицы с помощью функции flextable

У меня ниже фрейм данных, который классифицируется по категории столбца

> dput(mydata)
structure(list(Category = c("Executive", "Management", "Management", 
"Management", "Professional", "Professional", "Professional", 
"Para-Professional", "Para-Professional", "Para-Professional"
), Rank = c("Rank 1", "Rank 1", "Rank 2", "Rank 3", "Rank 1", 
"Rank 2", "Rank 3", "Rank 1", "Rank 2", "Rank 3"), Jobs = c(" SMP - Sales, Marketing & Product Management", 
" SMP - Sales, Marketing & Product Management", " ENS - Engineering & Science", 
" FIN - Finance", " SMP - Sales, Marketing & Product Management", 
" ENS - Engineering & Science", " FIN - Finance", " PSK - Production & Skilled Trades", 
" ENS - Engineering & Science", " EGS - Energy Generation & Supply"
), N = c(3, 10, 3, 2, 54, 25, 5, 7, 2, 1)), row.names = c(NA, 
-10L), class = "data.frame")

Я хотел объединить ячейки той же категории для столбца категории, который был выполнен с приведенным ниже кодом, используя гибкую таблицу

mydata%>% flextable()%>% merge_v(j=~Category)

Теперь я хочу выделить всю границу раздела данных, соответствующих каждой категории, например, данные, соответствующие категории «Исполнительный», должны быть выделены более широкой рамкой аналогично другим. Я попробовал и смог выделить только ячейки категорий, как показано ниже:

cl<-fp_border(color = "#00A8C8",width = 3)
mydata%>% flextable()%>% merge_v(j=~Category)%>%hline(j=~Category,border = cl)

Я хочу, чтобы вокруг всей подтаблицы, соответствующей каждой категории, была похожая рамка, чтобы лучше различать категории в таблице. Как это можно сделать только с помощью флештаба?


r formatting dataframe flextable officer
person Sandhya Ghildiyal    schedule 10.12.2019    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Думаю, это должно помочь.

Ключевым моментом здесь является найти способ создать логический вектор, представляющий, где должны появляться линии - это то, что делает функция break_position.

library(flextable)
library(officer)
library(magrittr)
mydata <- structure(list(Category = c(
  "Executive", "Management", "Management",
  "Management", "Professional", "Professional", "Professional",
  "Para-Professional", "Para-Professional", "Para-Professional"
), Rank = c(
  "Rank 1", "Rank 1", "Rank 2", "Rank 3", "Rank 1",
  "Rank 2", "Rank 3", "Rank 1", "Rank 2", "Rank 3"
), Jobs = c(
  " SMP - Sales, Marketing & Product Management",
  " SMP - Sales, Marketing & Product Management", " ENS - Engineering & Science",
  " FIN - Finance", " SMP - Sales, Marketing & Product Management",
  " ENS - Engineering & Science", " FIN - Finance", " PSK - Production & Skilled Trades",
  " ENS - Engineering & Science", " EGS - Energy Generation & Supply"
), N = c(3, 10, 3, 2, 54, 25, 5, 7, 2, 1)), row.names = c(
  NA,
  -10L
), class = "data.frame")


cl <- fp_border(color = "#00A8C8", width = 3)

break_position <- function(x) {
  z <- data.table::rleidv(x)
  c(z[-length(z)] != z[-1], FALSE)
}

mydata %>%
  flextable() %>%
  merge_v(j = ~Category) %>%
  hline(i = ~ break_position(Category), border = cl) %>% 
  fix_border_issues()

введите описание изображения здесь

person David Gohel    schedule 10.12.2019