plot.vf <- function (x, pval = NULL, r = NULL, cex = 0.8, ascale = 0.9, ...)
{
plotlim <- par()$usr
plotlim <- min((plotlim[2] - plotlim[1]), (plotlim[4] - plotlim[3]))
ascale <- ascale * (plotlim/2)
if(!is.null(pval)) {
x <- x[x[, 4] < pval, , drop=FALSE]
}
if(!is.null(r)) {
x <- x[x[, 3] >= r, , drop=FALSE]
}
for (i in 1:dim(x)[[1]]) {
arrows(0, 0, x[i, 1] * x[i, 3] * ascale, x[i, 2] * x[i,
3] * ascale, ...)
}
text(x[, 1] * x[, 3] * (ascale * 1.1), x[, 2] * x[, 3] *
(ascale * 1.1), dimnames(x)[[1]], cex = cex, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.