search :
Skip to main content.
Add to Google
add a note for that graph

Regular time series

Description

Plots one or more regular time series in multiple figures on one or more screens (pages).

In this example, O3, NOx and temperature 30-minutes means at Altdorf from 2004-07-13 to 2004-07-22 are shown.

Note

37.1 / 100   (37 votes)
Vote (between 0 and 100) :

Requirements

source code

Download or view
RGraphGallery(160,10,8)

Keywords

add a keyword
just click a keyword to associate it to that graph. If you don't find what you are looking for, you may also create a new keyword.
 3D
 bioconductor
 Cluster analysis
 Dimension:
         bivariate
         multivariate
         univariate
 histogram
 Mathematical annotations
 Quantile regression
 Rcore:
         colors
         core
         fonts
 system:
         graphics
         grid
         lattice
         rgl
 triplot
 Var:
         circular
         factor
         numeric
         TimeSeries
 View:
         distribution
         linear relation
         spatial
         trees

See also ...

Wiki page

 Go to the wiki page associated to that graphic. Feel free to add comments, etc ... there.
Warning: fopen(http://wiki.r-project.org/rwiki/doku.php?id=graph_gallery:graph160&do=export_raw) [function.fopen]: failed to open stream: HTTP request failed! HTTP/1.0 403 Forbidden in /mnt/114/free.fr/2/c/addictedtor/graphiques/scriptsphp/bottom_graph.php on line 181

Warning: fread(): supplied argument is not a valid stream resource in /mnt/114/free.fr/2/c/addictedtor/graphiques/scriptsphp/bottom_graph.php on line 182

Author(s)

René Locher 
   
## load required packages

library(IDPmisc)
library(SwissAir) # data for the example

## prepare the data

st <- 6.5*30*48
x.at <- seq(st,nrow(AirQual),48)

## draw graph

longtsPlot(
           y1 = AirQual[,c("ad.O3","ad.NOx")],
           y2 = AirQual$ad.T,
           names1 = c("O3","NOx"), names2 = "Temp",
           startP = st, upf = 3*48, fpp = 3,
           x.at = x.at, x.ann = substr(AirQual$start,1,6)[x.at],
           x.tick = seq(st,nrow(AirQual),12),
           y1.at = c(0,100), y1.tick = seq(0,150,50),
           y2.at = c(10,30), y2.tick = seq(10,30,10),
           y1lab="[ppb]", y2lab="[C]",
           y1lim = c(0,140), y2lim = c(10,30), xpd = TRUE,
           col2 = "red", type = "l",
           mar=c(1.2,3.2,1.2,3.2),main="2004-07-13 till 2004-07-22"
           )