abacus: Generate an Abacus plot
In ConnorFWhite/AssFunc: What the package does (short line)

Description Usage Arguments Details Value Author(s) Examples

Gener an abacus plot similar to the output from the Vemco Software VUE

abacus(state_rec, times,states=NULL,labels=NULL,add=FALSE,xlim=NULL,
        tunit="month",col="black",ylab="Station",xlab="date",
        yline=4,xline=3,xcex=1.5,ycex=1.5,cex.yaxis=.75,cex.xaxis=.75,
        pch=15,format= "%m/%y")

`state_rec`	vector of states, normally station names or individuals
`times`	vector of times of each state in POSIX
`states`	list of all states that you wish to be included on the y axis
`labels`	the label that you wish displayed for each state defaults to the name of each state
`add`	if you would like to add points to an existing plot
`xlim`	vector of the min and max times of the x axis
`tunit`	a time unit that can be used in seq.POSIX. Used to determine the spacing of the x axis
`format`	How the date will be displayed on the x axis
`col`	The color of the abacus points
`ylab`	the label on the y axis
`xlab`	the label on the x axis
`yline`	the number of lines the label will be off the y axis, see mtext
`xline`	the number of lines the label will be off the x axis, see mtext
`xcex`	the cex for the x axis label
`ycex`	the cex for the y axis label
`cex.yaxis`	the cex for the y axis
`cex.xaxis`	the cex for the x axis
`pch`	the plotting character type for the symbols

This is a simple basic function for replicating VUE abacus plots. It is more flexible than VUE

This function returns a plot

Connor F. White

StateTime<-seq(as.POSIXct("2016-05-23"),as.POSIXct("2017-05-23"),by="days")
States<-sample(c("State1","State2","State3","State4"),size=366, replace=TRUE)
ind<-sample(c("Fish1","Fish2","Fish3","Fish4","Fish5","Fish6","Fish7","Fish9","Fish10"),size=366,replace=TRUE)

#Plotting by station
abacus(state_rec=States,times=StateTime,states=c("State1","State2","State3","State4","State5"))
abacus(state_rec=States,times=StateTime,states=c("State1","State2","State3","State4","State5"),col=as.factor(ind))

#plotting so the Y axis is individual
abacus(state_rec=ind,times=StateTime,col=as.factor(States))