geom_nodetext | R Documentation |
All arguments to these geoms are identical to those of
geom_text
and geom_label
.
geom_nodetext(
mapping = NULL,
data = NULL,
position = "identity",
...,
parse = FALSE,
nudge_x = 0,
nudge_y = 0,
check_overlap = FALSE,
na.rm = FALSE,
show.legend = NA,
inherit.aes = TRUE
)
geom_nodelabel(
mapping = NULL,
data = NULL,
position = "identity",
...,
parse = FALSE,
nudge_x = 0,
nudge_y = 0,
label.padding = unit(0.25, "lines"),
label.r = unit(0.15, "lines"),
label.size = 0.25,
na.rm = FALSE,
show.legend = NA,
inherit.aes = TRUE
)
mapping |
Set of aesthetic mappings created by |
data |
The data to be displayed in this layer. There are three options: If A A |
position |
Position adjustment, either as a string, or the result of
a call to a position adjustment function. Cannot be jointly specified with
|
... |
Other arguments passed on to |
parse |
If |
nudge_x , nudge_y |
Horizontal and vertical adjustment to nudge labels by.
Useful for offsetting text from points, particularly on discrete scales.
Cannot be jointly specified with |
check_overlap |
If |
na.rm |
If |
show.legend |
logical. Should this layer be included in the legends?
|
inherit.aes |
If |
label.padding |
Amount of padding around label. Defaults to 0.25 lines. |
label.r |
Radius of rounded corners. Defaults to 0.15 lines. |
label.size |
Size of label border, in mm. |
## geom_nodetext examples
if (require(network) && require(sna)) {
n <- network(rgraph(10, tprob = 0.2), directed = FALSE)
# just node labels
ggplot(n, aes(x, y)) +
geom_nodetext(aes(label = vertex.names)) +
theme_blank()
# with nodes underneath
ggplot(n, aes(x, y)) +
geom_nodes(colour = "gold", size = 9) +
geom_nodetext(aes(label = vertex.names)) +
theme_blank()
# with nodes and edges
ggplot(n, aes(x, y, xend = xend, yend = yend)) +
geom_edges(colour = "gold") +
geom_nodes(colour = "gold", size = 9) +
geom_nodetext(aes(label = vertex.names)) +
theme_blank()
}
## geom_nodelabel examples
if (require(network) && require(sna)) {
data(flo, package = "network")
n <- network(flo, directed = FALSE)
# with text labels
ggplot(n, aes(x, y, xend = xend, yend = yend)) +
geom_edges(colour = "grey50") +
geom_nodelabel(aes(label = vertex.names)) +
theme_blank()
# with text labels coloured according to degree centrality
n %v% "degree" <- degree(n)
ggplot(n, aes(x, y, xend = xend, yend = yend)) +
geom_edges(colour = "grey50") +
geom_nodelabel(aes(label = vertex.names, fill = degree)) +
scale_fill_gradient(low = "gold", high = "tomato") +
theme_blank()
# label only a subset of all nodes
high_degree <- function(x) {
x[ x$degree > median(x$degree), ]
}
ggplot(n, aes(x, y, xend = xend, yend = yend)) +
geom_edges(colour = "steelblue") +
geom_nodes(aes(size = degree), colour = "steelblue") +
geom_nodelabel(aes(label = vertex.names),
data = high_degree,
colour = "white", fill = "tomato"
) +
theme_blank()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.