% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/plot_pedigree.R
\docType{methods}
\name{plot,Pedigree,missing-method}
\alias{plot,Pedigree,missing-method}
\alias{plot.Pedigree}
\alias{plot,Pedigree}
\title{Plot Pedigrees}
\usage{
\S4method{plot}{Pedigree,missing}(
  x,
  aff_mark = TRUE,
  id_lab = "id",
  label = NULL,
  ggplot_gen = FALSE,
  cex = 1,
  symbolsize = 1,
  branch = 0.6,
  packed = TRUE,
  align = c(1.5, 2),
  align_parents = TRUE,
  force = FALSE,
  width = 6,
  title = NULL,
  subreg = NULL,
  pconnect = 0.5,
  fam_to_plot = 1,
  legend = FALSE,
  leg_cex = 0.8,
  leg_symbolsize = 0.5,
  leg_loc = NULL,
  leg_adjx = 0,
  leg_adjy = 0,
  precision = 4,
  lwd = par("lwd"),
  ped_par = list(),
  leg_par = list(),
  tips = NULL,
  title_cex = 2,
  leg_usr = NULL,
  add_to_existing = FALSE
)
}
\arguments{
\item{x}{A Pedigree object.}

\item{aff_mark}{If \code{TRUE}, add a aff_mark to each box corresponding to the
value of the affection column for each filling scale.}

\item{id_lab}{The column name of the id for each individuals.}

\item{label}{If not \code{NULL}, add a label to each box under the id
corresponding to the value of the column given.}

\item{ggplot_gen}{If TRUE add the segments to the ggplot object}

\item{cex}{Character expansion of the text}

\item{symbolsize}{Size of the symbols}

\item{branch}{defines how much angle is used to connect various levels of
nuclear families.}

\item{packed}{Should the Pedigree be compressed.
(i.e. allow diagonal lines connecting parents to children in order
to have a smaller overall width for the plot.)}

\item{align}{For a packed Pedigree, align children under parents \code{TRUE},
to the extent possible given the page width, or align to to the left
margin \code{FALSE}.
This argument can be a two element vector, giving the alignment
parameters, or a logical value.
If \code{TRUE}, the default is \code{c(1.5, 2)}, or if numeric the routine
\code{alignped4()} will be called.}

\item{align_parents}{If \code{align_parents = TRUE}, go one step further
and try to make both parents of each child have the same depth.
(This is not always possible).
It helps the drawing program by lining up pedigrees that
'join in the middle' via a marriage.}

\item{force}{If \code{force = TRUE}, the function will return the depth minus
\code{min(depth)} if \code{depth} reach a state with no founders
is not possible.}

\item{width}{For a packed output, the minimum width of the plot, in
inches.}

\item{title}{The title of the plot.}

\item{subreg}{A 4-element vector for (min x, max x, min depth, max depth),
used to edit away portions of the plot coordinates returned by
\code{\link[=ped_to_plotdf]{ped_to_plotdf()}}.
This is useful for zooming in on a particular region of the Pedigree.}

\item{pconnect}{When connecting parent to children the program will try to
make the connecting line as close to vertical as possible, subject to it
lying inside the endpoints of the line that connects the children by at
least \code{pconnect} people.  Setting this option to a large number will
force the line to connect at the midpoint of the children.}

\item{fam_to_plot}{default=1.  If the Pedigree contains multiple families,
this parameter can be used to select which family to plot.
It can be a numeric value or a character value. If numeric, it is the
index of the family to plot returned by \code{unique(x$ped$famid)}.
If character, it is the family id to plot.}

\item{legend}{default=FALSE.  If TRUE, a legend will be added to the plot.}

\item{leg_cex}{default=0.8.  Controls the size of the legend text.}

\item{leg_symbolsize}{default=0.5.  Controls the size of the legend symbols.}

\item{leg_loc}{default=NULL.  If NULL, the legend will be placed in the
upper right corner of the plot.  Otherwise, a 4-element vector of the form
(x0, x1, y0, y1) can be used to specify the location of the legend.
The legend will be fitted to the specified and might be distorted if the
aspect ratio of the legend is different from the aspect ratio of the
specified location.}

\item{leg_adjx}{default=0.  Controls the horizontal labels adjustment of
the legend.}

\item{leg_adjy}{default=0.  Controls the vertical labels adjustment
of the legend.}

\item{precision}{The number of significatif numbers to round the
solution to.}

\item{lwd}{default=par("lwd"). Controls the line width of the
segments, arcs and polygons.}

\item{ped_par}{default=list().  A list of parameters to use as graphical
parameteres for the main plot.}

\item{leg_par}{default=list().  A list of parameters to use as graphical
parameters for the legend.}

\item{tips}{A character vector of the column names of the data frame to
use as tooltips. If \code{NULL}, no tooltips are added.}

\item{title_cex}{The size of the title.}

\item{leg_usr}{default=NULL. A vector of user coordinates to use for the
legend.}

\item{add_to_existing}{If \code{TRUE}, the plot will be added to the current
plot.}
}
\value{
an invisible list containing
\itemize{
\item df : the data.frame used to plot the Pedigree
\item par_usr : the user coordinates used to plot the Pedigree
\item ggplot : the ggplot object if ggplot_gen = TRUE
}
}
\description{
This function is used to plot a Pedigree object.

It is a wrapper for \code{\link[=plot_fromdf]{plot_fromdf()}}
and \code{\link[=ped_to_plotdf]{ped_to_plotdf()}} as well as
\code{\link[=ped_to_legdf]{ped_to_legdf()}} if \code{legend = TRUE}.
}
\details{
Two important parameters control the looks of the result.  One is the user
specified maximum width.  The smallest possible width is the maximum number
of subjects on a line, if the user's suggestion is too low it is
increased to 1 + that amount (to give just a little wiggle room).

To make a Pedigree where all children are centered under parents simply
make the width large enough, however, the symbols may get very small.

The second is \code{align}, a vector of 2 alignment parameters \code{a} and
\code{b}.
For each set of siblings at a set of locations \code{x} and with parents at
\code{p=c(p1,p2)} the alignment penalty is

\deqn{(1/k^a)\sum{i=1}{k} [(x_i - (p1+p2)/2)]^2}

\deqn{\sum(x- \overline(p))^2/(k^a)}

Where k is the number of siblings in the set.

When \code{a = 1} moving a sibship with \code{k} sibs one unit to the
left or right of optimal will incur the same cost as moving one with
only 1 or two sibs out of place.

If \code{a = 0} then large sibships are harder to move than small ones,
with the default value \code{a = 1.5} they are slightly easier to move
than small ones.  The rationale for the default is as long as the parents
are somewhere between the first and last siblings the result looks fairly
good, so we are more flexible with the spacing of a large family.
By tethering all the sibs to a single spot they are kept close to each other.
The alignment penalty for spouses is \eqn{b(x_1 - x_2)^2}{b *(x1-x2)^2},
which tends to keep them together. The size of \code{b} controls the relative
importance of sib-parent and spouse-spouse closeness.
}
\section{Side Effects}{

Creates plot on current plotting device.
}

\examples{
data(sampleped)
pedAll <- Pedigree(sampleped)
if (interactive()) { plot(pedAll) }

}
\seealso{
\code{\link[=Pedigree]{Pedigree()}}
}
\keyword{Pedigree-plot}