Skip to contents

The function replace text values in a flextable with labels. The labels are defined with character named vector.

The function is not written to be fast but to be handy. It does not replace the values in the underlying dataset but replace the defined content in the flextable (as defined with compose()).

Usage

labelizor(x, j = NULL, labels, part = "all")

Arguments

x

a flextable object

j

columns selection

labels

a named vector whose names will be used to identify values to replace and values will be used as labels.

part

partname of the table (one of 'all', 'body', 'header', 'footer')

Examples

z <- summarizor(
  x = CO2[-c(1, 4)],
  by = "Treatment",
  overall_label = "Overall"
)

ft_1 <- as_flextable(z, separate_with = "variable")

ft_1 <- labelizor(
  x = ft_1, j = c("stat"),
  labels = c(Missing = "Kouign amann")
)

ft_1 <- labelizor(
  x = ft_1, j = c("variable"),
  labels = toupper
)

ft_1

nonchilled
(N=40)

chilled
(N=42)

Overall
(N=82)

PLANT

Qn1

5 (12.5%)

0 (0.0%)

5 (6.1%)

Qn2

7 (17.5%)

0 (0.0%)

7 (8.5%)

Qn3

7 (17.5%)

0 (0.0%)

7 (8.5%)

Qc1

0 (0.0%)

7 (16.7%)

7 (8.5%)

Qc3

0 (0.0%)

7 (16.7%)

7 (8.5%)

Qc2

0 (0.0%)

7 (16.7%)

7 (8.5%)

Mn3

7 (17.5%)

0 (0.0%)

7 (8.5%)

Mn2

7 (17.5%)

0 (0.0%)

7 (8.5%)

Mn1

7 (17.5%)

0 (0.0%)

7 (8.5%)

Mc2

0 (0.0%)

7 (16.7%)

7 (8.5%)

Mc3

0 (0.0%)

7 (16.7%)

7 (8.5%)

Mc1

0 (0.0%)

7 (16.7%)

7 (8.5%)

TYPE

Quebec

19 (47.5%)

21 (50.0%)

40 (48.8%)

Mississippi

21 (52.5%)

21 (50.0%)

42 (51.2%)

CONC

Mean (SD)

445.6 (299.9)

435.0 (297.7)

440.2 (297.0)

Median (IQR)

350.0 (500.0)

350.0 (500.0)

350.0 (500.0)

Range

95.0 - 1,000.0

95.0 - 1,000.0

95.0 - 1,000.0

UPTAKE

Mean (SD)

30.8 (9.6)

23.8 (10.9)

27.2 (10.8)

Median (IQR)

31.3 (12.3)

19.7 (20.4)

28.3 (18.8)

Range

10.6 - 45.5

7.7 - 42.4

7.7 - 45.5