svg(filename='Rplots.svg',width=6,height=6,pointsize=12,
onefile=TRUE,family='times',bg='slategray',
antialias=c('default','none','gray','subpixel'))x<-seq(-2,2,len=100); y1<-exp(-x^2)
y2<--exp(-x^2); y3<-exp(-x^2)*sin(pi*x^3)
plot(x,y1,type='o',cex=.7,col='#3636ff',
xlim=c(-2,2),ylim=c(-1,1),xlab='x',ylab='y',
fg='white',col.axis='white',col.lab='white')
lines(x,y2,type='o',cex=.7,col='#ff3636')
df$utf_sym<-sapply((30:129),intToUtf8)
points(df$x,df$y,pch=df$utf_sym,cex=.5,col='#ffffff')
grid(col='white'); dev.off()"""))
No comments:
Post a Comment