|
11 | 11 | #' @inheritParams plot.ts.orig |
12 | 12 | #' @return A time series plot. Plotted data if 'output.data'=TRUE. |
13 | 13 | #' @details Plot time series of one vector. It is possible to plot the "raw" series or aggregate it temporarily or display a specific season/month. If the input data is a matrix, by default a separate panel is obtained for each station. 'stn.together' allows to plot all stations together (without subplot). |
14 | | -#' @export |
| 14 | +#' @export plot.TimeSeries |
15 | 15 | #' @import grDevices graphics |
16 | 16 | #' @examples \dontrun{ |
17 | 17 | #'# Generate some data |
|
22 | 22 | #'data.day <- array(runif(length(dates.day)*2, -5, 30), dim=c(length(dates.day),2)) |
23 | 23 | #'data.hour <- array(runif(length(dates.hour)*2, -5, 30), dim=c(length(dates.hour),2)) |
24 | 24 | #'# Plot original data |
25 | | -#'plot.ts(data.day, dates.day, title = c("Original daily data")) |
26 | | -#'plot.ts(data.day, dates.day, title = c("Original hourly data"), hour=T) |
| 25 | +#'plot.TimeSeries(data.day, dates.day, title = c("Original daily data")) |
| 26 | +#'plot.TimeSeries(data.day, dates.day, title = c("Original hourly data"), hour=T) |
27 | 27 | #'# Plot temporarily aggregated data |
28 | | -#'plot.ts(data.day, dates.day, title = "Yearly data", agg="Y") |
29 | | -#'plot.ts(data.day, dates.day, title = "Monthly data", agg="M") |
30 | | -#'plot.ts(data.day, dates.day, title = "Seasonal data", agg="S") |
31 | | -#'plot.ts(data.hour, dates.hour, hour=T, title = "Daily data", agg="D") |
| 28 | +#'plot.TimeSeries(data.day, dates.day, title = "Yearly data", agg="Y") |
| 29 | +#'plot.TimeSeries(data.day, dates.day, title = "Monthly data", agg="M") |
| 30 | +#'plot.TimeSeries(data.day, dates.day, title = "Seasonal data", agg="S") |
| 31 | +#'plot.TimeSeries(data.hour, dates.hour, hour=T, title = "Daily data", agg="D") |
32 | 32 | #'# Plot a specific season or month |
33 | | -#'plot.ts(data.day, dates.day, title = "Seasonal data in summer", season = c(6,7,8)) |
34 | | -#'plot.ts(data.day, dates.day, title = c("Monthly data in June A", "Monthly data in June B"), |
| 33 | +#'plot.TimeSeries(data.day, dates.day, title = "Seasonal data in summer", season = c(6,7,8)) |
| 34 | +#'plot.TimeSeries(data.day, dates.day, title = c("Monthly data in June A", "Monthly data in June B"), |
35 | 35 | #'season = 6) # and different subtitles |
36 | 36 | #'# Plot all stations together instead of in subplot |
37 | | -#'plot.ts(data.day, dates.day, title = "Monthly data in June A", season = 6, stn.together=T) |
| 37 | +#'plot.TimeSeries(data.day, dates.day, title = "Monthly data in June A", season = 6, stn.together=T) |
38 | 38 | #'# Plot and save plotted data |
39 | | -#'res <- plot.ts(data.day, dates.day, title = "Monthly data in June", season = 6, output.data = T) |
| 39 | +#'res <- plot.TimeSeries(data.day, dates.day, title = "Monthly data in June", season = 6, output.data = T) |
40 | 40 | #'# Export plot to file |
41 | | -#'plot.ts(data.day, dates.day, title = "Monthly data in June", season = 6, export = T) |
| 41 | +#'plot.TimeSeries(data.day, dates.day, title = "Monthly data in June", season = 6, export = T) |
42 | 42 | #'# Change window size |
43 | | -#'plot.ts(data.day, dates.day, title = "Monthly data in June", season = 6, |
| 43 | +#'plot.TimeSeries(data.day, dates.day, title = "Monthly data in June", season = 6, |
44 | 44 | #'window.width = 8, window.height = 4) |
45 | 45 | #'} |
46 | 46 |
|
47 | 47 |
|
48 | | -plot.ts <- |
| 48 | +plot.TimeSeries <- |
49 | 49 |
|
50 | 50 | function(data, dates, hour=FALSE, agg=NULL, aggFun="mean", season=NULL, |
51 | 51 | export=FALSE, outDir = "current", outNam = "plot1",outDev = "pdf", title=NULL, input.mch=FALSE, |
|
0 commit comments