1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/chunk_images.R
\name{gg_chunk}
\alias{gg_chunk}
\title{ggplots chunk wrapper}
\usage{
gg_chunk(value, width = 1, height = 0.2, unit = "in", res = 300)
}
\arguments{
\item{value}{gg objects, stored in a list column; or a list
of 'ggplot' objects.}
\item{width, height}{size of the resulting png file.}
\item{unit}{unit for width and height, one of "in", "cm", "mm".}
\item{res}{resolution of the png image in ppi}
}
\description{
This function is used to insert mini gg plots into
flextable with functions:
\itemize{
\item \code{\link[=compose]{compose()}} and \code{\link[=as_paragraph]{as_paragraph()}},
\item \code{\link[=append_chunks]{append_chunks()}},
\item \code{\link[=prepend_chunks]{prepend_chunks()}}.
}
}
\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.
}
\section{Illustrations}{
\if{html}{\figure{fig_gg_chunk_1.png}{options: width="200"}}
}
\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
}
}
\seealso{
Other chunk elements for paragraph:
\code{\link{as_bracket}()},
\code{\link{as_b}()},
\code{\link{as_chunk}()},
\code{\link{as_equation}()},
\code{\link{as_highlight}()},
\code{\link{as_image}()},
\code{\link{as_i}()},
\code{\link{as_sub}()},
\code{\link{as_sup}()},
\code{\link{as_word_field}()},
\code{\link{colorize}()},
\code{\link{grid_chunk}()},
\code{\link{hyperlink_text}()},
\code{\link{linerange}()},
\code{\link{lollipop}()},
\code{\link{minibar}()},
\code{\link{plot_chunk}()}
}
\concept{chunk elements for paragraph}
|
