#'@title Plots pal2table object
#'
#'@description Plots symbols, colors and the corresponding factor labels
#' of a pal2table object.
#'
#'@param x An object created with pal2table
#'
#'
#'@author Pedro Martinez Arbizu
#'
##'@import graphics
#'@examples
#' data(iris)
#' irc <- pal2table(iris$Species)
#' plot(irc)
#'
#'@export plot.pal2table
#'@exportS3Method plot pal2table
#'@seealso \code{\link{pal2table}}
plot.pal2table <- function(x){
plot(rep(1,nrow(x)),nrow(x):1,cex=2,pch=x$pch,bg=as.vector(x$col),axes=FALSE,ann=FALSE,xlim=c(1,10))
points(rep(1,nrow(x))+0.5,nrow(x):1,cex=2,pch=x$pch2,col=as.vector(x$col))
text(rep(1,nrow(x))+1,nrow(x):1,labels=x$class,pos=4)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.