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