R Graphical Manual

Browse All

Last data update: 2014.03.03

R: Add a PolySet to an Existing Plot as Polylines

addLines

R Documentation

Add a PolySet to an Existing Plot as Polylines

Description

Add a PolySet to an existing plot, where each unique (PID, SID) describes a polyline.

Usage

addLines (polys, xlim = NULL, ylim = NULL,
    polyProps = NULL, lty = NULL, col = NULL, arrows = FALSE, ...)

Arguments

`polys`	PolySet to add (required).
`xlim`	range of X-coordinates.
`ylim`	range of Y-coordinates.
`polyProps`	PolyData specifying which polylines to plot and their properties. `par` parameters passed as direct arguments supersede these data.
`lty`	vector of line types (cycled by `PID`).
`col`	vector of colours (cycled by `PID`).
`arrows`	Boolean value; if `TRUE`, add arrows using the arrows function and consider the arguments `angle`, `length`, and `code`.
`...`	additional `par` parameters for the `lines` function.

Details

The plotting routine does not connect the last vertex of each discrete polyline to the first vertex of that polyline. It clips polys to xlim and ylim before plotting.

For additional help on the arguments lty and col, please see par.

Value

PolyData consisting of the PolyProps used to create the plot.

Examples

local(envir=.PBSmapEnv,expr={
  oldpar = par(no.readonly=TRUE)
  #--- create a PolySet to plot
  polys <- data.frame(PID=rep(1,4),POS=1:4,X=c(0,1,1,0),Y=c(0,0,1,1))
  polys <- as.PolySet(polys, projection=1)
  #--- plot the PolySet
  plotLines(polys, xlim=c(-.5,1.5), ylim=c(-.5,1.5), projection=1)
  #--- add the PolySet to the plot (in a different style)
  addLines(polys, lwd=5, col=3)
  par(oldpar)
})

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(PBSmapping)

-----------------------------------------------------------
PBS Mapping 2.69.76 -- Copyright (C) 2003-2016 Fisheries and Oceans Canada

PBS Mapping comes with ABSOLUTELY NO WARRANTY;
for details see the file COPYING.
This is free software, and you are welcome to redistribute
it under certain conditions, as outlined in the above file.

A complete user guide 'PBSmapping-UG.pdf' is located at 
/home/ddbj/local/lib64/R/library/PBSmapping/doc/PBSmapping-UG.pdf

Packaged on 2015-04-23
Pacific Biological Station, Nanaimo

All available PBS packages can be found at
http://code.google.com/p/pbs-software/

To see demos, type '.PBSfigs()'.
-----------------------------------------------------------


> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/PBSmapping/addLines.Rd_%03d_medium.png", width=480, height=480)
> ### Name: addLines
> ### Title: Add a PolySet to an Existing Plot as Polylines
> ### Aliases: addLines
> ### Keywords: aplot
> 
> ### ** Examples
> 
> local(envir=.PBSmapEnv,expr={
+   oldpar = par(no.readonly=TRUE)
+   #--- create a PolySet to plot
+   polys <- data.frame(PID=rep(1,4),POS=1:4,X=c(0,1,1,0),Y=c(0,0,1,1))
+   polys <- as.PolySet(polys, projection=1)
+   #--- plot the PolySet
+   plotLines(polys, xlim=c(-.5,1.5), ylim=c(-.5,1.5), projection=1)
+   #--- add the PolySet to the plot (in a different style)
+   addLines(polys, lwd=5, col=3)
+   par(oldpar)
+ })
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>