captions examples

Packages

library(flextable)
library(officer)
library(magrittr)
library(data.table)
library(magrittr)

Les données utilisées

On va transformer les données avec la fonction as_grouped_data() pour pouvoir les organiser par groupes sous forme de lignes.

data_CO2 <- dcast(as.data.table(CO2), 
  Treatment + conc ~ Type, value.var = "uptake", fun.aggregate = mean)
data_CO2
##      Treatment conc   Quebec Mississippi
##  1: nonchilled   95 15.26667    11.30000
##  2: nonchilled  175 30.03333    20.20000
##  3: nonchilled  250 37.40000    27.53333
##  4: nonchilled  350 40.36667    29.90000
##  5: nonchilled  500 39.60000    30.60000
##  6: nonchilled  675 41.50000    30.53333
##  7: nonchilled 1000 43.16667    31.60000
##  8:    chilled   95 12.86667     9.60000
##  9:    chilled  175 24.13333    14.76667
## 10:    chilled  250 34.46667    16.10000
## 11:    chilled  350 35.80000    16.60000
## 12:    chilled  500 36.66667    16.63333
## 13:    chilled  675 37.50000    18.26667
## 14:    chilled 1000 40.83333    18.73333
data_CO2 <- as_grouped_data(x = data_CO2, groups = c("Treatment"))

flextable utilisé pour l’illustration

ft <- as_flextable( data_CO2 ) %>% 
  bold(j = 1, i = ~ !is.na(Treatment), bold = TRUE, part = "body" ) %>% 
  bold(part = "header", bold = TRUE ) %>% 
  width(width = 1.5) %>% 
  colformat_double(i = ~ !is.na(conc), digits = 2) %>% 
  colformat_double(i = ~ !is.na(conc), j = 1, digits = 0) %>% 
  add_footer_lines("dataset CO2 has been used for this flextable") %>% 
  bg(bg = "#FFFFFF", part = "footer") %>% 
  set_header_labels(conc = "Concentration") %>% 
  width(width = c(1.5, 1, 1))

Captions

Ajoutons le caption avec la fonction set_caption():

set_caption(ft, 
  caption = "mean of carbon dioxide uptake in grass plants")

Table 1: mean of carbon dioxide uptake in grass plants
Concentration	Quebec	Mississippi
Treatment: nonchilled
95	15.27	11.30
175	30.03	20.20
250	37.40	27.53
350	40.37	29.90
500	39.60	30.60
675	41.50	30.53
1,000	43.17	31.60
Treatment: chilled
95	12.87	9.60
175	24.13	14.77
250	34.47	16.10
350	35.80	16.60
500	36.67	16.63
675	37.50	18.27
1,000	40.83	18.73
dataset CO2 has been used for this flextable

Il est aussi possible d’utiliser une option knitr de chunk spécifique à flextable nommée tab.cap :

```{r tab.cap='mean ...'}```

ft