flextable: как объединить строки с дублирующимися значениями для некоторых столбцов

Question

Я создаю таблицу с помощью flextable ().Я хотел бы объединить ячейки с дублированным srdr_id.

Учитывая эти данные:

test <- structure(list(srdr_id = c("175124", "175124", "172545", "172545", 
"172609", "172609", "172609"), full_name = c("TAU", "MI", "TAU", 
"MI", "TAU", "MI", "MI"), article_arm_name = c("Control", "WISEteens", 
"Assessed control", "Intervention", "Control", "Computer BI", 
"Therapist BI"), arm_number = c(1L, 2L, 1L, 2L, 1L, 2L, 3L)), row.names = c(NA, 
-7L), class = c("tbl_df", "tbl", "data.frame"))


  srdr_id full_name article_arm_name arm_number
  <chr>   <chr>     <chr>                 <int>
1 175124  TAU       Control                   1
2 175124  MI        WISEteens                 2
3 172545  TAU       Assessed control          1
4 172545  MI        Intervention              2
5 172609  TAU       Control                   1
6 172609  MI        Computer BI               2
7 172609  MI        Therapist BI              3

Я могу сделать это с помощью следующего кода - но хотел бы упростить несколько операторов merge_at ().

flextable(test) %>% theme_box() %>% 
           merge_at(i = 1:2, j = 1) %>% 
           merge_at(i = 3:4, j = 1) %>% 
           merge_at(i = 5:7, j = 1) 

enter image description here">

К сожалению, простого решения merge_v (j = ~ srdr_id) больше не достаточно, когда я добавляю другой столбец, который дублируетсячерез общие srdr_id's.

test_2 <- structure(list(srdr_id = c("175124", "175124", "172525", "172525", 
"172545", "172545", "172609", "172609", "172609"), substances = c("alcohol", 
"alcohol", "alcohol", "alcohol", "cannabis", "cannabis", "alcohol\n cannabis\n other drugs", 
"alcohol\n cannabis\n other drugs", "alcohol\n cannabis\n other drugs"
), full_name = c("TAU", "MI", "TAU", "MI (parent)", "TAU", "MI", 
"TAU", "MI", "MI"), article_arm_name = c("Control", "WISEteens", 
"Treatment as usual", "Brief MI (b-MI)", "Assessed control", 
"Intervention", "Control", "Computer BI", "Therapist BI")), row.names = c(NA, 
-9L), class = c("tbl_df", "tbl", "data.frame"))

# A tibble: 9 x 4
  srdr_id substances                         full_name   article_arm_name  
  <chr>   <chr>                              <chr>       <chr>             
1 175124  alcohol                            TAU         Control           
2 175124  alcohol                            MI          WISEteens         
3 172525  alcohol                            TAU         Treatment as usual
4 172525  alcohol                            MI (parent) Brief MI (b-MI)   
5 172545  cannabis                           TAU         Assessed control  
6 172545  cannabis                           MI          Intervention      
7 172609  "alcohol\n cannabis\n other drugs" TAU         Control           
8 172609  "alcohol\n cannabis\n other drugs" MI          Computer BI       
9 172609  "alcohol\n cannabis\n other drugs" MI          Therapist BI    

Answer 1

Вы можете создать пользовательскую функцию для этого, так как у flextable нет этой опции.

test_2 <- structure(list(srdr_id = c("175124", "175124", "172525", "172525", 
"172545", "172545", "172609", "172609", "172609"), substances = c("alcohol", 
"alcohol", "alcohol", "alcohol", "cannabis", "cannabis", "alcohol\n cannabis\n other drugs", 
"alcohol\n cannabis\n other drugs", "alcohol\n cannabis\n other drugs"
), full_name = c("TAU", "MI", "TAU", "MI (parent)", "TAU", "MI", 
"TAU", "MI", "MI"), article_arm_name = c("Control", "WISEteens", 
"Treatment as usual", "Brief MI (b-MI)", "Assessed control", 
"Intervention", "Control", "Computer BI", "Therapist BI")), row.names = c(NA, 
-9L), class = c("tbl_df", "tbl", "data.frame"))

merge_custom <- function(ft, x, columns){
  z <- rle(x)
  rows_at <- cumsum(z$lengths) - z$lengths + 1

  for(i in seq_along(rows_at)){
    for(j in columns)
      ft <- merge_at(x = ft, i = seq( rows_at[i], rows_at[i] + z$lengths[i] - 1), j = j)
  }

  ft
}


flextable(test_2) %>% merge_custom(x = test_2$srdr_id, columns=1:2) %>% theme_box()

Answer 2

Ух ты - я упустил очевидное решение для простого случая. Вопрос был отредактирован с использованием более реалистичного (вложенного) набора данных.

test_ft <- flextable(test) %>% theme_box() %>%  merge_v(j = ~srdr_id)