R/draw.rletter.R

In liuguofang/figsci: Let plotting figure and scientific visualization and information gain easier and more efficient.

draw.rletter <- function(col='blue',...) 
{
    x1 <- c(2.032, 2.017, 2.017, 2.662, 2.655, 2.835, 2.88, 2.985, 3.277, 3.93, 
        3.907, 3.787, 3.697, 3.495, 3.382, 3.547, 3.697, 3.757, 3.765, 3.757, 
        3.742, 3.675, 3.465, 3.285)
    y1 <- c(3.278, 3.248, 0.653, 0.653, 1.695, 1.68, 1.65, 1.478, 0.66, 0.645, 
        0.705, 1.05, 1.305, 1.665, 1.823, 1.905, 2.093, 2.258, 2.385, 2.46, 2.76, 
        3, 3.218, 3.278)
    x2 <- c(2.647, 2.64, 3.045, 3.12, 3.157, 3.135, 3.09, 2.977, 2.685, 2.647)
    y2 <- c(2.235, 2.7, 2.708, 2.633, 2.498, 2.378, 2.303, 2.228, 2.235, 2.25)
    par(pty = "s")
    plot(1, xlim = c(min(x1), max(x1)), ylim = c(min(y1), max(y1)), type = "n", 
        axes = F, xlab = "", ylab = "")

    polygon(x1, y1, col=col,...)
    polygon(x2, y2, col = "white", ...)  
}