library(flextable)
On va d’abord définir deux propriétés de bordures, la première sera utilisée pour les bordures externes et la deuxième pour les bordures internes.
big_border = fp_border_default(color="red", width = 2)
small_border = fp_border_default(color="gray", width = 1)
Pour s’assurer qu’on part bien d’un tableau sans bordure,
on va toutes les supprimer en appelant la fonction border_remove()
.
ft <- flextable(head(airquality))
ft <- border_remove(x = ft)
ft
Ozone | Solar.R | Wind | Temp | Month | Day |
41 | 190 | 7.4 | 67 | 5 | 1 |
36 | 118 | 8.0 | 72 | 5 | 2 |
12 | 149 | 12.6 | 74 | 5 | 3 |
18 | 313 | 11.5 | 62 | 5 | 4 |
14.3 | 56 | 5 | 5 | ||
28 | 14.9 | 66 | 5 | 6 |
Maintenant appliquons les bordures internes et externes avec les
fonctions border_outer()
, border_inner_v()
et border_inner_h()
.
ft <- border_inner_h(ft, part="all", border = small_border )
ft <- border_inner_v(ft, part="all", border = small_border )
ft <- border_outer(ft, part="all", border = big_border )
ft
Ozone | Solar.R | Wind | Temp | Month | Day |
41 | 190 | 7.4 | 67 | 5 | 1 |
36 | 118 | 8.0 | 72 | 5 | 2 |
12 | 149 | 12.6 | 74 | 5 | 3 |
18 | 313 | 11.5 | 62 | 5 | 4 |
14.3 | 56 | 5 | 5 | ||
28 | 14.9 | 66 | 5 | 6 |