#' Generate a plot of point shapes which R knows about.
#' @description Generate point shapes available in R
#' @author Alboukadel Kassambara <alboukadel.kassambara@@gmail.com>
#' @seealso \code{\link{generateRLineTypes}}
#' @references http://www.sthda.com
#' @examples
#'
#' #The code to generate point shapes available in R
#' generateRPointShapes()
#'
#' @export generateRPointShapes
generateRPointShapes<-function(){
oldPar<-par()
par(font=2, mar=c(0.5,0,0,0))
y=rev(c(rep(1,6),rep(2,5), rep(3,5), rep(4,5), rep(5,5)))
x=c(rep(1:5,5),6)
plot(x, y, pch=0:25, cex=1.5, ylim=c(1,5.5), xlim=c(1,6.5),
axes=FALSE, xlab="", ylab="", bg="blue")
text(x, y, labels=0:25, pos=3)
par(mar=oldPar$mar,font=oldPar$font )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.