Skip to content
Prev 178738 / 398506 Next

problem with symbol function

The my.symbols function in the TeachingDemos package works here.  It was designed to work like symbols, but with user defined symbols:

library(TeachingDemos)

theta <- seq(0, 2*pi, len=256)
circ <- cbind( cos(theta), sin(theta) )

x <- runif(10)
y <- rnorm(10, 100, 20)
z <- runif(10, .5, 1)

my.symbols(x,y, circ, inches=.3, add=FALSE)
my.symbols(x,y, circ, inches=.3, lty='dashed', add=FALSE)
my.symbols(x,y, circ, inches=.5*z, lty='dashed', add=FALSE)