Peguy Climograph

Description

Representation of Peguy Climograph from monthly weather data (Mean Temperature, Precipitation)

Usage

1
2
3
4
5
6
peguy(data = NULL, TemperatureTriangleCoords = c(0, 23.4, 15),
  PrecipitationTriangleCoords = c(0, 40, 200), ylab = "Precipitation[mm]",
  xlab = "Mean Temperature [degC]", lambda.label = 1.75,
  climate.label = c("Temperate", "Cool", "Arid", "Hot"), xyField = c("Tn",
  "P"), pointsField = "month", StationsField = "station",
  color.scale = "monthly", ...)

Arguments

data

input dataset with climatological monthly weather data

TemperatureTriangleCoords

Temperature coordinates for triangle vertices in the Peguy Climograph. Default coordinates are expressed in Celsius Degrees.

PrecipitationTriangleCoords

Precipitation coordinates for triangle vertices in the Peguy Climograph. Default coordinates are expressed in millimeters.

xlab, ylab

xy axis labels

lambda.label

numeric value used to locate climate attribute labels

climate.label

string vector containing climate attributes. Default is c("Temperate", "Cold", "Arid", "Hot"). Alternatively it can be translated into any other languange.

xyField

column names of data for the x and y variables used in the Peguy Climate Diagram.

pointsField

column name of data containing the fields to be represented with different point colors. Default is "month".

StationsField

column name of data containing the fields with station ID names. Default is "station".

color.scale

character scale indicating a use of a specific color scale. Default is "monthly".

...

further arguments

Author(s)

Emanuele Cordano

References

Peguy, C.P. (1970) Precis de climatologie, ed. Masson, Paris.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
library(stringr)
data(Trent_climate)


TrentinoClimateDf <- do.call(rbind,clima_81_10)
names <- rownames(TrentinoClimateDf)
TrentinoClimateDf$station <- unlist(lapply(X=str_split(names,pattern="[.]"),FUN=function(x) {x[1]}))
 


data <- TrentinoClimateDf[TrentinoClimateDf$station %in% unique(TrentinoClimateDf$station)[1:3],]
p <- peguy(data=data)