pedigree.legend: Plot a pedigree legend In kinship2: Pedigree Functions

Description

Plot a pedigree legend that describes the affected indiactors for a subject

Usage

 ```1 2 3``` ```pedigree.legend(ped, labels = dimnames(ped\$affected)[[2]], edges = 200, radius=NULL, location="bottomright", new=TRUE, density = c(-1, 35, 55, 25), angle = c(90, 65, 40, 0), ...) ```

Arguments

 `ped` A pedigree object with id, dadid, momid, sex, affected `labels` names for the affected indicators `edges` Number of edges for each polygon. Higher numbers give better resolution for the circle. `radius` length of the circle's radius `location` Similar to how the location of a regular legend is given, used only if new=TRUE. A character string indicating which of the four corners to plot the legend, given by "bottomright", "bottomleft", "topleft", or "topright". `new` Logical. If TRUE, plot the legend on the current plot. Otherwise, plot on a separate plot. `density` Density of lines shaded in sections of the circle. These match the density settings for the plot.pedigree function. `angle` Angle at which lines are shaded in sections of the circle. These match the angles for the plot.pedigree function. `...` optional parameters for the plot function that apply to text.

Details

Adapt the pie() function to plot a circle with affected indicators. When new=TRUE, much care is needed to keep track of location and scaling of lines and text.

Value

Nothing is returned.

`plot.pedigree`
 ``` 1 2 3 4 5 6 7 8 9 10 11 12``` ```data(sample.ped) fam1 <- sample.ped[sample.ped\$ped==1,] ped1 <- with(fam1, pedigree(id, father, mother, sex, affected=cbind(avail,affected))) plot(ped1) pedigree.legend(ped1, location="bottomright", radius=.8) pedigree.legend(ped1, location="topleft", radius=.6, cex=1.2) pedigree.legend(ped1, new=FALSE) ```