berryFunctions (version 1.4)

monthLabs: create labels with certain days of the month

Description

create dates of certain days of the month for labeling

Usage

monthLabs(startyear=2002, stopyear=2018, npm=2, npy=NA)

Arguments

startyear

Integer. starting year. DEFAULT: 2002

stopyear

Integer. ending year. DEFAULT: 2018

npm

Integer, one of 1,2,3 or 6. Number of labels per month. DEFAULT: 2 npm : days of the month 1 : first day of each month within the given years 2 : 1st and 15th day 3 : 1, 10, 20 6 : 1, 5, 10, 15, 20, 25.

npy

Integer, one of 1,2,3,4 or 6. Number of labels per year at equally spaced month-beginnings. If specified, npm is not considered at all. DEFAULT: NA

Value

• Vector with Dates as returned by as.Date.

See Also

as.Date, paste

Examples

monthLabs(2014,2014, 3) # 3 days per month
monthLabs(2013,2014,  npy=3) # 3 months per year, equally spaced
monthLabs(2014,2014,  npy=4) # 4 months per year

as.Date("2013-09-25")
# Find out why as.Date("2013-09-25") does not pass check
Date <- sort(as.Date("2013-09-25")+sample(0:150, 30))
plot(Date, cumsum(rnorm(30)), type="o", xaxt="n", ann=FALSE)
axis(1, monthLabs(npm=1), format(monthLabs(npm=1), "%d.%m.\n %Y"), 
     mgp=c(3,2,0), cex.axis=0.7 )

Date <- sort(as.Date("2011-07-13")+sample(0:400, 50))
plot(Date, cumsum(rnorm(50)), type="o", xaxt="n", ann=FALSE)
axis(1, monthLabs(npy=6), format(monthLabs(npy=6), "%d.%m.\n%Y"),
     mgp=c(3,2,0), cex.axis=0.7 )