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
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/edge_direction.R
\name{guide_edge_direction}
\alias{guide_edge_direction}
\title{Edge direction guide}
\usage{
guide_edge_direction(
title = NULL,
theme = NULL,
arrow = NULL,
labels = NULL,
nbin = 500,
position = NULL,
direction = NULL,
reverse = FALSE,
order = 0,
override.aes = list(),
...,
available_aes = c("edge_colour", "edge_alpha", "edge_width"),
arrow.position = deprecated()
)
}
\arguments{
\item{title}{A character string or expression indicating a title of guide.
If \code{NULL}, the title is not shown. By default
(\code{\link[ggplot2:waiver]{waiver()}}), the name of the scale object or the name
specified in \code{\link[ggplot2:labs]{labs()}} is used for the title.}
\item{theme}{A \code{\link[ggplot2:theme]{theme}} object to style the guide individually or
differently from the plot's theme settings. The \code{theme} argument in the
guide overrides, and is combined with, the plot's theme.}
\item{arrow}{Logical. Should an arrow be drawn to illustrate the direction.
Defaults to \code{TRUE}. The arrow is styled with the \code{legend.axis.line} theme
element. If \code{FALSE} the direction will be indicated by the text
given in \code{labels}}
\item{labels}{A vector with two strings giving the labels to place at the
start and the end of the legend to indicate direction if \code{arrow = FALSE}}
\item{nbin}{A numeric specifying the number of bins for drawing the
colourbar. A smoother colourbar results from a larger value.}
\item{position}{A character string indicating where the legend should be
placed relative to the plot panels.}
\item{direction}{A character string indicating the direction of the guide.
One of "horizontal" or "vertical."}
\item{reverse}{logical. If \code{TRUE} the colourbar is reversed. By default,
the highest value is on the top and the lowest value is on the bottom}
\item{order}{positive integer less than 99 that specifies the order of
this guide among multiple guides. This controls the order in which
multiple guides are displayed, not the contents of the guide itself.
If 0 (default), the order is determined by a secret algorithm.}
\item{override.aes}{A list specifying aesthetic parameters of legend key.
See details and examples.}
\item{...}{ignored.}
\item{available_aes}{A vector of character strings listing the aesthetics
for which a colourbar can be drawn.}
\item{arrow.position}{\ifelse{html}{\href{https://lifecycle.r-lib.org/articles/stages.html#deprecated}{\figure{lifecycle-deprecated.svg}{options: alt='[Deprecated]'}}}{\strong{[Deprecated]}} The position of the
arrow relative to the example edge. Use the \code{legend.text.position} argument
in \code{theme()} instead.}
}
\description{
This guide is intended to show the direction of edges based on the aesthetics
mapped to its progression, such as changing width, colour and opacity.
}
\examples{
gr <- tidygraph::as_tbl_graph(highschool)
ggraph(gr, layout = 'kk') +
geom_edge_fan(aes(alpha = after_stat(index))) +
guides(edge_alpha = guide_edge_direction())
# Use text labels instead of an arrow
ggraph(gr, layout = 'kk') +
geom_edge_fan(aes(alpha = after_stat(index))) +
guides(edge_alpha = guide_edge_direction(labels = c('start', 'end')))
# Style the indicator arrow
arrow_style <- element_line(linewidth = 3, arrow = grid::arrow(type = "closed"))
ggraph(gr, layout = 'kk') +
geom_edge_fan(aes(alpha = after_stat(index))) +
guides(
edge_alpha = guide_edge_direction(
theme = theme(legend.axis.line = arrow_style)
)
)
}
|
