# Trigonometric Pattern Design

[This article was first published on

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

**Ripples**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Triangles are my favorite shape, three points where two lines meet (Tessellate, Alt-J)

Inspired by recurrence plots and by the Gauss error function, I have done the following plots. The first one represents the recurrence plot of where distance between points is measured by Gauss error function:

I like them: they are elegant, attractive and *easy to make*. Try your own functions. One final though: the more I use `magrittr`

package, the more I like it. This is the code for the first plot.

library("magrittr") library("ggplot2") library("pracma") RecurrencePlot = function(from, to, col1, col2) { opt = theme(legend.position = "none", panel.background = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), axis.title = element_blank(), axis.text = element_blank()) seq(from, to, by = .1) %>% expand.grid(x=., y=.) %>% ggplot( ., aes(x=x, y=y, fill=erf(sec(x)-sec(y)))) + geom_tile() + scale_fill_gradientn(colours=colorRampPalette(c(col1, col2))(2)) + opt} RecurrencePlot(from = -5*pi, to = 5*pi, col1 = "black", col2= "white")

To

**leave a comment**for the author, please follow the link and comment on their blog:**Ripples**.R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.