plot.disProg {surveillance} | R Documentation |
Plotting of a disProg object.
## S3 method for class 'disProg': plot(x, title = "", xaxis.years=TRUE, startyear = x$start[1], firstweek = x$start[2], as.one=TRUE, same.scale=TRUE, ...) ## S3 method for class 'disProg.one': plot(x, title = "", xaxis.years=TRUE, quarters=TRUE, startyear = x$start[1], firstweek = x$start[2], ylim=NULL, xlab="time", ylab="No. infected",type="hh",lty=c(1,1),col=c(1,1), outbreak.symbol = list(pch=3, col=3), legend.opts=list(x="top", legend=c("Infected", "Outbreak"), lty=NULL,pch=NULL,col=NULL), ...)
x |
object of class disProg |
title |
plot title |
xaxis.years |
if TRUE , the x axis is labeled using years |
quarters |
add quarters to the plot |
startyear |
year to begin the axis labeling (the year where
the oldest data come from). This arguments will be obsolete in sts . |
firstweek |
number of the first week of January in the first year (just for axis labeling grounds) |
as.one |
if TRUE all individual time series are shown in
one plot |
same.scale |
if TRUE all plots have same scale |
ylim |
range of y axis |
xlab |
label of the x-axis |
ylab |
label of the y-axis |
type |
line type of the observed counts (should be hh ) |
lty |
line type of the observed counts |
col |
color of the observed count lines |
outbreak.symbol |
list with entries pch and col specifying the plot symbol |
legend.opts |
a list containing the entries to be sent to the legend function. If no legend is requested use legend.opts=NULL . Otherwise, the following arguments are default
An further arguments to the legend function are
just provided as additional elements of this list,
e.g. horiz=TRUE .
|
... |
further arguments for the function matplot |
a plot |
showing the number of infected and the defined alarm status for a time series created by simulation or given in data either in one single plot or in several plots for each individual time series. |
M. Höhle with contributions by A. Riebler and C. Lang
# Plotting of simulated data disProgObj <- sim.pointSource(p = 0.99, r = 0.5, length = 208, A = 1, alpha = 1, beta = 0, phi = 0, frequency = 1, state = NULL, K = 5) # plot the simulated disease with the defined outbreaks plot(disProgObj) title <- "Number of Infected and Defined Outbreak Positions for Simulated Data" plot(disProgObj, title = title) plot(disProgObj, title = title, xaxis.years=TRUE, startyear = 1999, firstweek = 13) plot(disProgObj, title = title, xaxis.years=TRUE, startyear = 1999, firstweek = 14) # Plotting of measles data data(measles.weser) # one plot plot(measles.weser, title = "measles cases in the district Weser-Ems", xaxis.years=TRUE, startyear= 2001, firstweek=1) # plot cases for each "Kreis" plot(measles.weser, same.scale=TRUE, as.one=FALSE)