This function is used to insert mini gg plots into flextable with functions:
Arguments
- value
gg objects, stored in a list column; or a list of 'ggplot' objects.
- width, height
size of the resulting png file.
- unit
unit for width and height, one of "in", "cm", "mm".
- res
resolution of the png image in ppi
Note
This chunk option requires package officedown in a R Markdown context with Word output format.
PowerPoint cannot mix images and text in a paragraph, images are removed when outputing to PowerPoint format.
See also
Other chunk elements for paragraph:
as_bracket(),
as_b(),
as_chunk(),
as_equation(),
as_highlight(),
as_image(),
as_i(),
as_sub(),
as_sup(),
as_word_field(),
colorize(),
grid_chunk(),
hyperlink_text(),
linerange(),
lollipop(),
minibar(),
plot_chunk()
Examples
library(data.table)
library(flextable)
if (require("ggplot2")) {
my_cor_plot <- function(x) {
cols <- colnames(x)[sapply(x, is.numeric)]
x <- x[, .SD, .SDcols = cols]
cormat <- as.data.table(cor(x))
cormat$var1 <- colnames(cormat)
cormat <- melt(cormat,
id.vars = "var1", measure.vars = cormat$var1,
variable.name = "var2", value.name = "correlation"
)
ggplot(data = cormat, aes(x = var1, y = var2, fill = correlation)) +
geom_tile() +
coord_equal() +
scale_fill_gradient2(
low = "blue",
mid = "white", high = "red", limits = c(-1, 1),
guide = FALSE
) +
theme_void()
}
z <- as.data.table(iris)
z <- z[, list(gg = list(my_cor_plot(.SD))), by = "Species"]
ft <- flextable(z)
ft <- mk_par(ft,
j = "gg",
value = as_paragraph(
gg_chunk(value = gg, width = 1, height = 1)
)
)
ft
}
#> Loading required package: ggplot2
#> Warning: The `guide` argument in `scale_*()` cannot be `FALSE`. This was deprecated in
#> ggplot2 3.3.4.
#> ℹ Please use "none" instead.
Species
gg
setosa
versicolor
virginica
