DescTools (version 0.99.19)

WrdPlot: Insert Active Plot to Word

Description

This function inserts the plot on the active plot device to Word. The image is transferred by saving the picture to a file in R and inserting the file in Word. The format of the plot can be selected, as well as crop options and the size factor for inserting.

Usage

WrdPlot(type = "png", append.cr = TRUE, crop = c(0, 0, 0, 0), main = NULL, picscale = 100, height = NA, width = NA, res = 300, dfact = 1.6, wrd = DescToolsOptions("lastWord"))

Arguments

type
the format for the picture file, default is "png".
append.cr
should a carriage return be appended? Default is TRUE.
crop
crop options for the picture, defined by a 4-elements-vector. The first element is the bottom side, the second the left and so on.
main
a caption for the plot. This will be inserted by InserCaption in Word. Default is NULL, which will insert nothing.
picscale
scale factor of the picture in percent, default ist 100.
height
height in cm, this overrides the picscale if both are given.
width
width in cm, this overrides the picscale if both are given.
res
resolution for the png file, defaults to 300.
dfact
the size factor for the graphic.
wrd
the pointer to a word instance. Can be a new one, created by GetNewWrd() or an existing one, created by GetCurrWrd(). Default is the last created pointer stored in DescToolsOptions("lastWord").

Value

See Also

ToWrd, WrdCaption, GetNewWrd

Examples

Run this code
## Not run:  # Windows-specific example
# # let's have some graphics
# plot(1,type="n", axes=FALSE, xlab="", ylab="", xlim=c(0,1), ylim=c(0,1), asp=1)
# rect(0,0,1,1,col="black")
# segments(x0=0.5, y0=seq(0.632,0.67, length.out=100),
#   y1=seq(0.5,0.6, length.out=100), x1=1, col=rev(rainbow(100)))
# polygon(x=c(0.35,0.65,0.5), y=c(0.5,0.5,0.75), border="white",
#   col="black", lwd=2)
# segments(x0=0,y0=0.52, x1=0.43, y1=0.64, col="white", lwd=2)
# x1 <- seq(0.549,0.578, length.out=50)
# segments(x0=0.43, y0=0.64, x1=x1, y1=-tan(pi/3)* x1 + tan(pi/3) * 0.93,
#   col=rgb(1,1,1,0.35))
# 
# 
# # get a handle to a new word instance
# wrd <- GetNewWrd()
# # insert plot with a specified height
# WrdPlot(wrd=wrd, height=5)
# ToWrd("Remember?\n", fontname="Arial", fontsize=14, bold=TRUE, wrd=wrd)
# # crop the picture
# WrdPlot(wrd=wrd, height=5, crop=c(9,9,0,0))
# 
# 
# wpic <- WrdPlot(wrd=wrd, height=5, crop=c(9,9,0,0))
# wpic
# ## End(Not run)

Run the code above in your browser using DataCamp Workspace