Example data of biweekly grouse locations

Description

Sequential locations of a blue grouse on its winter ranges in Middle Park, Colorado.

Usage

data(blue162)

Format

A data frame with 12 observations on the following 5 variables.

date

Year, month, and day of location.

bird

Bird identification number.

sexage

Sex = 2 = female, age = 3 = adult.

lat

Latitudinal UTM coordinate.

long

Longitudinal UTM coordinate.

Source

Cade, B.S., and R.W. Hoffman. 1993. Differential migration of blue grouse in Colorado. Auk 110, 70–77.

Examples

str(blue162)

 seq.cols <- topo.colors(nrow(blue162))
 
 #I jitter locations so overlapping points can be seen
plot(jitter(blue162$long,amount = 4),jitter(blue162$lat,amount = 4),
 bg = seq.cols,cex = 2,pch = 21,xlab = "Longitude",ylab = "Latitude",
 main = "Spatial locations of bluegrouse \nshowing temporal ordering of observations")
 
for(i in 1:length(seq.cols)){
    rect(max(blue162$long)-10,min(blue162$lat)+10*(i-1),
    max(blue162$long),min(blue162$lat)+10*(i),col = seq.cols[i],lty="blank")
    text(max(blue162$long)-15,min(blue162$lat)+10*(i-1)+5,label=i)
    }
    
text(max(blue162$long)-20,min(blue162$lat)+130,
  label = "time order of \nobservations")

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(Blossom)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/Blossom/blue162.Rd_%03d_medium.png", width=480, height=480)
> ### Name: blue162
> ### Title: Example data of biweekly grouse locations
> ### Aliases: blue162
> ### Keywords: datasets
> 
> ### ** Examples
> 
> str(blue162)
'data.frame':	12 obs. of  5 variables:
 $ date  : int  821106 821120 821204 821219 821229 830107 830126 830205 830217 830305 ...
 $ bird  : int  162 162 162 162 162 162 162 162 162 162 ...
 $ sexage: int  23 23 23 23 23 23 23 23 23 23 ...
 $ lat   : int  4417150 4417250 4417250 4417100 4417150 4417250 4417150 4417100 4417100 4417050 ...
 $ long  : int  386400 386250 386450 386350 386200 386400 386300 386350 386350 386250 ...
> 
>  seq.cols <- topo.colors(nrow(blue162))
>  
>  #I jitter locations so overlapping points can be seen
> plot(jitter(blue162$long,amount = 4),jitter(blue162$lat,amount = 4),
+  bg = seq.cols,cex = 2,pch = 21,xlab = "Longitude",ylab = "Latitude",
+  main = "Spatial locations of bluegrouse \nshowing temporal ordering of observations")
>  
> for(i in 1:length(seq.cols)){
+     rect(max(blue162$long)-10,min(blue162$lat)+10*(i-1),
+     max(blue162$long),min(blue162$lat)+10*(i),col = seq.cols[i],lty="blank")
+     text(max(blue162$long)-15,min(blue162$lat)+10*(i-1)+5,label=i)
+     }
>     
> text(max(blue162$long)-20,min(blue162$lat)+130,
+   label = "time order of \nobservations")
> 
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>