plot(1:10,1:10)
my.symbols(1:10,1:10, ms.polygram, n=1:10, r=seq(0.5,1,length.out=10),
inches=0.3)
my.symbols(1:10,1:10, ms.polygon, n=1:10, add=FALSE, inches=0.3)
my.symbols(1:5, 5:1, ms.filled.polygon, add=FALSE, n=3:7, fg='green',
bg=c('red','blue','yellow','black','white'), inches=0.3 )
my.symbols( 1:10, 1:10, ms.female, inches=0.3, add=FALSE)
my.symbols( 1:10, 10:1, ms.male, inches=0.3, add=TRUE)
plot(1:10, 1:10)
my.symbols(1:10, 1:10, ms.arrows, angle=runif(10)*2*pi, inches=0.5,
adj=seq(0,1,length.out=10))
my.symbols(1:10, 1:10, ms.sunflowers, n=1:10, inches=0.3, add=FALSE)
Run the code above in your browser using DataLab