svg(filename='Rplots.svg',width=6,height=6,
pointsize=12,onefile=TRUE,family='sans',bg='slategray',
antialias=c('default','none','gray','subpixel'))t<-seq(0,2*pi,len=360); n=12; d=.4
x1<-cos(n*t)*cos(t); y1<-cos(n*t)*sin(t)
x2<-(cos(n*t)+d)*cos(t); y2<-(cos(n*t)+d)*sin(t)
plot(x2,y2,type='o',cex=.8,col='#3636ff',
xlab='',ylab=''); par(new=T);
plot(x1,y1,type='o',cex=.8,col='#ff3636',
xlim=c(-1-d,1+d),ylim=c(-1-d,1+d),xlab='x',ylab='y',
fg='white',col.axis='white',col.lab='white');
grid(col='white'); dev.off()
No comments:
Post a Comment