1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/plot.R
\name{network.loop}
\alias{network.loop}
\title{Add Loops to a Plot}
\usage{
network.loop(
x0,
y0,
length = 0.1,
angle = 10,
width = 0.01,
col = 1,
border = 1,
lty = 1,
offset = 0,
edge.steps = 10,
radius = 1,
arrowhead = TRUE,
xctr = 0,
yctr = 0,
...
)
}
\arguments{
\item{x0}{a vector of x coordinates for points of origin.}
\item{y0}{a vector of y coordinates for points of origin.}
\item{length}{arrowhead length, in current plotting units.}
\item{angle}{arrowhead angle (in degrees).}
\item{width}{width for loop body, in current plotting units (can be a
vector).}
\item{col}{loop body color (can be a vector).}
\item{border}{loop border color (can be a vector).}
\item{lty}{loop border line type (can be a vector).}
\item{offset}{offset for origin point (can be a vector).}
\item{edge.steps}{number of steps to use in approximating curves.}
\item{radius}{loop radius (can be a vector).}
\item{arrowhead}{boolean; should arrowheads be used? (Can be a vector.)}
\item{xctr}{x coordinate for the central location away from which loops
should be oriented.}
\item{yctr}{y coordinate for the central location away from which loops
should be oriented.}
\item{\dots}{additional arguments to \code{\link{polygon}}.}
}
\value{
None.
}
\description{
\code{network.loop} draws a "loop" at a specified location; this is used to
designate self-ties in \code{\link{plot.network}}.
}
\details{
\code{network.loop} is the companion to \code{\link{network.arrow}}; like
the latter, plot elements produced by \code{network.loop} are drawn using
\code{\link{polygon}}, and as such are scaled based on the current plotting
device. By default, loops are drawn so as to encompass a circular region of
radius \code{radius}, whose center is \code{offset} units from \code{x0,y0}
and at maximum distance from \code{xctr,yctr}. This is useful for functions
like \code{\link{plot.network}}, which need to draw loops incident to
vertices of varying radii.
}
\note{
\code{network.loop} is a direct adaptation of
\code{\link[sna]{gplot.loop}}, from the \code{sna} package.
}
\examples{
#Plot a few polygons with loops
plot(0,0,type="n",xlim=c(-2,2),ylim=c(-2,2),asp=1)
network.loop(c(0,0),c(1,-1),col=c(3,2),width=0.05,length=0.4,
offset=sqrt(2)/4,angle=20,radius=0.5,edge.steps=50,arrowhead=TRUE)
polygon(c(0.25,-0.25,-0.25,0.25,NA,0.25,-0.25,-0.25,0.25),
c(1.25,1.25,0.75,0.75,NA,-1.25,-1.25,-0.75,-0.75),col=c(2,3))
}
\seealso{
\code{\link{network.arrow}}, \code{\link{plot.network}},
\code{\link{polygon}}
}
\author{
Carter T. Butts \email{buttsc@uci.edu}
}
\keyword{aplot}
\keyword{graphs}
|
