R/plot.vf.R

In phiala/ecodist: Dissimilarity-Based Functions for Ecological Analysis

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, ...)
}