# 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))
....