R/as_flextable.R
as_flextable.grouped_data.RdProduce a flextable from a table
produced by function as_grouped_data().
# S3 method for class 'grouped_data'
as_flextable(x, col_keys = NULL, hide_grouplabel = FALSE, ...)'grouped_data' object to be transformed into a "flextable"
columns names/keys to display. If some column names are not in the dataset, they will be added as blank columns by default.
if TRUE, group label will not be rendered, only level/value will be rendered.
unused argument
Other as_flextable methods:
as_flextable(),
as_flextable.data.frame(),
as_flextable.gam(),
as_flextable.glm(),
as_flextable.htest(),
as_flextable.kmeans(),
as_flextable.lm(),
as_flextable.merMod(),
as_flextable.pam(),
as_flextable.summarizor(),
as_flextable.table(),
as_flextable.tabular(),
as_flextable.tabulator(),
as_flextable.xtable()
library(data.table)
CO2 <- CO2
setDT(CO2)
CO2$conc <- as.integer(CO2$conc)
data_co2 <- dcast(CO2, Treatment + conc ~ Type,
value.var = "uptake", fun.aggregate = mean
)
data_co2 <- as_grouped_data(x = data_co2, groups = c("Treatment"))
ft <- as_flextable(data_co2)
ft <- add_footer_lines(ft, "dataset CO2 has been used for this flextable")
ft <- add_header_lines(ft, "mean of carbon dioxide uptake in grass plants")
ft <- set_header_labels(ft, conc = "Concentration")
ft <- autofit(ft)
ft <- width(ft, width = c(1, 1, 1))
ft
mean of carbon dioxide uptake in grass plants
Concentration
Quebec
Mississippi
Treatment: nonchilled
95
15.26667
11.30000
175
30.03333
20.20000
250
37.40000
27.53333
350
40.36667
29.90000
500
39.60000
30.60000
675
41.50000
30.53333
1,000
43.16667
31.60000
Treatment: chilled
95
12.86667
9.60000
175
24.13333
14.76667
250
34.46667
16.10000
350
35.80000
16.60000
500
36.66667
16.63333
675
37.50000
18.26667
1,000
40.83333
18.73333
dataset CO2 has been used for this flextable