knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
ggperiodic is a simple package that tries to make plotting periodic data easier. The core idea is that you can specify the period that your data represents and then, at plotting, time, you define the range that it should be wrapped around. To see it in action, let's first create some periodic data with period between 0° and 360°:
x <- seq(0, 360 - 10, by = 10)*pi/180 y <- seq(-90, 90, by = 10)*pi/180 Z <- expand.grid(x = x, y = y) Z$z <- with(Z, 1.2*sin(x)*0.4*sin(y*2) - 0.5*cos(2*x)*0.5*sin(3*y) + 0.2*sin(4*x)*0.45*cos(2*x)) Z$x <- Z$x*180/pi Z$y <- Z$y*180/pi
Since the vale of z
at x = 0
and at x = 360
is the same, having both would be redundant and also create bias when computing statistics because the same point would be double counted. But when plotting, there's a problem
library(ggplot2) ggplot(Z) + geom_contour(aes(x, y, z = z, color = ..level..)) + coord_polar()
With ggperiodic you can explicitly specify the period that your data represents and then wrap it around any arbitrary range. By printing, you can see the period of each of the periodic variables.
library(ggperiodic) Z <- periodic(Z, x = c(0, 360)) head(Z)
To manually wrap the data around a range, you can use the same syntax:
wrapped_z <- wrap(Z, x = c(-180, 180)) range(wrapped_z$x)
This can be done manually, but ggplot2 will do it automatically, by default wrapping the data around the period.
ggplot(Z) + geom_contour(aes(x, y, z = z, color = ..level..)) + coord_polar()
But it's easy to change the wrapping range using the same syntax. For example, if we want to see three copies of the data
ggplot(Z, x = c(0, 360)*3) + geom_contour(aes(x, y, z = z, color = ..level..))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.