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
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/wrappers.R
\name{insertPlot}
\alias{insertPlot}
\title{Insert the current plot into a worksheet}
\usage{
insertPlot(
wb,
sheet,
width = 6,
height = 4,
xy = NULL,
startRow = 1,
startCol = 1,
fileType = "png",
units = "in",
dpi = 300
)
}
\arguments{
\item{wb}{A workbook object}
\item{sheet}{A name or index of a worksheet}
\item{width}{Width of figure. Defaults to 6in.}
\item{height}{Height of figure . Defaults to 4in.}
\item{xy}{Alternate way to specify startRow and startCol. A vector of length 2 of form (startcol, startRow)}
\item{startRow}{Row coordinate of upper left corner of figure.\code{ xy[[2]]} when xy is given.}
\item{startCol}{Column coordinate of upper left corner of figure. \code{xy[[1]]} when xy is given.}
\item{fileType}{File type of image}
\item{units}{Units of width and height. Can be "in", "cm" or "px"}
\item{dpi}{Image resolution}
}
\description{
The current plot is saved to a temporary image file using dev.copy.
This file is then written to the workbook using insertImage.
}
\examples{
\dontrun{
## Create a new workbook
wb <- createWorkbook()
## Add a worksheet
addWorksheet(wb, "Sheet 1", gridLines = FALSE)
## create plot objects
require(ggplot2)
p1 <- qplot(mpg,
data = mtcars, geom = "density",
fill = as.factor(gear), alpha = I(.5), main = "Distribution of Gas Mileage"
)
p2 <- qplot(age, circumference,
data = Orange, geom = c("point", "line"), colour = Tree
)
## Insert currently displayed plot to sheet 1, row 1, column 1
print(p1) # plot needs to be showing
insertPlot(wb, 1, width = 5, height = 3.5, fileType = "png", units = "in")
## Insert plot 2
print(p2)
insertPlot(wb, 1, xy = c("J", 2), width = 16, height = 10, fileType = "png", units = "cm")
## Save workbook
saveWorkbook(wb, "insertPlotExample.xlsx", overwrite = TRUE)
}
}
\seealso{
\code{\link[=insertImage]{insertImage()}}
}
\author{
Alexander Walker
}
|
