A Leisure Graph Made in R
谢益辉 / 2007-04-15
Some three weeks ago, Renmin University called for the designing of class logos. Usually I don’t like such activities, but when I was drawing a graph using R, I suddenly got some inspirations and made a logo by means of some simple R functions like symbols(), lines(), dnorm(), segments(), polygon() and arrows(), etc.
The PDF version of this (perhaps ugly) logo can be downloaded here. Below are some core codes:
.... > y = seq(2 * pi, 0, length = 150) > x = sin(y) > radius = ifelse(0.5 * abs(cos(y)) + 0.1 < 0.15, 0.15, + 0.5 * abs(cos(y)) + 0.1) > symbols(x, y, circles = radius, inches = F, fg = heat.colors(150)) ....