説明は長くなり、この日の記事の組みひもから遠くなるので、この記事は別ブログのこちらへ引っ越し theta<-seq(from=0,to=2*pi,length.out=100) r<-seq(from=0,to=1,length.out=10) xy<-expand.grid(r,theta) plot(xy[,1],xy[,2]) x<-xy[,1]*cos(xy[,2]) y<-…