Plot a calendar of the specified year or month. Monthly calendars can have additional information (text/plots) added to the individual cells.
The month for the calendar, if ommitted will do a yearly calendar,
can either be a number from 1 to 12 or a character string that will
be matched (using
The year for the calendar. If ommitted and
This function plots on the current (or default) graphics device a
yearly or monthly calendar. It tries to guess what you want, if both
month are ommitted then it will plot the
current month. If
month is an integer greater than 12 and no
year is specified then
that value will be used as the year for a yearly calendar. The
month can be either an integer from 1 to 12 or a character
string that will be matched against
Each day of the monthly calendar is a plotting frame that can be
added to using stardard low level functions, the coordinates of the
plotting region (the entire box) are from 0 to 1 in both
updateusr function can be used to
change the coordinates. The return from the function (when creating
a monthly calendar) can be used to select the day.
Nothing is returned when a whole year calendar is created. When the month calendar is created a function is returned invisibly that if passed an integer corresponding to a day of the month will set the graphics parameters so the corresponding day in the calendar becomes the current plotting figure. See the examples below.
Greg Snow, [email protected]
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
cal(2011) cal('May') setday <- cal(11, 2011) setday(3) text(0.5,0.5, 'Some\nCentered\nText') setday(8) text(1,1,'Top Right',adj=c(1,1)) setday(18) text(0,0,'Bottom Left', adj=c(0,0) ) setday(21) tmp.x <- runif(25) tmp.y <- rnorm(25, tmp.x, .1) mrgn.x <- 0.04*diff(range(tmp.x)) mrgn.y <- 0.04*diff(range(tmp.y)) updateusr( 0:1, 0:1, range(tmp.x)+c(-1,1)*mrgn.x, range(tmp.y)+c(-1,1)*mrgn.y) points(tmp.x, tmp.y) setday(30) tmp <- hist(rnorm(100), plot=FALSE) updateusr( 0:1, 0:1, range(tmp$breaks), range(tmp$counts*1.1,0) ) lines(tmp)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.